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Praxiserprobte Finanzbuchhaltung 
und Fakturierung 
für den Einsatz im Klein- und Mittelbetrieb 


»Finanzbuchhaltung«, eine praxiserprobte Sachkontenbuchhaltung mit 
Kostenstellenrechnung, ist ein menügesteuertes und bedienerfreundliches Pro- 
grammpaket. Sie können mit ihm schnell und unkompliziert ein EDV-unter- 
stütztes Informationssystem in Ihrem Betrieb installieren. 

Per Tastendruck können Sie sich jederzeit über die Finanzlage 
informieren. Dos mitgelieferte ausführliche Handbuch erklärt Ihnen 
anhand zahlreicher Buchungsbeispiele und Abbildungen die einfache Bedie- 
nung des Programms. 
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»Fakturierung«: Das dBASE-I-Anwenderprogramm für den Klein- und 
Mittelbetrieb unterstützt und vereinfacht Ihre Routinetätigkeiten: 

@ Angebotsschreibung ® Rechnungsschreibung (mit automatischem Ab- 
buchen aus der Artikeldatei) @ Offene-Posten-Verwaltung @ Adreßverwal- 
tung ® Artikelverwaltung. Programmspezifische Eigenschaften: @ Koopera- 
tion einzelner Komponenten miteinander ® Individuelle Anpassung an Ihre 
Bedürfnisse möglich @ Ein sehr ausführliches Handbuch mit vielen Grafiken 
ist im Lieferumfang enthalten. 
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eit nunmehr zweieinhalb Jahren 

behauptet die Schneider CPC- 

Serie ihren guten zweiten Platz 
auf dem Computermarkt. Da verwun- 
dert es niemanden, wenn die ersten 
Zweifler das Ende dieser Ära herauf- 
dämmern sehen. Schließlich hat 
Schneider diesem Gerücht mit Einstel- 
lung der CPC 664-Produktion unbeab- 
sichtigt Nahrung geliefert. Und doch 
führen derartige Überlegungen in die 
Irre, denn die Zeichen stehen eigentlich 
günstiger als je zuvor. So ist der CPC 
8128 mit Grünmonitor und eingebau- 
tem Diskettenlaufwerk für unter 1000 
Mark zu haben - ein nahezu konkur- 
renzlos niedriger Preis. Und der CPC 
464 avanciert mit seinem jetzigen Preis 
von weniger als 400 Mark (siehe 
Aktuelles) zum idealen Einsteiger- 
Computer. Vom »Aus« kann also - zum 
Glück - wirklich keine Rede sein. 

Das belegen auch andere Indizien. 
Erst jetzt beginnen nämlich die Pro- 
grammierer, den CPC zu seiner vollen 
Leistung zu treiben. Das beste Beispiel 
dafür ist unser Meilenstein »CPC-Giga- 
CAD« in dieser Ausgabe. Oder hätten 
‚Sie Ihrem Computer bislang derartige 
Fähigkeiten zugetraut? Dieses CAD- 
Software-Paket erfüllt auch die Wün- 
sche der anspruchsvollsten Computer- 
besitzer. Dabei ist es so flexibel, daß es 
mit seiner ausgeklügelten Menüfüh- 
rung einen leichten Einstieg erlaubt, bei 
intensiverer Beschäftigung aber immer 
mehr offenbart. Die Fülle seiner Fähig- 
keiten ist in einem Sonderheft gar nicht 
darzustellen. So mußten wir uns auf 
eine Diskussion der wichtigsten Funk- 
Sonen beschränken, um überhaupt 
noch weitere Themen behandeln zu 
können. Trotzdem sind nunmehr fast50 
Seiten Giga-CAD dabei herausgekom- 
men. Wir meinen, das Endprodukt 
rechtfertigt den Umfang voll und ganz. 

Doch damit nicht genug. Maschinen- 
Sprache-Programmierer finden ein gan- 
zes Paketinteressantester Listings. Der 
Assembler RITA läßt das Herz eines 


jeden Z80-Spezialisten höher schla- 
gen. Er verarbeitet sogar Maschinen- 
befehle, die es eigentlich gar nicht gibt. 
Was es damit auf sich hat, lesen Sie ab 
Seite 122. Daneben bieten wir Ihnen 
eine ganze Sammlung nützlicher 
Assembler-Routinen, die man immer 
wieder benötigt. Machen Sie sich also 
in Zukunft die Arbeit etwas leichter. 
Wer sich mehr (oder zusätzlich) den 
leichter zugänglichen Computerfreu- 
den verschrieben hat, wird im Spieleteil 
fündig. Seinen Fleiß beim Abtippen 
belohnen zwei Spielprogramme unter- 
schiedlicher Kategorien. Geruhsame 
Unterhaltung mit Lerneffekt bietet die 
ökonomische Simulation »Kyberne- 
tien«, während beim heißen Actionspiel 
»Fire« purer, flinker Maschinencode 
den Joystick zum »Glühen« bringt. 
Einsteiger, aber auch Fortgeschrit- 
tenelernen in einem Grundlagenbeitrag 
die volle Bandbreite der Musikprogram- 
mierung kennen. Viele Programm- 
Beispiele erleichtern das Verständnis. 
Ihre besondere Beachtung wird 
sicher auch unser großer Bastelteil fin- 
den, der erstmals so umfangreich ist. 
Aber die Anleitungen haben es faust- 
dick in sich. Geradezu sensationell ist 
der Umbau der CPCs 464 und 664 
zum vollwertigen CPC 6128. Mit gerin- 
gem finanziellen Aufwand haben Sie 
zukünftig »zwei« Computer. 
Zusammen mit sinnvollen Anwen- 
dungslistings, Tips und Tricks sowie Uti- 
lities und Berichten über Neuheiten des 
vergangenen Vierteljahres haben wir 
Ihnen also ein pralles Bündel 
geschnürt, das jedem Geschmack 
gerecht wird. Damit das auch zukünftig 
so bleibt, nehmen Sie bitte auch weiter- 
hin mit Einsendungen Ihrer fabelhaften 
Programme und Ideen an der Gestal- 
tung unserer Sonderhefte teil. 
Fortsetzung folgt - bestimmt! 


Thomas Jacobi 
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Welcher Besitzer eines der kleinen CPCs 464 oder 664 schielte 
nicht schon einmal neidvoll auf den Komfort seiner großen Kol- 
legen? Unsere Bastelei macht nun aus Ihrem »Kleinen« einen 
CPC 6128. 14 


Vermißten Sie bei Ihrem CPC hin und wieder schmerzlich ein 
bißchen mehr Speicherplatz oder gar einen EPROM-Anschluß? 
Unsere »selfmade« Happy-Megabitkarte erfüllt alle diese 
Wünsche. 24 


Keine Hexenküche, sondern ein nützliches Anwenderpro- 
(gramm steckt hinter diesem Bild. Unser Listing gibt Ihnen über 
die chemischen Elemente des Periodensystems nähere Infor- 
mationen. 93 
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Dreidimensionale Impressionen vermittelt das schon fast 
professionell zu nennende CPC-Giga-CAD. Dieses gigantisch 
leistungsfähige Zeichenprogramm wird mit Sicherheit auch Sie 
begeistern. a 


Ein pfiffiges Spiele-Listing darf natürlich auch in dieser Aus- 
gabe nicht fehlen. Der fixe Feuerwehrmann Willy hat in dem 
Action-Spiel »Feuer« alle Hände voll zu tun, um alle Brände zu 
löschen. 110 


Obwohl der CPC nur wenige Basic-Befehle zur ‚Sound- 
programmierung besitzt, läßt sich eine Menge an Musikalität 
aus Ihrem Schneider herausholen. Unser Grundlagenartikel 
weiht Sie ein. 150 
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Slave to the Rhythm 


Endlich gibt es für die CPC-Serie mit der »Music 
Machine« für Musikfreunde ein Modul mit passen- 
der Software, das kaum noch Ausstattungs- 


wünsche offen läßt. 


ür musikbegeisterte CPC- 

Besitzer gibt es jetzt mit der 
»Music Machine« eine wirkliche 
‚Allround-Hardware-Erweiterung. 
Sie beinhaltet ein MIDI-Interface 
zur Steuerung eines entspre- 
chend ausgerüsteten Musik- 
instruments über den Computer 
sowie einen Sound-Sampler. 
Dieser Sampler erlaubt die Digi- 
talisierung von bis zu acht ver- 
schiedenen Klängen mit Hilfe 
des mitgelieferten Mikrofons 
oder jeder anderen angeschlos- 
‚senen Tonquelle. Die dazugehö- 
rige Software unterstützt diese 

Hardware-Voraussetzungen 

exzellent. So enthält sie die digi- 
talisierten Klänge acht verschie- 
dener Schlaginstrumente, die 
als elektronisches Schlagzeug 
verblüffend echtklingen. Zu die- 
ser rhythmischen Begleitung 
lassen sich Melodien program- 
mieren, die entweder an ein 
MIDI-Instrument übergeben 


werden oder über den CPC 
erklingen. Sowohl die Melodie 


Balken, die die Tonhöhe bezie- 
hungsweise das Schlaginstru- 
ment bestimmen. Die Software 
überläßt dem Benutzer die 
Wahl, ob Melodie oder Beglei- 
tung im CPC-Lautsprecher hör- 
bar sind. Der jeweils andere 
Kanal steht an zwei Ausgängen 
der Music Machine bereit. Zu- 
sätzlich läßt sich die Melodie, 
wie schon erwähnt, wahlweise 
über einen der 16 MIDI-Kanäle 
ausgeben. 

Mit Tönen oder Geräuschen, 
die man selbst digitalisiert, sind 
fast beliebige Klänge zu erzeu- 
‚gen, zumal ein Editor nachträgli- 
che Veränderungen erlaubt. Die 
Samplingrate beträgt 19444 
Hertz, die Bandbreite der ge- 
sampelten Töne liegt zwischen 
20 Hertz und 9,5 Kilohertz. 

Eine Klinkenbuchse erlaubt 
den Anschluß eines beliebigen 
Verstärkers, die Cinchbuchse 
den eines Kopfhörers. Verbin- 
dungskabel fehlen jedoch im 
Lieferumfang. Aufgrund der 


Das Hauptmenü zeigt alle Fähigkeiten 


als auch die Begleitung sind auf 
verschiedene Arten zu erzeu- 
‚gen. Da gibt es zunächst ein auf 
den oberen zwei Reihen der 
Computertastatur simuliertes 
»Minimal-Keyboard«. Ein ande- 
res Menü stellt acht Tasten 
für Zwei-Finger-Simultan-Schlag- 
zeugsoli bereit. Beides ist durch 
einen »Bar-Editor« auch pro- 
grammierbar. Die Darstellung 
erfolgt jedoch nicht in Form von 
Noten, sondern vielmehr als 
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Vielfalt unterschiedlichster 
Anschlußnormen ist dieser 
Umstand aber nicht als Manko 
zu werten. Für MIDI-Instrumen- 
te stehen gleich drei DIN-Buch- 
sen bereit: MIDI-In, -Through 
und -Out. 

Die grafische Darstellung, 
Menüführung und Bedienbar- 
keit des Programms sind ausge- 
zeichnet gelungen. Einen Wer- 
mutstropfen gibt es dennoch: 
CPC 464-Benutzer müssen 


Ein unscheinbares Kästchen verleiht dem CPC Musikalität 


sich für den Anschluß der Music 
Machine oder eines Disketten- 
laufwerks entscheiden - eine 
gleichzeitige Nutzung verwehrt 
der fehlende durchgeführte 
Systembus. 

Abhilfe schafft da nur eine 
spezielle Version des Anschluß- 
kabels, bei der ein zusätzlicher 
Platinenstecker auch den 
Anschluß des Disketten- 
Controllers erlaubt. Auf Anfrage 
teilte uns der deutsche Impor- 
teur mit, daß er diese Version 
auf Bestellung selbst fertigt. 
Allerdings beträgt der Aufpreis 
für diese »Sonderausstattung« 
50 Mark. 

Das Programm liegt der Music 
Machine zwar als Diskette und 
Kassette bei, die Arbeit mit dem 
Recorder gestaltet sich jedoch 
wegen der relativ langen Warte- 
zeiten beim ständigen Laden 


So lassen sich Musikstücke bearbeiten 


und Speichern einzelner Melo- 
dien, gesampelter Klänge oder 
MIDI-Daten sehr unkomfortabel. 
Aus dem Schneider sind da die 
Besitzer eines CPC 664 oder 
CPC 6128, da beiden Modellen 
das eingebaute Laufwerk 
gemeinsam ist. Dafür muß man 
für die CPC 6128-Version 
wegen der aufwendigeren 
Steckverbindung tiefer in die 
Tasche greifen: 249 Mark 
kostet das Komplettgerät in die- 
ser Ausführung. Um 50 Mark 
billiger (198 Mark) ist man mit 
einem CPC 464 und 664 dabei. 
Dem Muster lag leider noch 
keine deutsche Anleitung bei. 
Sie soll jedoch demnächst fer- 
tiggestellt sein. 

(ja) 


Peksoft, Müllerstraße 44, 8000 München 5, 
Telefon 089/2604874 


CPC 464 im Modularset 


ie Gerüchteküche brodelt 

schon seit langem. Neben 
vermeintlichen Sensationsmel- 
n, nach denen die Firma 
Schneider (aus unerfindlichen 
Gründen) und ihr englischer 
Partner Amstrad sich ganz aus 
der Computerbranche zurück- 
ziehen sollten, hieß es aus 
»gemäßigteren« Kreisen, die 
letzten CPC464 seien bereits 
zum Weihnachtsgeschäft 1986 
an die Händler verkauft gewe- 
‚sen. Nun führt Schneider einen 
Gegenbeweis ins Feld. Entge- 
‚gen der bisherigen Firmenphilo- 
sophie wird der CPC464 nun 
nicht mehr ausschließlich inklu- 
sive Monitor angeboten, son- 
dern ist ab sofort auch als Ein- 
steigerpaket für 398 Mark 
erhältlich. Im Lieferumfang ist 
nun anstelle des Bildschirms 
das Modulator-Netzteil zur Bild- 


Der von vielen bereits totgesagte CPC 464 soll als 
Low-Cost-Modell mit TV-Modulator wieder beson- 
ders Einsteiger ansprechen. 


Zwar ohne Monitor, aber mit TV-Modulator 


wiedergabe über den heimi- 
schen (Farb-)Fernseher ent- 
halten. 

Damit sind allerdings Ein- 
schränkungen im praktischen 
Einsatz verbunden. So leidet 
vor allem die Wiedergabe im 
Modus 2 mit seinen 80 Zeichen 
pro Zeile derart, daß man auf 
diese Betriebsart verzichten 
muß - man erkennt schlicht 
nichts mehr. Anwendungen wie 
Textverarbeitung oder derglei- 
chen sindso kaum nochinteres- 
sant. Eine akzeptable Bildquali- 
tät ist aber im Modus 1 und vor 
allem im Modus 0 zu erreichen. 
Damit ist dieses Einsteigerset 
besonders für Spiele und Pro- 
grammierung geeignet. Und 
wer später mehr will, kauft sich 
einen beliebigen monochromen 
Monitor dazu. 

(ia) 


Assembler-Dreigespann 


V le Besitzer eines Schnei- 
der-Computers stellen mit 
der Zeit fest, daß ihr Computer 
mehr als nur ein Spielgerät ist. 
Wenn dann noch die in Basic 
selbstgeschriebenen Pro- 
‚gramme zu langsam sind, bleibt 
nur der Umstieg auf Maschinen- 
sprache. Eine Hilfe für Anfänger 
verspricht »CPC-Learn«, eine 
Einführung in Assembler aus 
dem Hause Holtkötter. CPC- 
Learn läuft auf allen drei CPC- 
‚Typen. Es wird sowohl als 
Kassetten-, als auch als Disket- 
tenversion angeboten. Das 
Paket besteht aus dem Pro- 
gramm CPC-Learn und einem 
206 Seiten umfassenden 
Handbuch. 

Das Handbuch ist sehr über- 
sichtlich aufgebaut und steht 
sowohl als Lehrbuch für Anfän- 
ger als auch als Nachschlage- 
werk für Profis seinen Mann. 
Nach einer Einführung in die 
verschiedenen Zahlensysteme 
und einer Abhandlung über 
RAM, ROM und CPU widmen 
sich die Autoren eingehend 
dem Z80-Befehlssatz. Drei Bei- 
spielprogramme und ein um- 
fangreicher Anhang mit zahlrei- 
chen Listen und Tabellen über 
Codes, Befehlssatz sowie einer 
Bedienungsanleitung für das 
CPC-Learn runden das Buch ab. 

Schon beim flüchtigen Durch- 
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Der Name Holtkötter ist Schneider-Besitzern noch 
unbekannt. Jetzt kam als erster Streich dieser 
Firma ein Assembler-Paket für die 8-Bit-Computer 
auf den Markt. Diese 138 Mark teuren Software- 
Produkte sprechen Anfänger und Profis an. 


sehen der Dokumentation fallen 
die zahlreichen Übungen mit 
verschiedenen Programmbei- 
spielen auf. Lehrbuch und Pro- 
‚gramm können also als eine Ein- 
heit betrachtet werden. 
Erfreulicherweise meldet sich 
Learn nicht wie viele andere 
Programme mit einem umfang- 
reichen Titelbild oder gar noch 
mit einer Titelmelodie Beim 
ersten Anschauen ist so etwas 
recht hübsch anzu- 


zwar 


CPC-LEARN (c) 13866 


schauen, aber später nervt der 
unnötige Zeitaufwand. So 
macht denn das Titelbild von 
Learn auch einen etwas spar- 
tanischen Eindruck (Bild 1). 

Ein effektives Arbeiten mit 
CPC-Learn setzt ein sorgfälti- 
ges Studium des Handbuchs 
voraus. Das Titelbild und alle 
weiteren Bildschirmbilder 
geben nämlich keine Auskunft 
darüber, wie man vorgehen 
muß. 


RUS Datentechnik 


Bild 1. Mit diesem Bild meldet sich CPC-Learn 


PC 


CPC-Learn besitzt insgesamt 
vier verschiedene Teile. Da ist 
zum einen ein »Spezialrechner« 
für die verschiedenen Zahlen- 
systeme. Ein Assembler/Disas- 
sembler und ein Hexmonitor 
dienen der Programmeingabe 
und -bearbeitung. Der Tracer 
hilft, Fehler in dem eingegebe- 
nen Maschinencode-Programm 
zu finden. 

Der Spezialrechner, im Hand- 
buch »Calculatore genannt, 
beherrscht neben Addition, 
Subtraktion, Multiplikation und 
Division von Dezimal-, Dual-, 
sowie Hexadezimal-Zahlen 
auch logische Verknüpfungen. 
Ein Druck auf <TAB> schaltet 
zwischen ihm und dem Hexmo- 
nitor um. Der Monitor erlaubt die 
Eingabe einer Maschinencode- 
Routine nach Wahl der Anfangs- 
adresse oder das Listen ver- 
schiedener Speicherinhalte. 
Wollen Sie sich einen größeren 
Speicherbereich ansehen, so 
empfiehlt es sich, mittels 
<ESC> in den Dump-Modus 
umzuschalten (Bild 2). Dann 
werden 64 Byte gleichzeitig 
aufgelistet. 

Wiederum mit <TAB> schal- 
tet man in die Assembler-/Dis- 
assembler-Routine. Sie dient 
der Ein- und Ausgabe des mne- 
monischen Codes von Assem- 
blerprogrammen. 


Top-Listings dieser Ausgabe: 


Wogen due Umfangs des Programms CPC-Giga-CAD gi es ciesmal eich zwei Disattn zum Sondarhat Die ine an 
hältsämiiche Lisinge der Ausgabe einschließlich Giga-CAD. Die zwei ar Demonstrationen zum Giga-CAD Der Ein, 
Znpreis Duräg jeweils 9490 Mark. Beide Zusammen sind zum olnmalgen Pakstpris von 4350 Mark erhätich 
(OPC-GIge-CAD. Ein CAD-Programm der Suporatve. Einzigarig für Computer der CPC-Klasse. Fantsische 
90 Konstrutlonszichnungeneindnun auch zu Hause möglich Auf einer weiteren Service Diskette indan Si ine Fülle 
Hortigr liter und „Flmo« als Demonstraten und Grundstoc für eigene Übungen 

table und schnell Assembler Jr ale CPC-464 Ein umtangreicher Poudo-Betehlanat aowio die Vrar 
re 200 Belle sorgen für Fest. 

nd, is ich mit dem Thema Chemie beschäftigen. Naben dem Periodensystem 
1 Programm umlangreiche Inurmabonen zu jedem einzainen Element 
Irrscher über den Sta Kybomneten haben Sie Sorge dafür zu ragen, dad die Wirtschaft ut, ie 
zuiieden und und in bezug auf den Umwetschuz abe zum besten Destaı al Diesesatragische Sinus, 
fordert wel Geschick und Denkarbeit 
Fi. Ile und aktionsreicher Spieles Fire gerade das Richige Es sorgt für abwechslungsreiche 
Stunden. Uns ale weiteren Programme aus diesem Happy.Computer-Sonderhaf. 


1 Diskette für Schneider-Computer e 
Bestell-Nr. 25716 (sFr 29,50/85 349,-") DM 34,90 


1 Diekette für Schneider-Computer »Demonstrationen zu Giga CAD- ei 
Bestell-Nr. 26716 (sFr 29,50/85 349,-") DM 34,90 


Beide Disketten Im Paket, “ 
Bestell-Nr. 27716 (sFr 4350/68 498,-- DM 49,80 


Programme aus früheren Happy-Ausgaben 


Ausgabe Themes ____Boetsiär. 

Wer Schneider zız03 Diskene 
1286 Schneider UHBOI2 SD Die — 2950 
IHB612SK 2 Kassetten 2950 
1186 Schneider LHB6ISD Dekte 3490: 2050 
IHBSNSK Kassette 3490° 2950 
986 Schneider Diskene 2950 
2350 
786 Schneider 2950 
86 Schneider Diskene 2490 
Kassette 2490 
12/85 Schneider, IHBST2D Diskette 2850 
IHss12G . 2400 


Kassette 


Weitere Stammhefte zum Thema 


Schneider-Computer 


Happy-Computer, Ausgabe 3/87 
Happy-Painter: Super-Malprogramm mit vorbildlicher Bedienerführung und fantasti- 
schen Fählgkeilen für alle CPCs (Listing des Monats 1/87). Disccopy: Kopiert nahezu alle 
%Zoll-Disketten. Selbst überlange« Spuren mit zehn Sektoren oder illegale Sektornum- 
mern stellen kein Problem dar. Copyit: Auch Besitzern eines Kassettenrecorders als Spei- 
chermedium steht mit Copyit ein leistungsfähiges Backup-Programm zur Verfügung 
Discservice: Völlig neue und überaus praktische Funktionen. Bruch: Findet und zeigt 
sämtliche REMarks in Basic-Listings auf Bildschirm oder Drucker. 

Und alle weiteren Programme aus den Happy-Computer-Ausgaben 1, 2 und %/87 für die 
Schneider PCs. 

Diskette für Schneider-Computer 

Bestell-Nr. 21703 

DM 29,90* sFr24,90/ö5 299," 


Happy-Computer, Ausgabe 12/86 


‚Goldraln. Wertet Ihre Spielkarten des Bild-Gokdregen-Spiels aus. Sereen-Compressor. 
‚Speichert Bildschirminhalte platzsparend und mit erheblichem Geschwindigkeitsge- 
winn. Sie haben dabei die Wahl zwischen ganzen Bildschirmen, Ausschnitten und Win- 
‚dows, Kurslv. Ideal für Textverarbeitung: Verwenden Sie auf dem Bildschirm denselben 
kursiven Zeichensatz wie auf dem Drucker. Super-CLS. Neuer RSX-Befehl zur effektvol- 
on Bildschirmlöschung. Newgosub. Ein Patch des GOSUB-Befehls erlaubt strukturierte 
Basic-Programmierung mit Unterprogrammnamen (nur CPC 464). DEC$-Patch. Endlich 
die perfekte Abhilfe für einen Fehler im Basic-Interpreter des CPC 464: Die Syntax des 
Befehls DECS ist, nun korrigiert und somit kompatibel zu den beiden anderen CPC- 
Modellen (nur CPC 484). Public-Domaln. Als besonderen Leckerbissen bieten wir Ihnen 
verschiedene Public-Domain-Programme. Darunterfinden Sie e einen Interpreter der Ki- 
Sprachen Lisp und Prolog mit Dokumentation und Beispielen sowie einen Forth-Compiler 
und einen Makroassembler. 


1 Diskette für Schneider-Computer 
Bestell-Nr. LH 8612 SD 


DM 34,90*/aFr 29,50185 349,-" 
*inkl‚MwSt. Unverbindliche Preisempfehlung, 


2 Kassetten für Schneider-Computer 
Bestell-Nr. LH 8612 SK 


DM 34,90*/sFr 29,50/88 349,- 


Bestellungen bittean: 


Bestell-Nr. 


86 


4/86 Schneider 


186 Schneider 


Schneider 
LH8687SK_ Kassette 3490: 2060 

Schneider LH 8654 D Diskette ir 3490° 29,50 
IHBsSaK Kate  _2990° 24,00) 
LHBESID Die 540° 2050 
IHBSSIK Kassette 

Schneider LH85S2D Diskette 
IHBSS2V SWrDiskete AA" 2050 
LH8SS2K Kassette 2390° 2490 


Einige Tips zum Umgang mit den Leserservice-Disketten: 

‚Auf der Diskette zu dieser Ausgabe finden Sie ein Basic-Programm namens 
„README.BAS«. Da es am Anfang gespeichert ist, starten Sie es bitte zuerst. 
Sie erhalten dadurch Informationen über die enthaltenen Programme. Dort 
erfahren Sie zu jeder Datei, was sie bewirkt und wo der gedruckte Beitrag dazu 


in der Ausgabe zu finden ist. 

Bei früheren Ausgaben hieß dieses Inhaltsverzeichnis ebenso beziehungs- 
weise »LISTME.BAS«. Dort besteht es aus einer ASCII-Datei, die Sie mit LOAD 
"README " « im normalen Locomotive-Basic laden und durch »LIST« auf den 
Bildschirm beziehungsweise mit »LIST #8« auf dem Drucker ausgeben. 


larkt & Technik Verlag AG, Unternehmensbersich Buchverlag, Hans-Pinsel-Straße 2, D-8013 Haar, Telefon (089) 4613-0 Schweiz: Markt &Technik Vertriebs 
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Bezahlung einer Rechnung im voraus. 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro-Zahlkarte, oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. Sie erleich- 
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EPC-LEARN 
Bild 2. CPC-Learn im Dump-Modus 


cc) 1986 


Haben Sie ein Programm 
komplett eingegeben, so wird 
es im Testmodus geprüft. Die 
Trace-Funktion erlaubt das 
schrittweise Abarbeiten der 
Programme. Die Inhalte der ein- 
zelnen Register, des Stacks und 
des Programmzählers werden 
dabei immer angezeigt - wahl- 
weise auch auf einem Drucker. 

Die Bildschirmausgabe des 
Programms erfolgt immer im 
Modus 1. Dadurch lassen sich 
leider nur sehr wenige Informa- 
tionen gleichzeitig darstellen. 
Eine Ausgabe im Modus 2 hätte 
mehr Überblick verschafft. Bei 
der Arbeit mit CPC-Learn muß 
der Anwender selbst darauf 
achten, daß der Stack nicht. in 
den Speicherbereich der Pro- 
gramme hineinläuft. Versucht 
man dann ein Beispielprogramm 
mittels Trace schrittweise bear- 
beiten zu lassen, so »hängt« 
‚sich der Computer auf. 

Abschließend läßt sich fest- 
stellen, daß CPC-Learn ein 
gutes Hilfsmittel für den Einstei- 
ger in Maschinensprache ist. 
Mit einem Preis von 98 Mark für 
die Kassetten- und 138 Mark für 
die Diskettenversion ist dieses 
Programmpaket sehr empfeh- 
lenswert, 


Ein Macro- 
Assembler und 
noch mehr 


Vom gleichen Hersteller gibt 
es auch einen Macro-Assem- 
bler für den Schneider CPC. 
Schon beim ersten flüchtigen 
Durchblättern des 75 Seiten 
starken Begleitbuches merkt 
man, daß »CPC-Macro« mehr 
kann als andere Macro-Assem- 
bler. Der Editor ist sehr komfor- 
tabel, aber durch die Aufteilung 
in einzelne Bildschirmseiten 
etwas gewöhnungsbedürftig. 
Die Steuerkommandos für Cur- 
sor, Löschen, Einfügen und so 
weiter sind denen von Wordstar 
nachempfunden. Somit erspa- 
ren sich viele Schneider- 
Besitzer das Umdenken. Ganze 
Bildschirmseiten lassen sich 
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sowohl am Stück kopieren als 
auch ausdrucken. 

Eine Besonderheit von CPC- 
Macro ist das strukturierte Pro- 
grammieren. So etwas kennt 
man sonst nur bei Hochspra- 
chen (zum Beispiel Pascal, C 
oder ADA). Macro stellt Anwei- 
sungen wie 


IF. .ELSE..ENDIF 

CASE. „OF. „ENDOF. „ENDCASE 
BEGIN. „UNTIL 

BEGIN. .WHILE. .REPEAT 


zur Verfügung. Wer schon ein- 
mal ein umfangreiches Maschi- 
nencode-Programm geschrie- 
ben hat, weiß das zu schätzen. 

Ebenfalls können wie bei 
einer Hochsprache Konstante 
und Variable vorab definiert wer- 
den. Später sind sie im Pro- 
gramm einfach unter ihrem 
Namen zu verwenden. Mehr- 
fach vorkommende Routinen 
werden als Macros definiert - 
ebenfalls mit Parameterüber- 
gabe. Durch diese Strukturan- 
weisungen kann CPC-Macro 
auch bedingt assemblieren. 
Dies ist besonders dann inter- 
essant, wenn man ein Pro- 
gramm später auf verschiede- 
nen Betriebssystemen (zum 
Beispiel CP/M 2.2 und CP/M 
Plus) laufen lassen will. 

Ebenfalls neu für einen 
Assembler ist das modulare 
‚Assemblieren. Damit kann man 
zu bereits übersetzten Pro- 
grammteilen weitere hinzufü- 
gen. In etwa läßt es sich mit dem 
»Linken« bei einigen Hochspra- 
chen vergleichen. Ferner kann 
man den kompletten Speicher- 
inhalt im augenblicklichen 
Zustand auf Diskette speichern, 
um nach erneutem Start mit 
neuen Routinen weiterzuarbei- 
ten. Programmbibliotheken an- 
zulegen, aus denen dann gezielt 
- dank der bedingten Assem- 
blierung - benötigte Unterpro- 
gramme abgerufen werden, 
steht ebensowenig im Wege. 
Das Beispiel »Tiny-Basic« zeigt, 
wie Sie mit dem Assembler 
selbst einen kleinen Compiler 
aufbauen. 


Der Befehlsumfang von CPC- 
Macro ist sehr beachtlich. Lei- 
der fehlt eine tabellarische 
Übersicht im sonst sehr gut 
durchdachten und gegliederten 
Begleitbuch. Besonders Profis 
vermissen diese schmerzlich. 

Wie schon erwähnt, ist die 
Verwaltung der Source-Listings 
gewöhnungsbedürftig. Das 
eigene Format erlaubt dem 
Assembler auch nur mit dem 
eingebauten Editor eingege- 
bene Programme zu verarbei- 
ten. Die Programme werden in 
Seiten vonje 1 KByte Länge auf 
Diskette gespeichert. Ein Direc- 
tory wird dabei nicht verwaltet. 
Daraus ergibt sich zwangsläu- 
fig, daß der Benutzer sich selbst 
merken muß, ab welchem 
Screen (Seite) er welches Pro- 
gramm gespeichert hat. 

Im ganzen gesehen, erhält 
man für 138 Mark einen Assem- 
bler, der den Vergleich mit den 
Konkurrenten für den Schnei- 
der nicht zu scheuen braucht. 
CPC-Macro läuft übrigens unter 
CP/M 2.2 und unter CP/M Plus 
auf allen CPCs und dem Joyce. 

Hinter dem Namen CPC-Profi 


verbirgt sich eine Unterpro- 
grammsammlung für den CPC- 
Macro-Assembler auf 3-Zoll- 
Diskette. Das Aufzeichnungs- 
format des Assemblers macht 
es unmöglich, die Daten mit 
anderen Programmen zu lesen 
und zu verarbeiten. Im Begleit- 
heft sind alle Unterprogramme 
als Listing im mnemonischen 
Code abgedruckt. 

Die Routinen umfassen eine 
Sammlung von Unterprogram- 
men zur 16-Bit-Ganzzahl- 
arithmetik, Routinen zur Bear- 
beitung von Ein- und Ausgabe 
sowie Strings zum Zugriff auf 
Disketten, einen Quicksort- 
Algorithmus, ein Grafikpaket 
(Turtle-Grafik) und Routinen 
‚zum Aufbau eines kleinen Forth- 
Compilers. 

Die Programmsammlung 
kostet ebenfalls 138 Mark und 
istdamit im Vergleich zu den bei- 
den anderen Programmen von 
Holtkötter sehr teuer. Die Dis- 
kette ist sowohl für die CPCs 
wie auch den Joyce verwend- 
bar. (Hans-Werner Fromme/hg) 


Holtkötter, Albert-Schweitzer-Ring 9, 2000. 
Hamburg 


Cursorbewegungen 

<Cirl+S> oder Cursor ein Zeichen nach links 

<Pfeil links> 

<Ciri+D> oder Cursor ein Zeichen nach rechts 

<Pifeil rechts> 

<CiriHE> oder Cursor eine Zeile nach oben 

<Pfeil hoch> 

<Ctri+X> oder Cursor eine Zeile nach unten 

<Pfeil runter> 

<Retum> Cursor auf den Anfang der nächsten Zeile 


<Ctri+1> oder <Tab> Cursor auf die nächste Tabulatorposition 


<Chi+U> Cursor auf die letzte Tabulatorposition 

<Cti+A> Cursor ein Wort nach rechts 

<Chi+F> ‚Cursor ein Wort nach links 

<Chi+R> ‚Zurückblättern auf den vorigen Screen 

<Ctrl+C> Umblättern auf den nächsten Screen 

<Chl+J> Springen zu einem anderen Screen, dessen 
Nummer nach <Ctrl+J> eingegeben wird 

Löschen“ 

<Ctri+H> oder DEL Löschen des Zeichens links vom Cursor 

<Ctl+G> Löschen des Zeichens, auf dem der Cursor 
steht 

<Chi+Y> Löschen der Zeile, auf dem der Cursor steht 

<Otrl+L> Löschen des augenblicklichen Screens 


infügen und Einrücken 


<Ct+V> schaltet Einfügemodus ein 

<Chi+N> fügt neue Zeile ein 

<Ctr+T> schaltet Einrückmodus (Ident) ein 
‚Ausschnelden und Einsetzen. ; [ 
<Ch+Q> löscht Wort links vom Cursor 

<Chi+W> kopiert Wort links vom Cursor in den Puffer 
<Chi+Z> holt Wort aus dem Pufferspeicher 

Sichern und Beenden ar % k 

<Chri+K> Speichern der augenblicklichen Version 
<Chn+0> Restaurieren der letzten gespeicherten Version 
<Esc> Verlassen des Editors 


Die Editierfunktionen von CPC-Macro 


Turbo-Modula ist da! 


Heimsoeth, der deutsche Vertriebspartner von Bor- 
land, läßt die CP/M-Benutzer nicht im Stich. Nach 
Turbo-Pacsal gibt es jetzt mit Modula-2 eine zweite 
sehr interessante Sprache für 8-Bit-Computer. 


urbo-Pascal, der von einem 

dänischen Studenten ent- 
wickelte und von einem Franzo- 
sen in den USA eingeführte 
Pascal-Compiler, erzielte sa- 
genhafte Verkaufserfolge., Der 
Grund ist einfach: Preis und Lei- 
stung stehen in einem bisher 
unbekannten günstigen Verhält- 
nis zueinander, 

Doch Turbo-Pascal besitzt - 
trotz vieler Stärken - auch 
einige Schwächen. So fehlen 
linkfähiger Code, erweiterte Ein- 
und Ausgabefunktionen und ein 
Modulkonzept. Letzteres ist 
aber kein Manko von Turbo-Pas- 
cal, sondern liegt im grundsätzli- 
chen Konzept von Pascal be- 
gründet. Vorrangige Aufgabe 
von Pascal war der Einsatz als 
Lerninstrument für Studenten. 
Daß sich Pascal dennoch durch- 
‚setzte, spricht für das gute Kon- 
zept der Sprache. 

Aber Professor Wirth war in 
den letzten Jahren nicht untätig 
und entwickelte eine Sprache 
mit Namen »Modula«. Eine Synt- 
hese aus Modula und Pascal 
heißt Modula-2. Sie ist sehr 
stark an Pascal angelehnt. 
Daher wäre der Name »Pas- 
cal-2« vielleicht passender 
gewesen. 

Jedem, der in Pascal pro- 
grammieren kann, dürfte der 


Umstieg auf Modula-2 praktisch 
ohne Schwierigkeiten gelingen. 
Die hervorstechendste Erweite- 
rung ist aber das Konzept der 
Programmodule und Modulbi- 
bliotheken. Sie können so Funk- 
tionen und Prozeduren, die all- 
gemein Verwendung finden, 
compilieren und in einem Zwi- 
schencode auf Diskette able- 
gen. In Programmen, die diese 
Routinen benutzen, steht dann 
einfach ein Befehl, der sie 
»importiert«. Dabei bleibt den 
späteren Programmen der 
genaue Aufbau der Routinen 
verborgen. Jede Prozedur be- 
steht nämlich aus einem Defini- 
tionsmodul, das die Deklaratio- 
nen enthält, und einem Imple- 
mentationsmodul mit dem ent- 
sprechenden Programmcode. 
Nur das Definitionsmodul stellt 
die Verbindung zum aufrufen- 
den Programmsegment her. Der 
Rest ist »uninteressant«. 

Jede Menge Verbesserun- 
gen sind in das Konzept von 
Modula-2 eingeflossen. So wur- 
den viele Pascal-Konstruktio- 
nen syntaktisch einheitlicher 
und übersichtlicher gestaltet. 

Bisher waren Compiler für 
Modula-2 ausschließlich für 
größere Computer - IBM-PC 
aufwärts - verfügbar. Heim- 
soeth bietet jetzt mit Turbo- 


Modula-2 präsentiert sich im Wordstar-Look 


Modula erstmals einen Compi- 
ler für »kleinee Computer an. 
Und das zu einem typischen 
»Turbo-Preis«: 298 Mark. Der 
Käufer erhält einen Compiler, 
der dem Erscheinungsbild des 
Turbo-Pascal nachgeformt ist. 
Die Benutzeroberfläche ist sehr 
komfortabel zu bedienen. So ist 
der Texteditor wieder kompati- 
bel zu Wordstar, hat aber einige 
Verbesserungen erfahren. Er 
kann jetzt beispielsweise auch 
Dateien bearbeiten, die größer 
als der RAM-Bereich im Spei- 
cher sind. Der Modula-Compiler 
erzeugt einen Pseudo-Code, 
M-Code genannt, den das Lauf- 
zeitsystem interpretiert. Der 
Pseudo-Code ist fast so schnell 


wie echter Maschinencode, 
benötigt aber erheblich weniger 
Platz. Wer sein Programm unbe- 
dingt in Z80-Maschinencode 
übersetzen will, der muß den 
entsprechenden Codegenera- 
tor aufrufen und Standalone- 
‚Applikationen erzeugen. 

Es wäre nicht verwunderlich, 
wenn Turbo-Modula ein ähn- 
licher Erfolg würde, wie ihn 
schon Turbo-Pascal vorexer- 
zierte. Schließlich steht hiermit 
eine wirklich professionelle Pro- 
grammiersprache auch für 
Besitzer von Computern mit 
dem 8-Bit-CP/M zur Verfügung. 

(Elisabeth Stenzel/hg) 


Heimsoeth, Fraunhoferstr. 13, 8000 München 
5, Tel: 088/264060 


DFÜ-Programm für 
Schneider CPC 


Die Kommunikation zwischen einzelnen Compu- 
tern oder Computer und Mailbox gewinnt zuneh- 
mend an Bedeutung. Mit dem Terminalprogramm 
»CPC-COM« bereichert ein weiteres Produkt den 
Markt, das diese Kommunikationsform unterstützt. 


mmer mehr Computerbesit- 

zer verspüren den Wunsch, 
per Datenfernübertragung (DFÜ) 
mit anderen Computern und 
Mailboxen über weite Entfer- 
nungen hinweg zu kommunizie- 
ren, um Informationen oder Pro- 
gramme auszutauschen. 

Damit dieser Wunsch auch 
Wirklichkeit wird, benötigt der 
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DFÜ-interessierte Benutzer 
neben seinem Computer eine 
serielle Schnittstelle (RS 232C), 
einen Akustikkoppler bezie- 
hungsweise ein Modem und 
nicht zuletzt ein Terminalpı 
gramm, dessen Leistungsfähig- 
keit entscheidenden Einfluß auf 
die Qualität und den Komfort der 
Datenfernübertragung nimmt. 


Genau diesen Zweck erfüllt 
das Programm »CPC-COM«. 
CPC-COM wird entweder auf 
Kassette oder Diskette geliefert 
und ist für alle CPC-Modelle und 
den Joyce erhältlich. Zum Lie- 
ferumfang des Programms ge- 
hört neben dem Datenträger 
auch ein umfangreiches Hand- 
buch. 

Das gebundene Handbuch ist 
eine der besten Anleitungen zu 
einem Computerprogramm, die 
uns je unter die Augen kam. 
Über 130 Seiten geben sehr 
ausführlich Auskunft über die 
verschiedenen Funktionen, die 
CPC-COM bietet. Der Bedie- 


nungsführung widmen sich 
sechs Kapitel und ein großer 
Anhang, der einen guten Ein- 
blick in die Datenfernübertra- 
gung vermittelt. 

Das Handbuch geht ebenso 
auf die Aufgaben und Funktio- 
nen von Netzwerken ein, wie auf 
die Funktionsweise der seriel- 
len Datenübertragung. Zahlrei- 
che Beispiele aus der Praxis 
helfen dem Leser, die Bedie- 
nung und die Eigenschaften von 
CPC-COM zu verstehen. 

Ein weiterer Abschnitt befaßt 
sich mit der Definition und 
Behandlung von Makros, einer 
Besonderheit für ein Terminal- 
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programm. Diese Funktion wird 
anhand eines Beispiels für die 
Kommunikation über Telefonlei- 
tungen mit Übersee über Da- 
tex-P (dem von der Deutschen 
Bundespost angebotenen Da- 
tennetz) sehr genau erläutert. 


Mehr Freiheit 
mit Makros 


Die Makros sind der wichtig- 
ste Unterschied, den CPC- 
COM gegenüber anderen Pro- 
grammen aufweist. Makros eig- 
nen sich für alle Eingaben oder 
Befehlssequenzen, die inner- 
halb oder während des Ablaufs 
eines Programms mehrmals be- 
nötigt werden, Ein großer Vorteil 
ist, daß diese Makros vor der 
eigentlichen Datenfernübertra- 
gung definiert oder verändert 
werden können, um sie wäh- 
rend des Dialoges halb- oder 
vollautomatisch aufzurufen. 

Sollen zum Beispiel längere 
Programme, Informationen oder 
Befehlsfolgen gesendet wer- 
den, so hilft hier der Makro- 
Befehl sTRANSMIT« weiter, der 
auch umfangreiche Textdateien 
übermittelt. Einzige Bedingung 
ist, daß die zu übertragenden 
Daten mit dem auf der Diskette 
befindlichen Texteditor »EDIT« 
oder einem ähnlichen Editor 
geschrieben wurden. 

Es können mehrere Bibliothe- 
ken von Makros auf Diskette 
gespeichert und von dort wie- 
der geladen werden. Das be- 
deutet für den Anwender, daß er 
für verschiedene DFÜ-Verbin- 
dungen immer die richtigen Ma- 
kros beziehungsweise Informa- 
tionsketten zur Verfügung hat. 


Die Diskettenversion von 
CPC-COM beinhaltet neben 
dem eigentlichen Kommunika- 
tionprogramm noch den Text- 
editor »EDIT«. Damit schreiben 
Sie Textdateien für die Daten- 
fernübertragung oder bereiten 
schon vorhandene Dateien für 
die Übermittlung durch CPC- 
COM auf. EDIT kann aber auch 
im Sinne herkömmlicher Text- 
editoren eingesetzt werden, 
also zum Schreiben von Pro- 
grammen oder als Textverarbei- 
tungssystem. 

Als besonderer Vorteil des 
Editors macht sich bemerkbar, 
daß er sich in der Bedienung 
stark am Textverarbeitungspro- 
gramm Wordstar orientiert 
(Wordstar-kompatibel). Da viele 
Anwender mit Wordstar arbei- 
ten, erspart dies die lästige 
Umstellung auf die Bedienung 
eines »fremden« Texteditors. 

Abgesehen vom Editor ist 
CPC-COM menügeführt. Die 
unter CP/M realisierte Fenster- 
technik gestaltet alle Befehls- 
eingaben sehr übersichtlich. 
Eine bestimmte Funktion wird 
entweder durch Eingabe der 
zugehörigen Ziffer oder mit Hilfe 
der Pfeiltasten angewählt. 

Zu den technischen Merkma- 
len des Programms istzusagen, 
daß man zusätzlich zu der Ein- 
stellung der Standardparameter 
(Baudrate, Daten- und Stopbits, 
XON/XOFF-Protokoll, Parität, 
Voll- oder Halbduplexbetrieb) 
auch den verwendeten Zei- 
chensatz wählen kann, das 
heißt, daß Sie zwischen DIN- 
Zeichensatz und dem amerika- 
nischen Zeichensatz umschal- 
ten können. 


Das XON/XOFF-Protokoll ist 
eine Einrichtung zur Kontrolle 
der Datenfernübertragung zwi- 
schen zwei Computern oder 
zwischen Computer und Mail- 
box. Wurde zwischen zwei 
Geräten das XON/XOFF-Proto- 
koll vereinbart, so ist einfach 
eine gegenseitige Kontrolle 
möglich. Sollte eines der beiden 
Kommunikationsgeräte nicht 
mit der Datenfernübertragung, 
sondern mit einer anderen 
‚Arbeit beschäftigt sein, so kann 
es diesen Umstand dem Emp- 
fänger mitteilen. Wenn Sie bei- 
spielsweise zwischendurch 
einen Text ausdrucken möch- 
ten, senden Sie einfach das 
XOFF-Signal. Dadurch stellt das 
andere Gerät die Datenübertra- 
gung sofort ein und wartet so 
lange, bis es wieder das XON- 
Signal erhält. 


Vielfalt 
an Funktionen 


Das Hauptbefehlsmenü von 
CPC-COM gliedert sich in 
sechs Untermenüs. Der erste 
Punkt betrifft die Behandlung 
von Makros (Definition und 
Modifikation) und der zweite 
Punkt den Kommunikationsmo- 
dus. Die weiteren Menüpunkte 
steuern Protokollierung, Ver- 
waltung von Dateien, Initialisie- 
rung der Systemparameter und 
Rückkehr in die CP/M-Kom- 
mandoebene. 

Innerhalb des Untermenüs 
»Protokollierung« kann man sich 
wiederum für verschiedene 
Unterpunkte entscheiden. Die 
Protokollierung der Kommuni- 
kationstexte auf Diskette oder 


auf einem angeschlossenen 
Drucker läßt sich durch Aktivie- 
ren der einzelnen Kommandos 
an- beziehungsweise abschal- 
ten. 

Dabei spielt es keine Rolle, ob 
der Computer mit einer dieser 
beiden Funktionen belegt ist. 
‚Sie können durchaus beide Pro- 
grammteile aktivieren. Diese 
zusätzlichen Möglichkeiten 
beeinflussen die Handlungs- 
weise des DFÜ-Programms 
nicht. 

CPC-COM ist mit einem Preis 
von 139 Mark für die Disketten- 
version (CPC- und Joyce-Ver- 
sion auf einer Diskette) und mit 
98 Mark für die Kassettenver- 
sion (ohne Texteditor EDIT) 
nicht gerade billig, aber die lei- 
stungsfähige Software und das 
hervorragende Handbuch recht- 
fertigen diesen Preis. 

Zusammenfassend gesagt, 
ist CPC-COM ein Terminalpro- 
gramm, das sowohl dem Anfän- 
ger, der in das Thema DFÜ ein- 
steigen will, als auch dem Fort- 
geschrittenen uneingeschränkt 
zu empfehlen ist. Das beige- 
fügte umfangreiche Handbuch 
erleichtert dem Anfänger den 
Einstieg in die Materie und bie- 
tet auch für den erfahrenen 
‚Anwender wertvolle Informatio- 
men und Hinweise. So ist zum 
Beispiel im Anhang des Buches 
ein Mailboxführer abgedruckt, 
dessen Telefonnummern - im 
Gegensatz zu den Angaben in 
anderen Publikationen - sogar 
vor der Veröffentlichung geprüft 
wurden. 

(Markus Zietlow/ma) 


Firma. Holtkötter, Albert-Schweitzer-Ring 9, 
2000 Hamburg 


Comal auf dem Vormarsch 


Seit 1984 in Deutschland frei kopierbare Versionen 
von »Comal« auf den Markt kamen, hat sich diese 
Programmiersprache so weit verbreitet, daß sie 
bereits in den Schulrichtlinien einiger Bundes- 
länder für den Unterricht empfohlen wird. 


omal ist ähnlich wie Pascal 

ebenfalls eine strukturierte 
Programmiersprache, Der größte 
Unterschied zu Pascal besteht 
darin, daß in Comal neudefi- 
nierte Befehle, Funktionen und 
Prozeduren im Direktmodus auf- 
rufbar sind und Fehlerzustände 
durch das Programm behandelt 
werden können. Eventuell auf- 
tretende Syntaxfehler werden 
direkt bei der Eingabe angege- 
ben und können ohne Umstände 
sofort berichtigt werden. 
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Die bisher für die CPC-Mo- 
delle auf Diskette vertriebene 
Comal-Version 1.83 ergänzen 
nun zwei weitere Versionen. Die 
eine Version ist in einem Modul 
enthalten, das einfach an die 
Rückseite des CPC auf den Er- 
weiterungsanschluß gesteckt 
wird. Mit ihm steht dem Anwen- 
der nun erfreulicherweise ein 
erheblich größerer Befehlsum- 
fang und volle 35 KByte Spei- 
cherplatz für Programm und 
Daten zur Verfügung. 


Auch deutsche Fehlermel- 
dungen können abgerufen und 
die zweiten 64 KByte beim 
6128 als RAM-Floppy genutzt 
werden. Ebenso unterstützt 
Comal einige Speichererweite- 
rungen und die Firma Vortex ist 
auch bereit, das Programm an 
ihre Erweiterung anzupassen. 

Die wichtigsten Änderungen 
bestehen jedoch darin, daß nun 
relative Dateien angelegt und 
sequentielle Dateien im 
APPEND-Modus betrieben wer- 
den können. Das heißt, eine 
bereits angelegte, beschrie- 
bene und wieder geschlossene 
Datei darf erneutzum Schreiben 
‚oder Weiterschreiben geöffnet 
werden. 

Für den Joyce und andere 


Z80-Computer gibt es jetzt 
ebenfalls eine CP/M-Version 
von Comal. Ihr größter Vorteil 
liegt sicherlich im mitgelieferten 
Runtime-Modul, so daß nun 
unter Comal geschriebene Pro- 
gramme auch ohne die Pro- 
grammiersprache unter CP/M 
ablaufen können. 

Die beiden vorgestellten Ver- 
sionen von Comal erscheinen 
vorerst noch mit dänischem (!) 
Handbuch, doch ein deutsches 
Handbuch ist in Bearbeitung 
und wird in absehbarer Zeit 
jedem Benutzer kostenlos 
nachgeliefert. 

(Markus Zietlow/ma) 


D. Belz, Comalgruppe Deutschland, 2270 
Utersum/Föhr, Telefon 04683/5600 


Wir haben alle wichtigen Sprachen miteinander 
verglichen und geben nützliche Hinweise, um Ihnen die 
Auswahl zu erleichtern. 


Kein Problem das passende Computercamp mit Hilfe 
unserer großen Übersicht in dieser »Happy-Computer« 
zu finden. 


DesmaRe Super-Modul für den Spectrum: 
Unser Test zeigt, was in ihm steckt. 


De Der mit einer Ge erBenng bis zu DIN A3 
ist für professionelle es voll einsatzfähig. 


Nach der Vortelung des neuen Atari-PC neben 
leistungsstarken Kompatiblen wird MS-DOS immer 
interessanter für den Heimbereich. Tests, Kurse und 
Einstiegshilfen in dieser Ausgabe. 
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‚kostenlos als Probeexemplor. Wenn mir 
Und es mgelmäßi wenetiniehen möchn anche ei a urn eh eh Khan 


im Zeitschriffen- 
handel 


T. Untesscheft 
Mir ist bekomt, daß ich diese Bestellung innerhalb von 8 Togen bei der Bestellodresse widerufen kann 
l und bestige dies duch main zweite Unleschit. Zu 


Fer 2 Unser 7 |} 
usiüllen, ausschneiden, in ein Kuvert stecken und obsenden 8 
Nor tage Veroe Alsergesalch, Vertieh Fosiuch 1304, B013 or = 


Wenn Sie einen CPC 464/664 
besitzen und den Wunsch nach 
dem Leistungsvermögen des 
»großen Bruders« CPC 6128 ver- 
spüren, müssen Sie nicht gleich 
das Gerät wechseln. Ein Ausbau 
für zirka 150 Mark und ein Zeit- 
aufwand von zwei bis drei Stun- 
den machen Ihren 464/664 zum 
6128. 


and aufs Herz, als Besitzer 

eines CPC 464/664 haben Sie 

sich doch sicherlich auch 

schon gewünscht, über die Leistungs- 
merkmale des CPC 6128 verfügen zu 
können. Neidisch könnte man werden, 
wenn die CPC 6128-Kollegen schwär- 
men: »CP/M Plus hat seine Vorteile. 
Man kann Uhrzeit und Datum mitführen, 
Disketten oder auch einzelne Files mit 
Paßwort versehen sowie ohne weitere 
Investitionen für eine Speichererweite- 
rung Programme wie Turbo-Pascal, 
Wordstar und Multiplan optimal nutzen.« 
Da ist es schon frustrierend, wenn 
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man bedenkt, daß allein eine CP/M- 
fähige Speichererweiterung für den 
CPC 464/664 über 200 Mark kostet. 
So nehmen die Selbstvorwürfe ihren 
Lauf. »Warum habe ich nur nicht auf das 
6128-Modell gewartet? Wieder mal an 
der falschen Ecke gespart!« 

Doch Sie müssen sich beileibe nicht 
klaglos in Ihr Schicksal fügen. Wir 
beschreiben ausführlich, wie Sie Ihren 
CPC 464/664 ganz einfach zum CPC 
6128 ausbauen. Zusätzlich können Sie 
über einen Schalter zwischen der 
»alten« Version 464/664 und dem 
neuen Modell 6128 wählen. Kompatibi- 
litätsprobleme werden so elegant 
umgangen, weil Sie praktisch zwei 
Computer in einem Gehäuse besitzen. 

Eine Warnung jedoch vorweg: Durch 
den Ausbau gehen alle Garantieansprü- 
che verloren. So empfiehlt sich nur der 
Umbau von Geräten, bei denen die 
Garantiefrist von einem halben Jahr 
bereits abgelaufen ist. 

Wie geht nun aber der Umbau eines 
CPC 464/664 in einen CPC 6128 von- 
statten? Sind die Unterschiede zwi- 
schen den Computer-Modellen nicht 


so gravierend, daß ein Umbau ausge- 
schlossen ist? 

Zugegeben - ein oberflächlicher Ver- 
gleich zwischen den Platinen der drei 
Computer läßt viele optische Abwei- 
chungen erkennen. Ein Blick in die 
Schaltpläne der Computer-Modelle 
zeigt jedoch, daß die Modelle 464 und 
664 keine wesentlichen schaltungs- 
technischen Abweichungen aufwei- 
sen. 


Die kleinen 
Unterschiede 


Die Unterschiede der Modelle 
464/664 zum CPC 6128 bestehen 
zum einen in dem doppelt so großen 
Arbeitsspeicher des 6128 sowie dem 
PAL-Baustein und einem AND-Gatter, 
die die zusätzliche Speicherbank ver- 
walten, zum anderen in einem neuen 
ROM-Baustein, der ein überarbeitetes 
Betriebssystem enthält. Kaum erwäh- 
nenswert sind zwei zusätzliche Wider- 
stände im CPC 6128, und wider Erwar- 
ten finden sich keine funktionellen 


Unterschiede bei den Gate Arrays der 
verschiedenen CPC-Versionen. 

Nun liegt nichts näher, als die im CPC 
464/664 »fehlenden« Bauteile so ein- 
zubauen, daß sie mit der übrigen Hard- 
ware des Computers wie im CPC 6128 
verschaltet -sind. Dadurch muß ein 
modifizierter CPC 464/664 wie ein 
CPC 6128 arbeiten. Ein probeweiser 
Umbau hat uns bewiesen, daß das Ver- 
fahren nicht nur theoretisch, sondern 
auch in der Praxis funktioniert. Nur die 
Tastatur und der Recorder beim CPC 
464 erinnern noch an seine ursprüngli- 
che Identität. Alle Funktionen des 6128 
laufen einwandfrei. 


Dem Computer 
an den Kragen 


Sind Sie auf den Geschmack gekom- 
men, so lesen Sie zunächst die 
gesamte Umbau-Anleitung sorgfältig 
durch. Sie werden bemerken, daß 
einige Erfahrung im Umgang mit dem 
Lötkolben erforderlich ist. Wenn Ihnen 
selbst diese Übung fehlt, kennen Sie 
vielleicht einen Bastler, der Ihren Com- 
puter gegen eine kleine Gefälligkeit 
ausbaut. Wenn Sie dann zur Tat schrei- 
ten, gehen Sie bitte genau wie 
beschrieben vor, um sich unnötige Feh- 
ler und Ärger zu ersparen. 

Die Tabelle zeigt, welche Bauteile Sie 
zum Ausbau Ihres CPC benötigen. Bis 
auf das PAL (programmierbare logische 
Einheit) und das 6128-ROM (Betriebs- 
system des CPC 6128) handelt es sich 
um Standardbauteile, die in jedem Elek- 
tronikgeschäft erhältlich sind. Das PAL 
und das 6128-ROM müssen Sie dage- 
gen über den Fachhandel unter der 
angegebenen Nummer bei der Firma 
Schneider bestellen. Das PAL kostet 
etwa 45 Mark und das 6128-ROM 
ungefähr 75 Mark. Damit macht der 
Preis dieser beiden Bausteine den 
Löwenanteil unter den Kosten für den 
Umbau aus. Entsprechend sorgsam 
sollten Sie mit den ICs umgehen. 

Bevor Sie mit dem Ausbau beginnen, 
müssen Sie Pin 15 aller neuen RAM- 
Bausteine und Pin 20 des 6128-ROM 
vorsichtig um fast 90 Grad abwinkeln. 
Zu diesem Zweck eignet sich eine Pin- 
zette für Briefmarken vorzüglich. Bie- 
gen Sie die Pins nur ein einziges Mal, 
sonst besteht nämlich leicht die Gefahr, 
daß ein Pin an der Nahtstelle des IC- 
Gehäuses abbricht. 

Wenn Sie alle Pins umgebogen ha- 
ben, schrauben Sie das Gehäuse Ihres 
(ausgeschalteten!) CPC auf und legen 
die Computerplatine frei. Sie entfernen 


- zunächst das Kühlblech über dem Gate 


Array (nur beim CPC 464 erforderlich), 
indem Sie die Aluminium-Klemmhalte- 
rung an einer Seite soweit aufbiegen, 


daß Sie das Blech herausnehmen kön- 
nen. 

Bei der weißen Masse unter dem 
Kühlblech handelt es sich um Wärme- 
leitpaste. Achten Sie darauf, daß sich 
beim Wiedereinbau des Kühlblechs 
noch genügend Paste auf dem IC befin- 
det, und kaufen Sie gegebenenfalls 
etwas davon nach. (Die Paste setzt den 
Wärmewiderstand zwischen Gate Array 
und Kühlblech herunter, so daß ein 
guterthermischer Kontakt entsteht, der 
wiederum die Kühlfunktion des Kühl- 
blechs positiv beeinflußt.) _ 

Nachdem das Kühlblech über dem 
Gate Array entfernt ist, liegen die acht 
bereits im CPC eingebauten RAM- 
Bausteine frei. Die neuen RAM- 
Bausteine werden nun paßgenau auf 
die alten Bausteine »huckepack« aufge- 
lötet. Die IC-Kerbe des oberen Bau- 
steins muß über der IC-Kerbe des 
unteren Bausteins sitzen, Pin 1 also 
über Pin 1 etc. 
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Tabelle. Diese Bauteile benötigen Sie 
für den Ausbau zum CPC 6128 


Da Sie beim Löten sehr wenig Platz 
haben, ist dies eine etwas knifflige 
Angelegenheit. Ihr Lötkolben sollte zu 
diesem Zweck nicht der sein, mit dem 
Sie Ihre Dachrinne reparierten. Viel- 
mehr muß er eine Leistungsaufnahme 
von zirka 15 bis 25 Watt besitzen und 
über eine dünne Lötspitze verfügen, die 
ein punktgenaues Löten gestattet. 

Auch an das Lot werden gewisse 
Anforderungen gestellt. Verwenden Sie 
grundsätzlich (dies gilt für alle 
Elektronik-Lötarbeiten) ein qualitativ 
hochwertiges Lot, das in seinem Kern 
eine Kolophonium-Masse ummantelt, 
die die zu verlötende Stelle vor dem 
eigentlichen Lötfluß benetzt und even- 
tuelle Oxidationsschichten entfernt. 
Nur so bekommen Sie eine glänzende 
Lötstelle, die gut leitet. 

Die Lötzeiten sollten eine Dauer von 
drei Sekunden nicht überschreiten. 
Wenn Sie der Meinung sind, daß Sie 


eine Lötverbindung nicht korrekt aus- 
geführt haben, löten Sie zunächst an 
der nächsten Stelle weiter und merken 
Sie sich die Position der fraglichen Löt- 
stelle. In einem zweiten Durchgang kön- 
nen Sie dann diese Lötverbindung aus- 
bessern. Bis dahin hat sich auch der 
Baustein von dem ersten Kontakt mit 
dem Lötkolben »erholt«, so daß er für 
den nächsten Hitzeschwall besser vor- 
bereitet ist. 

Längerer Kontakt eines IC mit dem 
heißen Lötkolben ist gefährlich, weil 
dadurch der Baustein zerstört werden 
kann. Spielt auch nur ein RAM-Baustein 
nichtmehr mit, so fällt in jeder Speicher- 
stelle der zweiten Speicherbank des 
CP ein Bit aus. 

Doch zurück zum Auflöten der acht 
RAM-Bausteine. Mit dem heißen Lötkol- 
ben und dem Lötzinn fixieren Sie kurz 
Pin 8 des oberen Bausteins mit Pin 8 
des unteren Bausteins, um eventuell 
letzte Korrekturen vornehmen zu kön- 
nen. Sitzen alle Pins des oberen Bau- 
steins auf den entsprechenden Pins 
des unteren Bausteins (nur das abge- 
winkelte Pin 15 darf keinen Kontakt mit 
dem zugehörigen unteren Pin 15 
haben), so können Sie mit dem endgül- 
tigen Verlöten beginnen. Achten Sie 
darauf, daß Sie keine Lötbrücken zwi- 
schen den Pins ziehen und daß keine 
Lotkügelchen zwischen oder unter die 
ICs geraten - Kurzschlüsse wären die 
Folge. 

Nachdem Sie den ersten RAM-Bau- 
stein aufgelötet haben, tun Sie sich 
selbst einen großen Gefallen, wenn Sie 
die Computerplatine anheben und mit 
einem Durchgangsprüfer oder einem 
Ohmmeter den einwandfreien Kontakt 
des oberen RAM-Bausteins zum 
unteren Baustein überprüfen. Dazu 
gehen Sie miteiner Meßspitze unter der 
Platine an das erste Pin des eingebau- 
ten RAM-Bausteins und mit der ande- 
ren Meßspitze von der Bestückungs- 
seite an den entsprechenden Anschluß 
des aufgelöteten Bausteins. 


Löten, Prüfen, 
Isolieren 


Dieses Verfahren wiederholen Sie für 
jedes Pinpaar. Abhängig von dem Meß- 
gerät, das Sie verwenden, müssen Sie 
jedesmal O0 Ohm erhalten, ein Licht 
leuchten sehen oder einen Piepton 
hören. Lediglich Pinpaar 15 darf keine 
Reaktion zeigen, weil diese beiden 
Anschlüsse nicht miteinander verlötet 
sind. 

Fällt der Test zu Ihrer Zufriedenheit 
aus, löten Sie nacheinander RAM-Bau- 
stein für RAM-Baustein auf die übrigen 
sieben eingebauten Bausteine auf und 
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Bild 1. So werden die beiden Sockel auf der Lochrasterplatine mit den ICs 


der Computerplatine verbunden 


messen wieder die Lötverbindungen 
wie beschrieben durch. 

Anschließend nehmen Sie ein Stück 
Schaltdraht, isolieren an einem Ende 
zirka 3 bis 4 mm ab, verzinnen den blan- 
ken Draht und löten ihn am abgewinkel- 
ten Pin des ersten von Ihnen aufgelöte- 
ten RAM-Bausteins an. Dann führen Sie 
den Draht bis zum abgewinkelten Pin 
des benachbarten IC. Hier kürzen Sie 
den Draht soweit, daß das Ende auf 
dem abgewinkelten Pin aufliegen kann, 
isolieren vom Ende wieder 3 bis 4 mm 
ab, verzinnen das Drahtende und legen 
es auf das besagte Pin. 


Nun nehmen Sie sich ein zweites 
Stück Draht, isolieren es wie beschrie- 
ben ab, verzinnen es, und legen es 
ebenfalls auf Pin 15 des zweiten RAM- 
Bausteins. Jetzt müssen Sie Pin 15 nur 
vorsichtig mit dem heißen Lötkolben 
berühren, so daß sich das Zinn über die 
beiden Drahtenden und das Pin verteilt 
und das Ganze dadurch verlötet. Das 
freie Ende des zweiten Drahts führen 
Sie nun zum nächsten benachbarten 
RAM-Baustein und verfahren dort, wie 
mit dem zweiten RAM-Baustein. Dies 
führen Sie bis zum achten RAM- 
Baustein fort, so daß anschließend alle 


acht RAM-Bausteine über das abge- 
winkelte Pin 15 miteinander verbunden 
sind. 

Das freie Ende des letzten Drahtes 
am achten RAM-Baustein löten Sie pro- 
visorisch an einen Punkt, der +5 Volt 
führt (zum Beispiel an den Mittelpol der 
+5-Volt-Eingangsspannungsbuchse). 

Danach verbinden Sie Ihren CPC mit 
den Kabeln vom Monitor und schalten 
kurz ein (kurz, weil das Gate Array ohne 
Kühlblech sehr heiß wird). Zeigt der 
Computer nun die gewohnte Einschalt- 
meldung, ist alles in Ordnung. Ge- 
schieht dies nicht, so haben Sie wahr- 
scheinlich eine Lötbrücke übersehen, 
oder etwas Lötzinn ist unter einen Bau- 
stein geraten und verursacht einen 
Kurzschluß. 

Mit einem Durchgangsprüfer oder 
einem Ohmmeter können Sie diesen 
Fehler relativ einfach finden und das 
überflüssige Lot mit Entlötlitze oder 
einer Entlötpumpe absaugen. Bei posi- 
tivem Einschalttest müssen Sie nach 
dem Ausschalten des Computers an 
Pin 3 des Gate Array die Leiterbahn auf- 
trennen. Dazu eignet sich ein kleines 
Messer oder ein spitzer Schraubendre- 
her. Die besagte Leiterbahn finden Sie 
auf der Bestückungsseite der Compu- 
terplatine. Etwa 3 bis 4 mm vom Sockel 
des Gate Array entfernt trennen Sie 
diese Bahn auf. Testen Sie die Trennung 
mit einem Durchgangsprüfer (kein 
Licht) oder einem Ohmmeter (Zeiger 
am Anschlag)! 

Direkt auf das Pin 3 des Gate Array 
löten Sie einen zirka 20 cm langen 
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Bild 2. Dies sind die Anschlüsse im CPC 464 für die Leitungen der Lochrasterplatine... 
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Bild 3. ...und so werden die Leitungen an die Computerplatine des CPC 664 angeschlossen 


Schaltdraht, der später mit dem PAL 
verbunden wird. Danach versehen Sie 
das Gate Array wieder mit dem Kühl- 
blech, und biegen die Aluminium- 
Halterung zurecht, so daß das Kühl- 
blech mit festem Kontakt auf dem Bau- 
stein sitzt. Da das Kühlblech zwei auf- 
gelötete RAM-Bausteine dicht über- 
lappt, müssen Sie durch seitliches Dar- 
unterschauen überprüfen, daß nicht 
eins oder beide der abgewinkelten Pins 
der RAM-Bausteine das Blech berüh- 


ren. Gegebenenfalls schieben Sie ein 
doppelt gefaltetes Stück Papier zwi- 
schen die Pins und das Kühlblech. 
Nehmen Sie jetzt die Computerpla- 
tine aus dem Gehäuse, drehen Sie sie 
auf die Rückseite, und löten Sie die bei- 
den 680-Ohm-Widerstände an das IC 
104. Ein Widerstand muß zwischen Pin 
9 und Pin 14, der andere zwischen Pin 
7 und Pin 16 gelötet werden. Achten 
Sie genau darauf, daß die Anschlüsse 
der Widerstände nichts kurzschließen! 


Dann klemmen Sie einen kleinen 
Schraubendreher zwischen Pin 9 und 
Pin 10. des IC 109 auf der Bestückungs- 
seite der Hauptplatine. Nun berühren 
Sie Pin 10 mit dem heißen Lötkolben. 
Sobald das Zinn schmilzt, hebeln Sie 
mit dem Schraubendreher gegen Pin 9 
drückend Pin 10 aus der Platine und 
biegen es um fast 90 Grad in die 
Waagerechte (siehe RAM-Bausteine). 

Ebenso verfahren Sie mit Pin 6 des 
gleichen IC und mit Pin 20 des bereits 


Joystick- 
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Bild 4. Alle Signale von der Computerplatin« 
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ÄASHTON TATE MICRSSO 


ordStar, dBASE Il, MÜL 


Ein Bestseller unter den Textverarbeitungs- 
programmen, der Ihnen bildschirmorien- 
tierte Formatierung, deutschen Zeichen- 
satz und DIN Tastatur sowie integrierte 
Hilfstexte bietet. Mit MailMerge können 
Sie Serienbriefe mit persönlicher Anrede 
an eine beliebige Anzahl von Adressen 
schreiben und auch die Adreßaufkleber 
ausdrucken. 


dBASE Il, das meistverkaufte Programm 
unter den Datenbanksystemen, eröffnet 
Ihnen optimale Möglichkeiten der Daten- 
und Dateihandhabung. Einfach und 
schnell können Datenstrukturen definiert, 
benutzt und geändert werden. Der 
Datenzugriff erfolgt, sequentiell oder nach 
frei wählbaren Kriterien, die integrierte 
Kommandosprache ermöglicht den 
Aufbau kompletter Anwendungen wie 
Finanzbuchhaltung, lagerverwaltung, 
Betriebsabrechnung usw. 


Wenn Sie die zeitraubende manuelle 
Verwaltung tabellarischer Aufstellungen 
mit Bleistift, Radiergummi und Rechen- 
maschine satt haben, dann ist MULTI- 
PLAN, das System zur Bearbeitung 
»elektronischer Datenblätter«, genau 
das Richtige für Sie! Das benutzer- 
freundliche und leistungsfähige Tabellen- 
kalkulationsprogramm kann bei allen 
‚Analyse- und Planungsberechnungen 
eingesetzt werden. 


Sie erhalten jedes WordStar-, 
dBASE Il- und MULTIPLAN- 
Programm für Ihren Schneider-Com- 
puter oder Commodore 128PC fertig 
angepaßt (Bildschirmsteuerung). 
Jeweils Originalproduktel Jedes 
Programmpaket enthält außerdem ein 
ausführliches Handbuch mit kompakter 
Befehlsübersicht 


Diese Markt& Technik-Softwareprodukte erhalt 
in den Computer-Abteilungen der Kaufhäuser, bei Ihrem Computerhä 
im Buchhandel oder direkt beim Verlag gegen Vorausi 


AN - für CP/M Computer 


IVIULTIPLAN Zei uns rewezse 


| 
Jedes Buch kostet 


DM 49,- 
(sFr. 45,10/6S 382,20) 
Erhältlich bei Ihrem Buchhändler. 


MICRSSOFT 


Narkt&Technik 
ın Zeitschriften her Bestellungen im Auslanı 
Software - Schulung en 


fechnik Verlag Aktiengesellschaft 
Pinsel-Str. 2, 8013 Haar bei München 


Best.-Nr. 90180, ISBN 3-89090-180-8 
WordStar für den Commodore 128PC 
Best.-Nr. 90181, ISBN 3-89090-181-6 
dBASE Il für den Commodore 128PC 
Best.-Nr. 90189, ISBN 3-89090-189-] 
dBASE Il für den Schneider CPC 

Best.-Nr. 90188, ISBN 3-89090-188-3 
MULTIPLAN für den Schneider CPC 
Best.-Nr. MT 835, ISBN 3-89090-186-7 
MULTIPLAN für den Commodore 128PC 
Best.-Nr. MT 836, ISBN 3-89090-189-] 


Schneider CPC 464, CPC 664, 
CPC 6128, Joyce, beliebiger Drucker 
mit Centronics-Schnittstelle. 


Commodore 128/128D, Diskettenlaufwerk, 
80-Zeichen-Monitor, Commodore- 
Drucker oder Drucker mit Centronics- 
Schnittstelle (ohne zwischengeschaltetes 
Interface). 

Übrigens gibt es WordStar, 
dBASE und MULTIPLAN auch für 
NDR-Computer. Zu beziehen bei 
Graf Elektronik Systeme GmbH, 
Magnusstraße 13, 8960 Kempten. 


/0 Zug, Tel. (042) 415656 


mbH. Alser Str. 24, A-1091 Wien, Tel. (0222) 481538-0 


+5V __Monitor 


Bild 5. Hier werden die Anschlüsse der Signale beim CPC 664 deutlich 


——— —— oo _ FD  — SS 
u — 

12B HH CSDE@I 248 IF a=%&91 THEN PRINT"6128” LAE4B1 
118 '* * tD4DAJ 252 ON ERROR GOTO 328 [B@141 
128 ‘* Demonstrationsprogramm * CDcDA3 260 ORIGIN 37@,258:DRAWR B,-199:DRAW -1@ 
130 '* * E12DE1 8,-100: DRAW -100,@:DRAW @,B:MOVE -50 
140 '* Peter Buendgens * [C896] ‚_5@ taa7a] 
150 '* Eschstr. 31 * L973E1 278 FILL 1:L0OCATE 38,13:PRINT"FILL !“ [2982] 
160 '* 5168 Dueren * [63021 28@ LOCATE 1,13:PRINT“Der DEC$-Befehl:"; 
170 '* Tel 02421/56567 * LFA1AI DECE (1077 , "HR a") 1522A1 
180 '* * t19EB) 298 LOCATE S@,13:PRINT"COPYCHR$:":FOR i= 
1FW 7 a L18F2] ® TO 3:LOCATE 38+i ‚13: a$=COPYCHR$ (#8 
200 ° TE4B21 ):LOCATE #B+i ,13:PRINT a$:NEXT izEND 
210 MODE 2:PRINT"Dies ist das Modell CPC [L669C1 

"j3a=PEEK (6) C68A81 3@@ PRINT"weil die Befehle FILL, DEC$ un 
220 IF a=-&B® THEN PRINT"464“ EDaDAI d COPYCHR$ auf diesem Computer nicht 
250 IF a=&7B THEN PRINT"664 (87BE1 funktionieren! ":END 132061 
Listing. Das Demonstrations-Programm überprüft die Modell-Version Ihres CPC 


eingebauten ROM. Nach dieser Arbeit 
können Sie die Platine wieder umdre- 
hen und festschrauben. 

Nun löten Sie den 28poligen Sockel, 
bei dem Sie zuvor Pin 20 abgekniffen 
haben, »huckepack« (siehe RAM- 
Bausteine) auf das eingebaute ROM 
(die Verbindung an Pin 20 bleibt offen), 
und anschließend die Sockel für das 
PAL und das IC 741808 auf die Loch- 
rasterplatine. 

Bild 1 zeigt, welche Anschlußpunkte 
der beiden Sockel Sie mit welchen Pins 
der ICs auf der Computerplatine verbin- 
den müssen. Bild 2 zeigt die angespro- 
chenen ICs mit den betroffenen Pins 
auf der Platine des CPC 464, und Bild 
3 verdeutlicht das entsprechende für 
den CPC 664. Die mit »NC« (no con- 
nection) bezeichneten Anschlüsse 
bleiben unbeschaltet. Das Signal 
»CASO« können Sie an ein beliebiges 
Pin 15 der fest eingebauten RAM- 
Bausteine führen, und »CAS1« wird mit 
dem zuvor an +5 Volt gelegten Schalt- 
draht des letzten aufgelöteten RAM- 
Bausteins verbunden. 

Damit Sie ganz sicher gehen können, 
zeigen Bild 4 (CPC 464) und 5 (CPC 
664) zusätzlich, wie Sie die 
Anschlüsse von der Computerplatine 
an die mit dem PAL und dem 741508 
bestückte Lochrasterplatine führen. 

Wenn. alle Anschlüsse des PAL und 
des IC 741508 mit den jeweiligen IC- 
Pins auf der Computerplatine verbun- 
den sind, können Sie zur Endverdrah- 
fung schreiten. Ob Sie die Lochraster- 
‚platine über der Bestückungsseite der 
Computerplatine montieren oder unter 
der Computerplatine plazieren, steht 
Ahnen frei. Wenn Sie die Verbindungen 
zwischen Computerplatine und Lochra- 
sterplatine sehr kurz gehalten haben, 
bleibt Ihnen ohnehin keine Wahl. In bei- 
‚den Fällen müssen Sie jedoch ein Stück 
Pappe zwischen die beiden Platinen 
schieben, damit es nichtzu Kurzschlüs- 
sen kommt! 

Die Lochrasterplatine bestücken Sie 
nun mit dem PAL und dem IC 741508; 
‚achten Sie aber auf die richtige Einbau- 
weise (siehe Kerbe). 

Zum Schluß schließen Sie nur noch 


die beiden ROMs an. Dazu wählen Sie 
zunächst für den zweipoligen Schalter 
einen Platz auf dem Tastaturgehäuse 
(zum Beispiel neben dem Schneider- 
Symbol) und passen den Schalter ein. 
Dann nehmen Sie vier zirka30 cmlange 
Schaltdrähte, isolieren die Enden ab 
und verzinnen sie entsprechend. 

Den ersten Draht löten Sie zwischen 
Pin 12 des Gate Array und einen der 
beiden Mittelabgriffe des Schalters. An 
den anderen Mittelabgriff löten Sie 
einen Schaltdraht, den Sie an die Span- 
nungsversorgung legen. 

Den dritten Schaltdraht löten Sie zwi- 
schen das abgewinkelte Pin 20 desein- 
gebauten ROM und einen der beiden 
freien Anschlüsse auf der Schalter- 
seite, auf der Sie Pin 12 des Gate Array 
an den Mittelabgriff legten. Den letzten 
Draht löten Sie entsprechend zwischen 
das abgewinkelte Pin 20 des 
6128-ROM und den letzten freien 
Anschluß auf der Schalterseite, auf der 
auch Pin 12 des Gate Array ange- 
schlossen ist. 

Nun müssen Sie nur noch die beiden 
Anschlüsse, die mit Pin 20 der beiden 
ROMs verbunden sind, über Kreuz mit 
den beiden freien Anschlüssen des 
Schalters auf der gegenüberliegenden 
Seite verdrahten. Bild 6 veranschau- 
licht die beschriebene Verschaltung. 

Die Verdrahtung hat den Sinn, daß Sie 


CPG 6128-ROM 


mit dem Schalter eines der beiden 
ROMs über das Baustein-Freigabe- 
Signal (CE) freischalten, während der 
andere Baustein auf +5 Volt liegt und 
dadurch gesperrt ist. Dies ist wichtig, 
damit zuverlässig nur ein ROM ange- 
wählt ist und das nichtbenötigte einen 
definierten Abschaltpegel erhält. 

Wenn Sie jetzt auch das 6128-ROM 
in den Sockel über dem eingebauten 
ROM stecken (achten Sie wieder auf 
die IC-Kerbe!), können Sie nach dem 
Zusammenschrauben des CPC den 
Computer in Betriebnehmen. Abhängig 
von der Stellung des Schalters ist ent- 
weder das eingebaute ROM oder das 
aufgesetzte 6128-ROM ausgewählt. 
Wenn Sie die andere Schalterstellung 
wählen und einen Reset durchführen, 
erscheint auch die andere Einschalt- 
meldung. 

Das Listing zeigt ein kleines 
Demonstrations-Programm, das zuerst 
über einen PEEK-Befehl die Modell- 
Version abfragt und darauf entweder 
drei Basic-Befehle, die im ROM des 
CPC 464 nicht implementiert sind 
(DEC$ nur unvollständig), ausführt 
oder eine entsprechende Meldung aus- 
gibt. Haben Sie sich auch CP/M Plus 
besorgt, so können Sie wie gewohnt 
(natürlich nur im 6128-Modus) mit 
»ICPM« CP/M Plus booten. 

(Peter Bündgens/ma) 


+5V (zB. IC 112, Pin 14) 


ROMEN (Gate Array, Pin 12) 


Bild 6. So werden die beiden ROMs über den Schalter ausgewählt 
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1x Controller = 2xDOS 


Schneider-Besitzern, die mit Vor- 
tex-Diskettenlaufwerken arbei- 
ten, aus Kompatibilitätsgründen 
jedoch nicht auf das »Amsdos« 
verzichten möchten, kann mit 
einem kleinen Umbau geholfen 
werden. 


as VDOS von Vortex hat gegen- 
D; Amsdos den Vorteil, daß 

es über einen komfortableren 
und leistungsfähigeren Befehlssatz 
verfügt, in dem die Befehle des Amsdos 
als Untermenge enthalten sind. 

Diese Tatsache istallerdings auch der 
Grund für Kompatibilitätsprobleme, so 
daß Programme, die auf ROM-Routinen 
des Amsdos zugreifen, mit dem VDOS 
von Vortex nicht zusammenarbeiten. 

Ein Idealfall ist es, wenn man als 
Besitzer eines Vortex-Diskettenlauf- 
werks neben dem im Controller einge- 
bauten VDOS auch einen Baustein mit 
dem Standard-DOS Amsdos besitzt, 
oder unter der Bestellnummer 29 223 
00-302 über den Handel als Ersatzteil 
zu beziehen ist. In diesem Fall lassen 
sich nämlich beide DOS-Varianten in 
den Vortex-Controller einbauen und 
nach Belieben über einen Schalter 
anwählen. 

Lediglich eine kleine Platine mit drei 
28poligen Steckplätzen, deren An- 
schlüsse miteinander verbunden sind, 
ist erforderlich. Wenn man dann noch 
die Leitung für das CE-Signal (Bau- 
steinfreigabe) an Pin 20 auftrennt, 
damit das Signal über einen Schalter an 
den gewünschten Baustein gelegt wer- 
den kann, ist die Verdrahtung schon 
komplett. 


Bild 1. Die Zusatzplatine im Vortex-Controller 


In den ersten Steckplatz wird ein 
Sockel gelötet, der anstelle des Vortex- 
EPROM in den Sockel des Disketten- 
Controllers eingesetzt wird. Damit der 
Abstand zwischen Mutterplatine und 
aufgesteckter Platine stimmt, empfiehlt 
es sich, einen Wire-wrap-Sockel einzu- 
löten und eventuell die Anschlußbeine 
auf die passende Länge zu kürzen. 

Die beiden anderen Steckplätze wer- 
den mit zwei Sockeln bestückt, die für 
das Amsdos-ROM und das Vortex- 
EPROM vorgesehen sind. Wer das 
Original-Amsdos-ROM nicht gefährden 
will, kann sich mit einem EPROM- 
Programmiergerät auch eine Sicher- 
heitskopie herstellen, und den selbst- 
gebrannten EPROM (zirka 15 Mark) 
einsetzen. 

Es ist natürlich verboten, Kopien von 
einem Baustein herzustellen, den man 


sich nicht selbst gekauft, sondern nur 
geliehen hat. 

Bild 1 zeigt, wie die fertig aufgebaute 
Schaltung im Vortex-Controller einge- 
setzt wird. Bild 2 macht das Layout 
für die Unterseite der Zusatzplatine 
ersichtlich, den Bestückungsplan für 
die Platinenoberseite zeigt Bild 3. 

Für den Umschalter sollte man übri- 
gens ruhig eine Mark mehr ausgeben 
(am besten geeignet ist ein prellfreier 
Schalter), damit sichergestellt ist, daß 
die ICs nicht durch Schaltspannungs- 
spitzen »gequält« werden. 

Nach jedem Umschalten ist ein Reset 
nötig, damit der Schneider CPC er- 
kennt, daß nun ein anderes Disketten- 
Operationssystem aktiviert ist und die- 
ses DOS dann ordnungsgemäß initiali- 
siert und in sein Betriebssystem ein- 
bindet. (ma) 


ß 


Gegen Vortex- 
EPROM 
austauschen 


28poliger 


Sockel 


1poliger Umschalter 


© 
‚Amsdos- Vortex- 
ROM EPROM 


Bild 2. Nach dieser Vorlage können Sie 
sich Ihre Platine selbst herstellen... 


Bild 3. ...und so wird die Platine bestückt 
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Ein Glanzstück für 


Gleichgülti, ob Sie Ihren 
Schneider CPC nur um ein 
8-KByte-EPROM ausbauen oder 
eine 128-KByte-Speichererweite- 
rung (mit EPROMs und RAMs ge- 
mischt bestückt) anschließen 
wollen: Die Happy-Megabitkarte 
für den CPC erlaubt Ihnen den 
individuellen Ausbau des CPC- 
Speichers zum günstigen Preis, 


ehr Speicher müßte man 
haben! Ein EPROM mit 
zusätzlicher Software 


möchte ich anschließen! Diese und 
ähnliche Ausrufe hört man in letzter Zeit 
oft von CPC-Besitzern und so manch 
einer schaut neidisch auf die 
Megabyte-Speicher der Atari ST- und 
‚Amiga-Kollegen. Die Speichergröße 
des eigenen Computers mit 64 KByte 
RAM (CPC 464/664) beziehungsweise 
128 KByte RAM (CPC 6128) und 32 
KByte ROM bzw. 48 KByte ROM (mit 
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Disk-ROM) macht inzwischen einen 
recht »mickrigen« Eindruck und viele 
CPC-Freaks, so geht das Gerücht, sol- 
len wegen Minderwertigkeitskomple- 
xen bereits auf andere Computer- 
modelle umgestiegen sein. 

Das wäre jedoch nicht nötig gewe- 
sen, denn der Schneider CPC bietet die 
hard- und softwaremäßigen Vorausset- 
zungen zu einer komfortablen Spei- 
chererweiterung. Man muß nur das Ver- 
fahren kennen, das der CPC benutzt, 
um externe Speicherbausteine anzu- 
sprechen und in das Betriebssystem 
einzubinden. 

Damit auch Sie wissen, wie man 
zusätzlichen Speicher an den CPC 
anschließen und seinen Computer zum 
Beispiel zu einer Einschaltmeldung 


nach Bild 1 bewegen kann, werden wir 
Ihnen auf den folgenden Seiten aus- 
führlich die Hardware- und Software- 
Grundlagen, die Sie für den Aufbau 
einer Speichererweiterung benötigen, 
vermitteln und die Schaltung für die 
Happy-Megabitkarte entwerfen. 


Um 


auch. den praktischen Nutzen zu 
demonstrieren, runden einige kleine 
Beispielprogramme unser Informa- 
tionsangebot sinnvoll ab. 

Auch wenn Sie nicht vorhaben, die 
Happy-Megabitkarte selbst aufzu- 
bauen, sollten Sie diesen Beitrag lesen. 
Einerseits lernen Sie viel über das 
Zusammenspiel zwischen Hard- und 
Software im CPC, andererseits können 
Sie anhand der ausführlichen Schal- 
tungsbeschreibungen Ihre Kenntnisse 


‚in Elektronik vertiefen. 


Speicher 
Stück für Stück 


Bild 2 zeigt die grundlegende Spei- 
cherverteilung im Schneider CPC. Der 
im Computer eingebaute Prozessor 
Z80 kann mit seiner Adreßbusbreite 
von 16 Bit nur einen Speicherbereich 
von 64 KByte adressieren. Aus diesem 
Grund decken bereits die 64 bezie- 
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hungsweise 128 KByte RAM (Arbeits- 
speicher) desCPC den gesamten Spei- 
cherbereich einmal beziehungsweise 
zweimal ab. (Im CPC 6128 regelt ein 
spezieller PAL-Chip den Zugriff auf die 
beiden RAM-Speicherbereiche.) 

Damit der Z80 auch das interne ROM 
des CPC adressieren und dessen 
Daten verarbeiten kann, läßt sich über 
die Portadresse 7F (hex) ein Register 
im Gate Array (kundenspezifischer 
Schaltkreis im CPC) manipulieren. Die- 
ses Register istfür das Umschalten des 
oberen und unteren RAM-Speicher- 
segments (zu je 16 KByte) auf die obe- 
ren und unteren 16 KByte des internen 
ROM zuständig. Auf diese Weise kann 
das Betriebssystem des CPC über 
einen einfachen Portausgabe-Befehl 
die gewünschte Speicherkonfiguration 
einstellen. 

Doch damit nicht genug. Auch für den 
Anschluß weiterer Speicher wurde 
beim Entwurf des CPC bereits vorge- 
sorgt. So läßt sich das obere Speicher- 
segment nicht nur zwischen internem 
RAM und ROM umschalten. Die 
Betriebssystem-Routine »FAR CALL«, 
die über den kurzen Maschinenspra- 
che-Befehl RST 3 aufgerufen wird, bie- 
tet die softwaremäßigen Voraussetzun- 
gen, um für das obere Speicherseg- 
ment einen von maximal 252 ange- 
schlossenen 16-KByte-Speicherberei- 
chen (im folgenden kurz EXP-Speicher 
genannt) auszuwählen und aufzurufen. 

Der Aufruf der FAR-CALL-Routine hat 
folgendes Format: 

BST 3 
Di adresse 
DB nummer 

Der 2-Byte-Wert »adresse« ist die 
Sprungadresse für den EXP-Speicher, 
das unmittelbar folgende Byte »num- 
mer« gibt die Nummer des ausgewähl- 
ten EXP-Speichers an. Der Maschinen- 
sprache-Profi weiß bereits, daß der RST 


nur CPC 6128 64 KByte RAM 


3-Befehl einen Sprung auf die Adresse 
24 bewirkt. Von hier aus erfolgt der Auf- 
ruf der FAR-CALL-Routine. Die FAR- 
CALL-Routine erhält den Wert der 
Adresse und Nummer, indem sie über 
den Stack die Absprungadresse des 
RST 3-Befehls ermittelt, die drei folgen- 
den Bytes einliest und entsprechend 
verwendet. 

Hierzu gibt die Routine über die Port- 
adresse DF (hex) die Nummer des EXP- 
Speichers aus. (Für die Experten: Der 
CPC verwendet für eine Portadresse 
nicht - wie allgemein üblich - das 
untere Adreßbyte aus Register C, son- 
dern ausschließlich das obere Adreß- 
byte aus Register B) 

ID A,nummer 
ID B,DF 
OUT (C),A 

Liegt die Nummer zwischen O und 
251, so wird ein EXP-Speicher adres- 
siert. Beträgt der Wert dagegen 252, 
253, 254 oder 255, so wird die interne 
Speicherkonfiguration nach Tabelle 1 
eingestellt. 

Eine weitere interessante Betriebs- 
system-Routine lautet »SIDECALL«und 
wird über den Maschinensprachebe- 
fehl RST 2 aufgerufen. Die SIDE-CALL- 


Bild 1. Diese Ein- 
schaltmeldung ist 
mit der Happy- 
Megabitkarte kein 
Problem 


32 KByte ROM 16 KByte EXP7 


FFEEH- ET 
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Routine erlaubt Sprünge zwischen 
EXP-Speichern mit aufeinanderfolgen- 
den Nummern über relative Adreßanga- 
ben. Einzige Bedingung ist, daß die 
Nummer des EXP-Speichers, auf den 
der Sprung erfolgt, höchstens um den 
Wert 3 größer ist als die Nummer des 
EXP-Speichers, von dem aus die SIDE- 
CALL-Routine aufgerufen wird. 


Seitensprung mit 
SIDE CALL 


Nach dem RST 2-Befehlmuß die Ziel- 
adresse - CO00 (hex) stehen, das heißt 
die relative Adresse bezogen auf den 
Beginn des ausführenden EXP-Spei- 
chers. Zur Verdeutlichung einige Bei- 
spiele, die in dem EXP-Speicher Num- 
mer 1 stehen sollen: 

RST 2 

DW 0006 

bewirkt einen Sprung an die Adresse 
C006 (hex) des ausführenden EXP- 
Speichers, 

RST 2 

DW 4006 


16 KByte Bild- 16 KByte 16 KByte 
16 KByte RAM | speicher-RAM | oberes ROM Disk-ROM 
| (Basic) 
E000H- -- —- —-—- - 
16 KByte RAM | 16 KByte RAM 
200 ------ 
| 
| 16 KByte RAM | 16 KByte RAM 


16 KByte RAM | 16 KByte RAM 


16 KByte 
unteres ROM 
(Betriebssystem) 


B000H-— 


az 


Bild 2. Die grundsätzliche Speicherverteilung im CPC 
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ruft den EXP-Speicher Nummer 2 unter 
der Adresse C006 (hex) auf, 

RST 2 

DW 8006 

bewirkt einen Sprung an die Adresse 
C006 (hex) des EXP-Speichers Num- 
mer 3 und 

RST 2 

DW C006 

ruft die Adresse C006 (hex) in EXP- 
Speicher Nummer 4 auf. 

Der RST 2-Befehl bewirkt einen 
Sprungan die Adresse 16. Von hier wird 
die SIDE-CALL-Routine aufgerufen, die 
über den Stack die Absprungadresse 
des RST 2-Befehls ermittelt und die bei- 
den folgenden Bytes als Sprungadres- 
se einliest. Die oberen beiden Bits die- 
ser Adresse werden isoliert und zur 
Auswahl des EXP-Speichers herange- 
zogen. 


Dekodierung ist 
gefragt 


Ein EXP-Speicher, der von der FAR- 
CALL- oder SIDE-CALL-Routine erkannt 
werden soll, muß über eine Dekodier- 
logik verfügen, die die beiden Signale 
WR und IORQ, sowie das Adreßbit 
A13auf den Zustand O testet. Diese drei 
Leitungen liegen nämlich nur dann 
gemeinsam auf 0, wenn die Z80 den 
oben erwähnten OUT-Befehl mit dem 
Wert DF (hex) in Register B ausführt. In 
diesem Fall gibt der Wert, der auf dem 
Datenbus liegt, die Nummer des ange- 
sprochenen EXP-Speichers an. Die 
Dekodierlogik muß nun entscheiden, 
ob diese Nummer der Nummer des 
angeschlossenen EXP-Speichers ent- 
spricht, und den Speicher entspre- 
chend freigeben oder sperren. 

Dieses Verfahren benutzt auch der 
Disketten-Controller des DD1-Lauf- 
werks, um dem Betriebssystem des 
CPC das Disk-ROM als EXP-Speicher 
Nummer 7 zur Verfügung zu stellen. 
Dadurch bleiben noch die Nummern O 
bis 6 und 8 bis 251 unbelegt. 

Bild 3 zeigt die Happy-Megabitkarte 
Typ 1, die den Anschluß von einem oder 
mehreren EPROMs als EXP-Speicher 
an den CPC erlaubt. Die Adreßbits AO 
bis A13 sowie der gesamte Datenbus 
werden direkt an das oder die EPROMs 
geführt. Ebenso führt der Datenbus an 
den Eingang des 8-Bit-Registers 
7415273, das den Wert, der auf dem 
Datenbus liegt, zwischenspeichern 
kann. 

Der Einschreibevorgang eines 
Datenbytes in den Register-Baustein 
wird durch eine positive Signalflanke 
am CLK-Eingang (11) ausgelöst. Diese 
'Signalflanke kann nur entstehen, wenn 
WAR, IORQ und A13 gleichzeitig auf O 
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liegen. Sobald eines der Signale wieder 
zurückgesetzt wird, ändert sich der 
Pegel am CLK-Eingang auf 1. Dadurch 
übernimmt das Register den auf dem 
Datenbus anliegenden Wert. Dieser 
Wert entspricht der Nummer des aus- 
gewählten EPROMs. 

Die EPROM-Nummer liegt nun direkt 
am 3-Bit-Dekoder 7415138 an. Dieser 
Dekoder besitzt drei Dateneingänge 
(A, B,C), an denen die Datenbits DO bis 
D2 angeschlossen sind, und acht Aus- 
gänge (0 bis 7). Abhängig vom Bitmu- 
ster am Eingang wird nun ein Ausgang 
aktiviert, indem er auf O gesetzt wird 
(negative Logik). Es wird jeweils der 
Ausgang gesetzt, dessen Nummer dem 
binären Wert am Dateneingang ent- 
spricht. Liegt zum Beispiel das Bit- 
muster 010 an, so ist der Ausgang 2 
gleich O. 

Die Datenbits D3 bis D7 werden nicht 
zur Dekodierung herangezogen. D3 
und D4 sind an die beiden CE-Eingänge 
(4 und 5) des Dekoders geführt, undD5 
bis D7 sind über ein NOR-Gatter an den 
CE-Eingang (6) des Dekoders ange- 
schlossen. Die CE-Eingänge und der 
CE-Eingang (chip enable) geben den 
Baustein frei oder sperren seine elek- 
tronische Funktion. 

Man kann jedes CE-Signal als Ein-/ 
Ausschalter betrachten; ein Baustein 
ist nur dann eingeschaltet, wenn alle 
Schalter auf »Ein« stehen, das heißt alle 
Signale aktiv sind (CE = OundCE = 1). 


Intelligente Logik 


Die angegebene Beschaltung be- 
wirkt, daß der Dekoder nur freigegeben 
wird, wenn die Datenbits D3 bis D7 auf 
O liegen. Aus diesem Grund akzeptiert 
der Dekoder nur die Werte O bis 7 bei 
der Dekodierung, so daß sich ange- 
schlossene EPROMs nur unter den 
Nummern O bis 7 ansprechen lassen. 

Die Ausgänge des Dekoders führen 
über die Schalter SO bis S7 direkt an die 
OE-Eingänge der EPROMes. Das Signal 
an einem OE-Eingang (output enable) 
bestimmt, ob das EPROM zum Lesen 
gesperrt oder freigegeben ist. Folglich 
können Sie über die Schalter wählen, 
welche Bausteine der CPC erkennen 
soll. Wenn ein Schalter offen ist, liegt 
das zugehörige OE-Signal über einen 
Pull-up-Widerstand automatisch auf 
+5 Volt, und das EPROM kann vom 
Betriebssystem des CPC nicht freige- 
geben werden. 

Wenn Sie beispielsweise den Schal- 
ter S1 schließen undan das Signal OE1 
ein EPROM anschließen, kann das 
Betriebssystem des CPC diesen Bau- 
stein als EXP-Speicher Nummer 1 
ansprechen. Ist Schalter S1 aber offen, 
erkennt der CPC das EPROM nicht. 


+5V 
+5V 


A13 
(nur 27128) 


AB 


Bild 4. So wird ein EPROM an die Si- 
gnale der Dekodierlogik angeschlossen 


Die Ausgänge des Dekoders führen 
auch an das NAND-Gatter 74LS30, das 
über acht Eingänge verfügt. Der Aus- 
gang des NAND-Gatters geht auf 1, 
sobald ein EPROM angesprochen ist, 
das heißt ein Eingang des NAND- 
Gatters auf O liegt. Sind dann auchnoch 
die beiden Adreßbits A15 und A14 aktiv, 
soist dies ein Zeichen, daß der Z80 das 
obere Speichersegment des CPC 
adressiert, und das ROMDIS-Signal 
wird über zwei AND-Gatter des vierfa- 
chen AND-Gatters 74LS08 auf 1 ge- 
legt. Dadurch ist das interne ROM des 
CPC gesperrt. 

Nun fehlt nur noch ein aktives 
ROMEN-Signal, das den Zugriff auf ein 
ROM (in diesem Fall ein EPROM), 
anstelle des Bildspeichers anzeigt. 
Wenn auch diese Bedingung erfüllt ist, 
wird das CE-Signal gesetzt, das jenes 
EPROM endgültig freigibt, das bereits 
über ein OE-Signal angesprochen ist. 
Jetzt kann das Betriebssystem des 
CPC auf das EPROM zugreifen und 
einen Sprung ausführen oder Daten 
einlesen. 


Ausbaufähige 
Schaltung 


Die meisten Leser werden sich jetzt 
fragen, wo denn die angekündigten 
EPROMs bleiben. Wir haben diese 
Bausteine aus Gründen der Übersicht- 
lichkeit im Schaltplan nicht eingezeich- 
net. Bild 4 gibt jedoch darüber Aus- 
kunft, an welche Anschlüsse eines 
EPROMs die Signale der Happy- 
Megabitkarte geführt werden müssen. 
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Bild 3, Mit der Happy-Megabitkarte Typ 1 können Sie 8-KByte- und 16-KByte-EPROMs als EXP-Speicher 


an Ihren CPC anschließen 


An EPROMs kommen der 8-KByte- 
Typ 2764 und der 16-KByte-Typ 27128 
in Frage. Das Adreßbit Al3 müssen Sie 
nur beim 27128 an Pin 26 führen, beim 
2764 bleibt der Anschluß unbeschal- 
tet, 

Wenn Sie mehr als zwei EPROMs in 
die angegebene Schaltung einbauen, 
tritt ein neues Problem auf. Bedingt 
durch die Anzahl und die Länge der 
Signalleitungen werden insbesondere 
die Adreßbus- und die Datenbus-Sig- 
nale stark belastet. In diesem Fall emp- 
fiehlt es sich, diese Signale durch Trei- 
berbausteine zu verstärken. Bild 5 zeigt 
die Happy-Megabitkarte Typ 2 mit drei 
8-Bit-Treibern 741LS245, die Signal- 
stärke und Datensicherheit erhöhen. 


Die Richtungs- und Freigabe-Ein- 
gänge der Treiber-Bausteine, die für die 
Signale des Adreßbus zuständig sind, 
werden auf Masse gelegt, so daß die 
Bausteine ständig aktiv sind und von B 
nach A verstärken. Das CS-Signal (chip 
select), das nur aktiv ist, wenn ein 


EPROM über ein OE-Signal angespro-- 


chen und gleichzeitig über das CE- 
Signal freigegeben ist, schaltet den 
Datenbus-Treiber nur dann von Bnach A 
(also vom EPROM zum CPC), wenn ein 
EPROM über OE und CE zum Auslesen 
freigegeben wurde. Auf diese Weise 
werden Kollisionen auf dem Datenbus 
vermieden. 

Und jetzt kommt das Schmankerl! 
Bild 6 zeigt die Happy-Megabitkarte Typ 


3, die auch den Einsatz von statischen 
Speicherbausteinen (SRAMs) erlaubt. 
Sie können die Typen 6264 (8 KByte) 
und 62128 (16 KByte) verwenden. 
Sollten Sie Schwierigkeiten haben, den 
62128-Typ zu beschaffen, läßt sich 
durch die Schaltung nach Bild 7 mit 
zwei 6264-Bausteinen ein 62128 
emulieren, indem das Adreßbit in die 
Dekodierung des Freigabe-Signals CE 
einbezogen wird. 

Liegt A13 auf 0, so wird der linke 
6264 freigegeben (sofern das CE- 
Signal der Dekodierschaltung ebenfalls 
aktiv ist), und wenn A13 auf 1 gesetzt 
ist, wird der rechte 6264 aktiviert. Der 
linke 6264 entspricht folglich der 
unteren und der rechte 6264 der obe- 
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Schneider 


Professionelle Grafikprogramme 
für Schneider CPC 6128 + Joyce 


DR Draw: 

Macht aus Ihren Ideen 
ein Kunstwerk. 
Verwenden Sie DR Draw, 
um Organisations-Dia- 
gramme, Flußdiagramme, 
Logos, technische Zeich- 
nungen, Schaubilder, 
Platinenentwürfe und jede nur erdenkliche Art von Linien- und 
Formgrafiken zu entwerfen. Jeder Bestandteil Ihrer Zeichnung 
kann auf vielfältige Weise durch Farben und Schraffuren 
hervorgehoben werden. 


Die Fähigkeiten auf einen Blick: 

@ Erstellung beliebiger Zeichnungen 

@ vorprogrammierte Figuren wie Kreise, Quader, Rechtecke, 
Kreisbögen, Polygone und Linien 

® freie Wahl der Gestaltungselemente wie Farben, Muster und 
Schriftarten 

@ Vergrößerungen und Ausschnittdarstellungen 

@ Teile einer Zeichnung können kopiert, verschoben oder 
gelöscht werden 

@ Grafiken können gespeichert, geplottet oder gedruckt werden 

@ einfache Bedienung durch Menüauswahl 


Hardwarevoraussetzungen: 

DR Draw läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit einem 
‚oder zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder 
Plotter ausgegeben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen 
‚Schneider-, Epson- und Shinwa-Drucker sowie der Plotter HP 7470A. 


Diese Markt & Technik-Software-Produkte 
erhalten Sie in den Computer-Abteilungen 
‚der Warenhäuser, bei Ihrem 
Computerfachhändler, im Buchhandel oder 
direkt beim Verlag gegen Vorauskasse. 


DR Graph: 
Präsentationsgrafiken 
mit professionellem 
Niveau. 
DR Graph ist ein interakti- 
ves Softwarepaket, mit 
dem Sie Ihren Mikro- 

rm computer zur Erstellung 
von Geschäftsgrafiken und Text-Charts verwenden können. 


Die Fähigkeiten auf einen Blick: 

@ Linien-Grafiken, Histogramme, Torten-Grafiken, Stufen-Gra- 
fiken, Strich-Histogramme, Punkte-Grafiken und Text-Grafiken 

@ freie Wahl der Gestaltungselemente wie Beschriftungen, Titel- 
zeilen, Legenden, Farben, Schriftarten und Ränder 

@ frei wählbare Skalierung 

@ variable Linien- und Balkenbreite 

@ Schnittstelle zu anderen Programmen 

eliebig positionierbare Anmerkungen 

@ Grafiken können gespeichert, geplottet oder gedruckt werden 

® einfache Bedienung durch Menüauswahl 


Hardwarevoraussetzungen: 

DR Graph läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit 
einem oder zwei Diskettenlaufwerken, Die Grafiken können auf Jedem Drucker 
oder Plotter ausgegeben werden, für den ein GSX-Treiber verfügbar ist. Dazu 
zählen Schneider-, Epson- und Shinwa-Drucker sowie der Plotter HP 74704. 
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‚Bild 5. Wenn Sie mehr als zwei EPROMs an Ihren CPC anschließen möchten, empfiehlt sich die Happy-Megabitkarte 
Typ 2 mit verstärkten Adreß- und Datenbus-Signalen 
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‚Bild 6. Die Happy-Megabitkarte Typ 3 erlaubt auch den Einsatz von statischen Speicherbausteinen 
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umfassende Microsoft-BASIC- und 
‚embler-Entwicklungspaket enthält: 
BASIC-Compiler 5.4 (BASCOM) 
BASIC-Interpreter 4.51 (OBASIC) und 
(MBASIC) 
MACRO Assembler (M80) 
UNK Linking Loader (180) 
CREF Cross-Reference Facility 
F 80) 


UB Library Manager 
den effizienten Einsatz kaufmännischer 
technisch-wissenschaftlicher 
ndungen. 


rare-Anforderungen für 
jore 128/128D: 
jenlaufwerk, Betriebssystem CP/M 3, 


Betriebssystem CP/M 2.2 oder CP/M Plus. 
Seipreter erfordert mindestens - 
# Speicher, der Compiler 7 
Makroassembler 


ao 
De 


Markt&Technik Verlag AG, Buchverla: 


Pascal/MT+ 


Pascal/MT+ ist ein volles ISO-Standard- 
Pascal, das um eine leistungsfähige 
Programmierumgebung für Industrie-, 
Geschäfts- und Ausbildungseinsatz sowie 
Möglichkeiten zur Systemprogrammierung 
erweitert wurde. 


Hardware-Anforderungen für 

Commodore 128/128D: 

ein Diskettenlaufwerk, Betriebssystem CP/M 3. 
Hardware-Anforderungen für 
Schneider-Computer: 

CPC 464 und CPC 664 (mit Speichererweiterung), 
dem CPC 6128 und dem PCW 8256 (Joyce) unter 
CP/M und CP/M Plus. Kompilierte Programme sind 
bei entsprechender Größe, auch auf dem CPC 464 
und CPC 664 ohne Speichererweiterung lauffähig, 
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CBASIC-Compiler 


Der Hochleistungs-BASIC-Compiler für 
Softwareprofis zur Erstellung kommerzieller 
‚Anwendungen. 

Der CBASIC-Compiler ist ein Compiler, der 
Maschinencode erzeugt und die Program- 
mierung und den Test separater Module 
erlaubt, die später ein komplettes Pro- 
gramm ergeben sollen. Die integrierten 
Grafikmöglichkeiten des CBASIC-Compi- 
lers erlauben die Programmierung viel- 
seitiger Grafikprogramme für eine Vielzahl 
von Anwendungen (nur auf Computern 
mit GSX-Software). 


Hardware-Anforderungen für 
‚Commodore 128 PC: 

ein Diskettenlaufwerk, Betriebssystem CP/M 3, 
Hardware-Anforderungen für 
Schneider-Computer: 

Der CBASIC-Compiler läuft auf Schneider CPC 464 
mit Diskettenlaufwerk DDI-1. dem CPC 664, dem 
CPC 6128 und dem PCW 8256 (Joyce). Für Grafik- 
Programme wird die GSX-Software benötigt, die nur 
mit dem CPC 6128 und PCW 8256 (Joyce) aus- 
geliefert wird. 


Diese Markt& Technik-Software erhalten 
Sie in den Fachabteilungen der Waren- 
häuser, bei Ihrem Computerfachhändler, 
im Buchhandel oder direkt beim Verlag 
gegen Vorauskasse. 

Fragen Sie auch nach dem neuen 
Gesamtverzeichnis Herbst '86, oder 
fordern Sie es direkt beim Verlag an. 


i München, Telefon [089] 4613-0 


==s=llungen im Ausland bitte on: SCHWEIZ: Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656 - ÖSTERREICH: Rudolf lechner & Sohn, 
Fezwerkstraße 10, A-1232 Wien, Telefon (0222} 677526 - Ueberreuter Media Verlagsges. mbH (Großhandel), Alser Straße 24, A-091 Wien, Telefon (0222) 481538-0. 
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ren Speicherhälfte eines 62128. 

Doch kommen wir zurück zur Schal- 
tung in Bild 6. Dadurch, daß die Elektro- 
nik das WR-Signal erkennt und auch 
das MREQ-Signal berücksichtigt, ver- 
setztsie den CPC nicht nur in die Lage, 
EPROMSs auszulesen, sondern auch 
SRAMSs zu beschreiben. 


Schreiben und lesen 


Die Funktion isteinfach zu verstehen: 
Wenn der zweipolige Umschalter US 
auf das ROMEN-Signal geschaltet ist, 
bleibt alles wie gehabt. Schalten Sie US 
dagegen auf das MREQ-Signal um, das 
einen Speicherzugriff anzeigt, so wird 
das Signal CE, das die Speicherbau- 
steine freigibt, nur aktiv, wenn ein Spei- 
cherzugriff auf das obere Speicherseg- 
ment des CPC vorliegt (Al4 + Al5 + 
MREO). Wenn nun noch über die Schal- 
ter S8 bis S15 ein WR-Signal zu einem 
SRAM durchgeschaltet ist, kann der 
Z80 in den SRAM schreiben, indem 
er in das obere Speichersegment 
schreibt. Dadurch wird zwar auch der 
Bildspeicher des CPC beschrieben, 
der parallel liegt, doch der Bildinhalt läßt 
sich über Software leicht in einen ande- 
ren Bereich verschieben. 

Ganz pfiffige Leser werden jetzt fra- 
gen, warum denn nicht das ROMEN- 
Signal in Verbindung mit dem WR- 
‚Signal für einen Schreibzugriff verwen- 
det wird. In diesem Fall würde nämlich 
nur dann in das obere Speicherseg- 
ment geschrieben, wenn ein ROM 
angesprochen wäre, so daß der Bild- 
speicher nicht überschrieben werden 
könnte. 

Der Grund für die Wahl des MREQ- 
Signals ist ganz einfach: Das ROMEN- 
Signal wird vom Gate Array des CPC 
erzeugt. Und das Gate Array denkt sich 
ganz logisch, daß in ein ROM nichts 
geschrieben werden kann (wobei es ja 
nicht weiß, daß ein RAM angeschlos- 
sen ist). Aus diesem Grund aktiviert das 
Gate Array bei einem Schreibzugriff auf 
ein ROM (was softwaremäßig machbar 
ist), das ROMEN-Signal nicht, so daß 
wir das Signal in diesem Fall nicht zur 
Kennzeichnung eines Schreibzugriffes 
verwenden können. 

Auch die Logik zur Ansteuerung der 
Bustreiber ist einer näheren Beschrei- 
bung wert. Die beiden Adreßbus-Treiber 
sind wie in Schaltung Typ 2 beschaltet. 
Der Richtungseingang des Datenbus- 
Treibers ist dagegen an das RD-Signal 
angeschlossen, das CS-Signal wird 
dem Baustein über den zweipoligen 
Umschalter US zugeführt. Das RD- 
Signal sorgt dafür, daß der Datenbus- 
Treiber nur dann in Richtung CPC ge- 
schaltet ist, wenn ein Lesezugriff vor- 
liegt. 
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Bild 9. Das Testmuster einer Megabitkarten-Version, die den Einsatz von statischen 


Speicherbausteinen unterstützt 
EomEoren 


gb 
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Die Umschaltung des CS-Signals an 
das CE-Signal im Schreibmodus ist nö- 
tig, weil beim Schreiben kein OE-Signal 
aktiv ist und der Ausgang des NAND- 
Gatters 74LS30 folglich auf O liegt. 
Dadurch liegt der Ausgang des ange- 
schlossenen NOR-Gatters, das ledig- 
lich als Inverter arbeitet, auf 1, und wer 
sich in der digitalen Schaltalgebra ein 
wenig auskennt, weiß, daß unter diesen 
Umständen das CS-Signal über das 
AND-Gatter keine Chance hat, einen 
aktiven Zustand einzunehmen, das 
heißt auf O zu gehen. AR 

Wenn CS dagegen auf CE umge- 
schaltet wird, geht es auf 0, sobald ein 
SRAM angesprochen ist. Damit der 
Datenbus-Treiber nur dann freigegeben 
wird, wenn wirklich ein Schreibzugriff 
vorliegt, ist das CE-Signal zusätzlich mit 
dem WR-Signal verknüpft, bevor es an 
den Treiber gelangt. Würde das WR- 
Signal bei der Dekodierung nicht 
berücksichtigt, dann würde der CPC 
bei einem Lesezugriff auf den Bildspei- 
cher gleichzeitig Daten aus dem SRAM 
lesen, was zu einem Systemabsturz 
führen könnte. 

Das zur Happy-Megabitkarte Typ 3 
passende Anschlußschema der Spei- 
cherbausteine, das gemeinsam für 
EPROMs und SRAMs gilt, zeigt Bild 8. 
Wenn es sich bei dem Speicherbau- 
stein um einen 8-KByte-Typ handelt 
(2764 oder 6264), wird Pin 26 auf +5 
Volt gelegt. Die 16-KByte-Typen 27128 
und 62128 verlangen das Adreßbit A13 
an Pin 26. 


Externe Energie- 
quelle oder Batterie 


Die Anschlüsse für »+5 V extern« 
und »GND extern« im Schaltbild zur 
Happy-Megabitkarte Typ 3 weisen dar- 
auf hin, daß die Spannungsversorgung 
der Schaltung über eine externe Span- 
nungsquelle erfolgen sollte, um das 
Netzteil des CPC nicht übermäßig zu 
belasten. Wenn die externe Span- 
nungsquelle auch nach Ausschalten 
des Computers eingeschaltet ist, bleibt 
der Speicherinhalt der SRAMs erhal- 
ten. 

Möchten Sie nur wenige SRAM- 
Bausteine in die Schaltung einsetzen, 
empfiehlt sich anstelle der externen 
Spannungsversorgung eine Batterie- 
pufferung, die gestrichelt eingezeich- 
net ist. Hier wird eine kleine 5,6-Volt- 
Batterie vom Typ Photo eingesetzt, 
deren Spannung über eine Diode auf 5 
Volt reduziert wird. Im Computerbetrieb 
erfolgt die Spannungsversorgung über 
den CPC. Wenn der Computer ausge- 
schaltet ist, kann die Happy-Megabit- 
karte von der Computerspannung ge- 


Bild 10. 
ädelstift 
erleichtert 

die Verdrahtung 
beim Aufbau 
der Schaltung 


Di 


trennt und über den Kippschalter KSan 
die Batteriespannung geführt werden. 

In diesem Fall ist es auch sinnvoll, die 
Betriebsspannungs-Anschlüsse der 
Dekodierlogik-Bausteine (nicht der 
SRAMSI) direkt an die Versorgungs- 
spannung des CPC zulegen, so daß die 
Leitungen durch den Schalter KS von 
der Batterie getrennt sind. Dadurch 
muß die Batterie nicht für die Betriebs- 
spannung von Bausteinen aufkommen, 
deren Funktion für die SRAM-Pufferung 
unwichtig ist. (Die Masseleitungen von 
Computer und Batterie müssen Sie 
natürlich direkt verbinden.) 

Bild 9 zeigt das Muster einer Happy- 
Megabitkarte mit vier Sockeln. Ein 
Sockel ist mit einem 8-KByte-SRAM 
6264 bestückt. Neben dem gelben 
Kondensator ist eine Batterie zur Puffe- 
rung des SRAMs eingelötet. Es ist 
jedoch empfehlenswert, eine Halterung 
für die Batterie zu wählen, um ver- 
brauchte Batterien problemlos aus- 
wechseln zu können. 

Damit sich die SRAM-Bausteine bei 
ausgeschaltetem Computer im strom- 
sparenden gesperrten Zustand (Stand- 
By-Betrieb) befinden und die Batterie 
geschont wird, ist der Eingang des OR- 
Gatters, das für das CE-Signal zustän- 
dig ist, über einen Pull-up-Widerstand 
an den +5-Volt-Anschluß der Batterie- 
pufferung geführt. Dadurch liegt das 
CE-Signal auf 1 und alle Speicher 
bausteine sind gesperrt. 


Aufbau und 
Anschluß 


Für die Bastler, die noch nicht zu den 
alten Hasen zählen, ist es wichtig zu 
wissen, daß man jeweils das Pin mit der 
höchsten Nummer eines ICs an die 
positive Versorgungsspannung (+5 
Volt), und das schräg gegenüberlie- 
gende Pin mit der halb so großen Num- 
mer an Masse anschließen muß, um 
dem Baustein seine Betriebsspannung 
zuzuführen. Dies gilt für alle in den drei 


Schaltungen verwendete ICs. So müs- 
sen Sie zum Beispiel Pin 20 der Treiber- 
bausteine 7415245 an +5 Volt führen 
und Pin 10 auf Masse legen. Das 
Schema, nach dem die Pins eines ICs 
durchnumeriert sind, können Sie Bild 4 
und 8 entnehmen. 

Grundsätzlich sollten Sie beim Auf- 
bau einer der drei Megabitkarten- 
Versionen alle Bausteine sockeln! Ein 
Sockel sorgt dafür, daß der Baustein 
beim Einbau nicht zerstört wird und 
erlaubt den einfachen Ausbau im Repa- 
raturfall. EPROMs können auf diese 
Weise zum Neuprogrammieren pro- 
blemlos herausgenommen werden. Die 
Investition für Sockel lohnt sich also in 
jedem Fall. 

Eine weitere Maßnahme, die für den 
Profi selbstverständlich ist, betrifft den 
Einbau von Keramikkondensatoren, die 
durch Schaltspitzen bedingte Span- 
nungsschwankungen abfangen. Zu die- 
sem Zweck sollten Sie an jeden zweiten 
bis dritten IC-Sockel zwischen den Be- 
triebsspannungs-Anschlüssen (siehe 
oben) einen 100-Nanofarad-Konden- 
sator einlöten. Dadurch sind Fehler bei 
der Datenübertragung (fast) ausge- 
schlossen. 

Für die Schalter SO bisS7 und S8 bis 

S15 sollten Sie jeweils einen achtpoli- 
gen DIL-Schalter verwenden. Diese 
Schalter sind zwar etwas unhandlich zu 
bedienen, doch sie sind platzsparend 
und können wie Sockel eingelötet wer- 
den. 
Für die Verdrahtung der Schaltung eig- 
net sich der Fädelstift von Siemens. 
Dieser Stift ist mit einer 50-m-Drahtrolle 
bestückt. Der Draht ist lackisoliert und 
kann bequem von Lötpunkt zu Lötpunkt 
geführt werden. Beim Lötvorgang 
schmilzt die Lackisolierung und es ent- 
steht eine leitende Verbindung. Nur für 
die Leitungen zur Spannungsversor- 
gung sollten Sie konventionellen 
(dickeren) Draht wählen. Bild 10 zeigt 
ein Muster des Fädelstiftes. 

Der Anschluß der Happy-M 
karte an den GPC erfolgt zweckmäßi- 
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PROGRAMMIERSPRACHEN 
Drei vollständige Einsteigerkurse, 

für »Poscal«, »C« und »Forthe 
mit vielen Listings zum Abtippen. 


gerweise direkt über einen 50poligen 
Platinenstecker (CPC 6128: 5Opoliger 
‚Amphenolstecker), der auf die Karte 
direkt gelötet wird. Wollen Sie weitere 
Peripherie an Ihren CPC anschließen, 
müssen Sie Ihre Megabitkarte mit einer 
Flachbandkabel-Brücke versehen, die 
die Computersignale vom Anschluß- 
stück der Schaltung auf einen zweiten 
50poligen Platinenstecker bzw. auf 
eine 50polige Amphenolbuchse (CPC 
6128) überträgt. Besitzer eines CPC 
464 oder 664 müssen sich dann noch 
ein schmales Stück Platine mit 50 Lei- 
terbahnen anfertigen, das, in den Plati- 
nenstecker eingefügt, wie der Original- 
anschluß desCPC um einen Zentimeter 
hervorsteht. 

Die Anschlußbelegung des 50poli- 
‚gen Platinenanschlusses am CPC kön- 
nen Sie dem Handbuch entnehmen. 
Tabelle 2 zeigt eine Liste aller Bauteile, 
die Sie für den Bau der Happy- 
Megabitkarte benötigen. 

Haben Sie eine der Happy-Megabit- 
karten Ihren Wünschen angepaßt auf- 
gebaut, ist alles weitere ganz einfach. 
Usting 1 zeigt das Programm »Memory 
Bank Manager«, das die Bausteine der 
Megabitkarte verwaltet. Die EXP- 
Speicher können gelesen, beschrie- 
ben und gelöscht (nur SRAM) werden, 
die Daten aus EXP-Speichern können 
auf Datenträger gespeichert oder für 
SRAMSs von Datenträgern geladen wer- 
den. 


er veherung 


Das Programm informiert Sie über die 
jeweils nötigen Schalterstellungen und 
berücksichtigt sowohl 8-KByte- als 
auch 16-KByte-Speichertypen. 

In Zeile 110 wird die höchste freie 
Speicheradresse auf 3FFF (hex) her- 
üntergesetztund geprüft, obessich bei 
Airem CPC um das Modell 464 
{PEEK(6)=&80) oder um das Modell 
5664/6128 handelt. Dementsprechend 
wird in Speicherstelle B1CB (hex) oder 
87C6 (hex) das obere Byte der neuen 
Bildspeicher-Startadresse geschrie- 
ben, so daß der Bildspeicher nun im 
Bereich von 4000 bis 7FFF (hex) liegt. 

Zeile 120 initialisiert den Bildschirm 
neu, und Zeile 130 schreibt die 
Maschinencode-Routine »mbmcode« 
ab Adresse A600 (hex) inden Speicher 
des CPC. 

Ein Speicher wird ausgelesen, indem 
über die Maschinencode-Routine der 
gewünschte Speicherbaustein einge- 
schaltet und der Inhalt ausgelesen wird. 

Der Aufruf zum Auslesen eines 
Bytes, den Sie im Zusammenhang mit 


AP] De 
ZEN 


»mbmcode« auch in Ihren eigenen Pro- 
grammen verwenden können, lautet: 
CALL &A600, adresse,nummer, @ziel 

Die Variable <adresse> muß die 
Leseadresse und <nummer> die 
Nummer des gewünschten EXP-Spei- 
chers enthalten. Der von der Maschi- 
nmencode-Routine eingelesene Wert 
wird der Variablen <ziel> zugewie- 
sen. Listing 2 zeigt den dokumentierten 
Quellcode von »mbmcode«. 

Das Schreiben in einen EXP-Spei- 
cher erfolgt einfach, indem direkt in den 
Speicherbereich CO00 bis FFFF (hex) 
geschrieben wird. Dadurch, daß nur der 
WR-Signal-Schalter für den angespro- 
chenen EXP-Speicher geschlossen ist, 
liegt der ausgewählte SRAM-Baustein 
parallel zum internen RAM des CPC, so 
daß die Daten in beide Speicher 
geschrieben werden. Das Löschen 
eines RAM-Speichers funktioniert ver- 
gleichbar, indem jede Speicherstelle 
mit dem Wert O beschrieben wird. 


Widerstände 
Widerstände (nur Typ 3) 
Keramikkondensatoren 


Elektrolytkondensator (nur Typ 3) 


Standarddiode 


vierfaches AND-Gatter mit je zwei Eingängen 
dreifaches NOR-Gatter mit je drei Eingängen 
ein NAND-Gatter mit acht Eingängen 
vierfaches OR-Gatter mit je zwei Eingängen 


3-Bit-Dekoder 


bidirektionale 8-Bit-Treiber (nur Typ 2 und 3) 


8-Bit-Register 
8-KByte-EPROMs 
16-KByte-EPROMs 
8-KByte-SRAMs (nur Typ 3) 
16-KByte-SRAMs (nur Typ 3) 


Platine 


Wenn Sie aus eigenen Programmen 
heraus einen EXP-Speicher beschrei- 
ben möchten, müssen Sie zu Anfang 
den Bildspeicher wie in Zeile 110 
gezeigt verschieben, nur den WR- 
Signal-Schalter für den gewünschten 
EXP-Speicher schließen, und den Spei- 
cher über die Adressen C000 bis FFFF 
(hex) beschreiben. Anschließend stel- 
len Sie die alte Schalterstellung wieder 
ein und verschieben den Bildschirm 
zurück an seine ursprüngliche Position 


Tabelle 1. Diese Speicherkonfiguratio- 
nen können über die FAR-CALL-Routine 
eingestellt werden 


4,7K0 
AT KO 
100 nF 
470 uF 
INA148 


741508 
741527 
741530 
741532 
7418138 
7415245 
7415273 
2764 
27128 
6264 
62128 


Flachbandkabel (zum Anschluß weiterer Peripherie) 


IC-Sockel 

IC-Sockel 

IC-Sockel 

IC-Sockel (nur Typ 2 und 3) 
Umschalter (nur Typ 3) 
DIL-Schalter 

DIL-Schalter (nur Typ 3) 


Platinenstecker (nur CPC 464/664) 


Platinenstecker (nur CPC 464/664 zum Anschluß 


weiterer Peripherie) 


Amphenolstecker (nur CPC 6128) 


‚Amphenolbuchse (nur CPC 6128 zum Anschluß 


weiterer Peripherie) 


Für die Batteriepufferung werden zusätzlich benötigt: 


1 Umschalter 
1 Diode 

1 Batterie 

1 Batteriehalterung 


5,6 Volt, Typ Photo 


Für die Emulation eines 62128 durch zwei 6264 werden zusätzlich benötigt: 


1 sechsfacher Inverter (für sechs Emulationen geeignet) 


741504 


1 vierfaches OR-Gatter mit je zwei Eingängen (für zwei 


Emulationen geeignet) 


741532 


Tabelle 2. Diese Bauteile sind für den Aufbau der Happy-Megabitkarte nötig 
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(POKE &B1CB,&C0«, 
&B7C6,&C0). 


bzw. »POKE 


Probieren geht über 
Studieren 


Die Daten können Sie nun nur noch 
verändern, indem Sie erneut den Bild- 
speicher verschieben und die gefor- 
derte Schalterstellung einstellen. Aus 
diesem Grund empfiehlt es sich, in die 
EXP-Speicher nur Daten zu schreiben, 
die während des Programmlaufs nicht 
mehr verändert werden. 


Nachdem wir nun ausführlich bespro- 
chen haben, wie die Happy-Megabit- 
karte aufgebaut und programmiert wird, 
interessiert es Sie natürlich, was man in 
die EXP-Speicher schreiben kann, und 
wie die Daten vom CPC verwaltet wer- 
den. 

Das Betriebssystem des CPC führt 
nach jedem Reset oder Einschalten 
eine Systeminitialisierung durch und 
versucht einen EXP-Speicher mit der 
Nummer O aufzurufen. Ist dieser EXP- 
Speicher nicht vorhanden, so wirdauto- 
matisch die obere Hälfte des internen 
ROM, in diesem Fall das Basic adres- 
siert. Das Basic durchläuft nun zuerst 
die Routine »ROM WALK«, die das 


Computersystem auf angeschlossene 
EXP-Speicher testet. 

Die ROM-WALK-Routine des CPC 
464 berücksichtigt EXP-Speicher mit 
den Nummern 1 bis 7, und die gleichna- 
mige Routine des CPC 664/6128 
erkennt EXP-Speicher mit den Num- 
mern 1 bis 15. Zuerst schaltet die ROM- 
WALK-Routine die EXP-Speicher der 
Reihe nach ein und liest den Inhalt der 
ersten Speicherstelle. Ist unter der 
angegebenen Nummer kein EXP- 
Speicher angeschlossen, so lautet der 
Inhalt der Speicherzelle schaltungs- 
technisch bedingt FF (hex). Hat der 
Inhalt dagegen den Wert 1, so wird der 
EXP-Speicher unter der Adresse C006 


FE ee 1 | 


18 RR EK (&BBBB+i):NEXT i [56521 
EReer ren L&DC@) | 428 PRINT:PRINT" Speicher ist beschriebe 
20 '* n.":PRINT" Bitte Nr."sn’wieder aussc 
* LFB7AI halten und":PRINT" die gemienschten 
so '* MEMORY BANK MANAGER  MBM 1. Speicherbausteine<&>mit Schalter @ b 
2 * 1SE76] is 7 freigeben.":FÜR i=1 TO i@@@@:NE 

a0 '* xT [9368] 

* CC17EI | 43@ RETURN CCFZEI 

SB ‘= HAPPY-COMPUTER Schneider-Sonderhe 448 CLS 19134] 
E16 * C1832) | 458 LOCATE#1,9,1:PRINT#1,"<S>Speicher lo 

6m '* eschen<4>" t1E2C9 
* (BF82] | 448 LOCATE 2,3:605UB 698: 50SUB 75@:REM S 

7° 4a peichernummer und -groesse holen [DSF2] 

BR czeccı | 478 Mr=1:60SUB 750:REM Schaltersteilung LS8D8J 
Er [865E) | 48@ PRINT:PRINT:PRINT" Bitte warten ..." 

ET. [85681 EB9ICI 
188 DEFINT a-z:SPEED WRITE 1 [E874) | 498 FOR i=® TO gr=1@24-1:POKE LCBBe+i,d: 

11@ MEMORY &SFFF:IF PEEK(6)=&8@ THEN POK NEXT i 130321 
E &BICB,&40 ELSE POKE &B7C6,%4@ L4B9C] | 588 PRINT:PRINT" Speicher ist geloescht. 
120 INK ®,@:INK 1,26:PEN 1:PAPER @: BORDE ":PRINT" Bitte Nr."sn’wieder ausscha 
RO L97FAI lten und":PRINT" die gewuenschten So 
130 FOR i=&A60@ TO AR616:READ as: POKE i, eicherbausteine<s>mit Schalter @ bis 
VALL"&"+a$) :NEXT L2C5C9 7 freigeben. ":FÜR i=1 TO 1@@@@:NEXT 

148 MODE 1:WINDOWBL 1, Yao, 1,2:WINDOW 1,48 LC3E6I 

t613C1 | 51@ RETURN CA82C1 

158 LÖCATEM „1,2: PRINTEL„STRINGS (AB, "_") 52@ CLS 18732] 
N [84FCI | 538 LOCATE#1,9,1:PRINT#1,"<6>Daten laden 

168 LOCATE#1,9,1:PRINT#1,"Memory Bank Ma <7>" 196821 

nager 1.2" [7862] | 548 ON BREAK GOSUB 1B196] 

170 a= [SDIEJ | 558 PRINT: INPUT" 146041 

180 LOCATE a,21PRINT"L13<2>Speicher lese 56@ LOAD"! "+f$ 28008 LAFIEI 
tB7DCI | 57@ PRINT:PRINT" Daten sind geladen. “:Fü 

198 LOCATE a,4:PRINT"L2I<2>Speicher schr R_i=1 TO 2@@@:NE: LF6B4) 

eiben" carıcı | Se@ RETURN L9ESAI 

208 LOCATE a,6:PRINT"L31<2>Speicher loes 598 ON BREAK STOP:RETURN £B2C01 

L334E] | 608 CLS 180581 
S:PRINT"L4J<2>Daten laden" L722E] | &1@ LOCATE#1,9,1:PRINT#1,"<4>Daten speic 

18: PRINT"LSIZ2>Daten speich hern<5>2" tSDFAJ 

taAAFEI | 420 ON BREAK_GOSUB 590: CAT CE2941 

Zus a,12:PRINT"L6I<2>Programm bee 638 PRINT: INPUT" Dateiname ";## LAEC2I 

5 [52D8] | 64@ PRINT:INPUT" Wieviel Bytes ";by CABAEI 
240 at=INKEYS:IF as="" THEN 248 19820) | 658 IF by<i OR by>16384 THEN PRINT CHRS( 

250 IF asc"i" OR a$>"&" THEN PRINT CHR&( 7) 5:G070 648 L2F7EI 

7)3:60T0 248 1B@861 | 668 SAVE" !"+f%.b,28000,by 15968] 
240 ON VAL(a$) GOSUB 28@,360,440,520,40@ &7® PRINT:PRINT" Daten alna gespeichert. 

„788 1D7C21 AaroR i=1 TO 2088: NEX t728C1 

270 G0TO 148 tESAE] | 680 RETURN CABSCI 
280 CLS [8D381 | 698 INPUT"Welcher Speicherbaustein (®-7) 

290 LOCATE#1,9,1:PRINT#1,"<4>Speicher le soll<5>ausgewaehlt werden "srn t8088) 
sen<6>" crarcı | 788 IF rn?® OR rn>7 THEN PRINT CHRS(TIE: 

3@® LOCATE 2,3:G0SUB 690: G0SUB 7S@:REM S G0TO & LBFFA1 

peichernummer und -groesse holen tECEA] | 71@ RETURN ECES@] 
31® wr=@:G0SUB 72@:REM Schalterstellung, L[&SBE] | 72@ PRINT:PRINT" Bitte Umschalter auf >> 

32@ FRINT:PRINT=PRINT" Bitt . LESEN<< stellen!";:G0T0 74@ 181521 
cC8gE] | 738 snern+8:PRINT:PRINT" Bitte Umschalte 
33® FOR i=® TO gr*1024-1:CALL LAsBB,i+&C r auf >>SCHREIBEN<<<6>stellen, alle 
RB.En„@asPÜKE 1+EBOOB,aNEXT i 1567A1 anderen Schalter aus-<5>schalten und 

34® PRINT:PRINT" Speicher ist ausgelesen nur Nr."sn"aktivieren!" L7ESCI 
PIFOR 121 TO BaBB:NExT EpSB41 | 748 PRINTAPRINT“ Bereit ?":CALL EBBIGERE 

350 RETURN ECASB] URN TAFAB] 
360 CLS 177383 | 758 PRINT:INPUT" Handelt es sich um eine 
37@ LOCATE#1,9,1:PRINT#1,"<2>Speicher sc n 8 KByte- ‚oder<2>um einen 16 KByke- 

hreiben<ä>" L7FB2] Typen (8/16) “ TeF12] 
388 LOCATE 7,3:60SUB &7@:60SUB 75@: REM S 768 IF gr<>8 AND gr2>16 THEN PRINT CHRSC 

peichernummer und -groesse holen LDCFAI 7)3:60T0 758 ELSE RETURN LEB38] 
398 wr=1:G0SUB 7S@:REM Schalterstellung [B&D2] | 77@ DATA FE,@3,C0,DD,66,05,DD,6E,04,DD,a 
ABB PRINT=PRINT=PRINT" Bitte warten . E,82,CD,@F,B7,7E,12,QE,@@,CD,@F,B9,C 

L#9@C1 1D2C81 

418 FOR i=@ TO gr#1@24-1:POKE 2C@@0+i ,PE 788 MODE 2:END T6ABEI 

Listing 1. Der »Memory Bank Manager« verwaltet die Bausteine Ihrer Megabitkarte 


SEWW.HOMESOMPUTER 


(hex) aufgerufen. Hier kann eine Initiali- 
sierungsroutine, die zum Beispiel eine 
Bereitschaftsmeldung auf den Bild- 
schirm des CPC ausgibt und einen 
eigenen Speicherbereich im internen 
RAM des CPC reserviert, stehen. 

Tippen Sie als Beispiel Listing 3 ab 
und starten Sie den DATA-Lader. Der 
DATA-Lader erzeugt einen Binärcode 
namens »rsxram.bin«. Wenn Sie nun 
den Binärcode mit dem Memory Bank 
Manager in einen SRAM laden, gibt die- 
ser EXP-Speicher bei jeder Initialisie- 
rung des Computersystems eine 
Bereitschaftsmeldung auf den Bild- 
schirm aus. Zusätzlich werden mit mini- 
malem Aufwand die beiden RSX- 
Befehle IWAIT und IRESET in das Basic 
des CPC eingebunden. 

Schauen Sie sich den dokumentier- 
ten Quellcode in Listing 4 an. Hier wird 
der allgemeine Aufbau eines Pro- 
gramms zum Einklinken zusätzlicher 
Befehle in das Basic des CPC deutlich. 

Zu Beginn (CO0O hex) muß, wie 
bereits oben erwähnt, der Wert 1 ste- 
hen, damit die ROM-WALK-Routine den 
EXP-Speicher als Hintergrund-ROM 
erkennt und ab Adresse C006 (hex) 
aufruft. 


Einklinken mit RSX 


Die Werte in den Speicherstellen 
C001 bis C003 (hex) sind unwichtig. 
Sie sind für die Versionsnummer des 
EXP-Speichers reserviert und können 
auf O gesetzt werden. 

In C004 und CO05 (hex) muß die 
Adresse der Befehlsworttabelle ste- 
hen, die die Namen der RSX-Befehle 
enthält. Der ASCIl-Code des letzten 
Buchstabens eines Befehls muß je- 
weils mit einem gesetzten siebten Bit 
(+128) gespeichert sein. Eine O been- 


An Speicherstelle COO6, die die Ein- 
sprungsadresse der ROM-WALK-Rou- 
tine markiert, steht ein Sprung zur lnitia- 
lisierungsroutine. In den folgenden 
Speicherstellen müssen die Aufruf- 
adressen für die RSX-Befehle in Form 
von JP-Befehlen stehen, und zwar in 
der Reihenfolge, in der sie auch in der 
Befehlswort-Tabelle erscheinen. Be- 
achten Sie bei allen Sprungadressen, 
daß das niederwertige Adreßbyte vor 
dem höherwertigen Byte im Speicher 
stehen muß! 

Die Initialisierungsroutine gibt im Fall 
von »rsxram.bin« nur eine Textmeldung 
auf den Bildschirm aus. Wenn Sie für 
den EXP-Speicher einen Bereich im 


ORTES 


For i=1 T0 8 
READ as: a=VAL("&"+a$) 
POKE adr ‚ar adr=adr+1 


S 


NEXT i 
pr2=pr2+65536 


in Zeile";zeile:STOr 
zeile=zeile+1:60T0 117 


PRINT d$:END 


det die Befehlswort-Tabelle. 


mbmcode 


LIST 
ORG BASaOH 
ENTRY cp 3 
RET nz 
LD H. (1X+5) 
LD L.(1X+4) 


C,t1X+2) 


sRoutinenanfang bei AsBB 


»Anzahl der Parameter = 3 ? 


swenn nicht, dann zurueck 
:Quelladresse in HL laden 


sEXP-Nummer in C laden 
zobe: 


sEXP-Nummer = @ (Basic) 
soberes ROM einschalten, 
zurueck ins Hauptprogramm 


EEE EEE DELL EEE ee EL ern 
* RSXRAM.DAT - DATA-Lader von ’CPC' * 
ee een 


8899 .01 „DR, 00,00 ,@r „CR,C3 1D,8265 

Rus C2,C3,38,C0,C3,33.C8 

132.C4.57,41 Bi 

TA Baia, 45,53,45,D4,08,D5,E5,21,311F 
3 »B6,CD, 


8028, BB,23,18,F6,E1,D1,37,C9,5DCB 


4: MEMORY &7FFF 
RER GRE IE GSENEENDERSTHEN 128 


pr=pr#*2:IF pr>65535 THEN pr=pr-65535 
pr=UNT(pr)XOR a:IF pr<® THEN pr=pr+6553 
& 


READ pr$t:pr2=VAL("&"+pr$)zIF pr2<@ THEN 
IF pr<>pr2 THEN PRINT"Pruefsummenfehler 


SAVE"RSXRAM. BIN" ‚B,&8008,253 


Listing 3. Der DATA-Lader erzeugt den Binärcode »rsxram.bin« 


ROM einschalten, EXP-Speicher waehlen 
:Speicherzelleninhalt in Akku laden 
zAkku an Position der Variablen "a" ablegen 


Basic aktivieren 


internen RAM des CPC reservieren 
möchten, müssen Sie den Wert desHL- 
Registers, das die höchste freie Spei- 
cheradresse HiRAM enthält, entspre- 
chend verringern. Der Speicherbereich 
1 Byte über HiRAM bis zum alten 
HIRAM-Wert steht Ihnen dann zur freien 
Verfügung. 

Wenn Sie einen EXP-Speicher, der 
zuvor initialisiert wurde, über die FAR- 
CALL-Routine aufrufen, wird die Start- 
adresse des reservierten Speicherbe- 
reichs automatisch im IY-Register mit 
übergeben. Den Wert der niedrigsten 
freien Speicheradresse LORAM sollten 
Sie nicht verändern, weil sich sonst alle 
Bezugsadressen für Basic-Programme 


C31D4] 


„43, 5DD7 
4 


„4 52,2B2& 


Sa,2F28 


ABl 
13484] 


verändern, was zu Inkompatibilitäten 
führen kann. 


TITLE rsxram 

LIST 

ORG acazaH :Programmanfang bei C288 

DB 1,0,2,0 #1=Hintergrundspeicher, B=Version 

DW TABLE :Adresse der Befehlswort-Tabelle 
ENTRY  JP CARD ;Anfang der Sprungtabelle und 

:Einstiegsadresse bei Initialisierung 

Ir WAIT ;Sprungadresse fuer WAIT-Befehl 

IP RESET {Sprungadresse fuer RESET-Bi 
TABLE DB "CAR" „"D"+B@H ;Befehlswort CARD 

DB "WAL" „"T"+BOH ;Befehlswort WAIT 

DB ;Befehlswort RESET 

DB a :Kennzeichen fuer Tabellenende 
CARD PUSH DE ;DE (LoRAM) retten 

PUSH HL zHL (HiRAM) retten 

LD HL,TEXT ;Textzeiger in HL laden 
LOOP LD A, HL) :Textzeichen in Akku laden 

or a ;Textzeichen = @ ? 

IR Z,ENDE iwenn ja, dann Sprung zu ENDE 

CALL @BBSAH ;sonst Textzeichen ausgeben, 

INC HL ;Textzeiger erhoehen 

IR Loor sund naechstes Zeichen laden 
ENDE POP HL ;HL (HiRAM) holen 

POP DE ;DE (LoRAM) holen 

scr ;Carry=1 (fuer CPC 664/6128) 

RET ;zurueck ins Betriebssystem 
WaıT Jr @BB1EH sauf Tasteneingabe warten und zurueck 
RESET JP @ jan Systemstart springen 
TEXT DB " Memory Card installed with",® 

END 
Listing 4. Der dokumentierte Quellcode zu »rsxram.bin« 


100 een 


181 ‘* MELDUNG.DAT - DATA-Lader von "CPC“ 


Das Gesagte gilt nicht für einen Bau- 
stein, der durch die Nummer O freige- 
geben wird. Wie bereits erwähnt wurde, 


102. ne 


hat es mit der Nummer O eine ganz 
besondere Bewandnis, weil das 
Betriebssystem des CPC nach der 
Systeminitialisierung versucht, einen 
EXP-Speicher mit dieser Nummer auf- 


194 DATA g0m0.@1.09.09.29,87,CQ,C5, 11.825E 


106 DATA 8818,00,D5,E5.21,24,C@ 
187 DATA 8019,28,06,CD,5A,BB,23,18 
108 DATA 8@20.E1,D1,37,07.2@ 


zurufen. Ist nun ein EXP-Speicher mit 
der Nummer 0 am CPC angeschlossen, 
so wird dieser Speicher anstelle des 
Basic-Interpreters (obere ROM-Hälfte) 
unter der Adresse C006 (hex) aufgeru- 
fen. Wenn der EXP-Speicher dannnoch 
mit 


DI ;Interrupt sperren 

EXX ;Alternativ- 
Registersatz 

ID A,Cc ;alten Zustand in A 
retten 

SET 2,C ;Bit für Abschalten 
setzen 

OUT (C),C ;in das Gate Array 
schreiben 
;(B = Portadresse 

= 7F) 
EXX ;Original-Registersatz 
EI ;Interrupt freigeben 


die untere ROM-Hälfte (Betriebs- 
system) ausschaltet, hat das Programm 
im EXP-Speicher Nummer O die allei- 
nige Kontrolle über die Hardware des 
Schneider CPC und kann über den 
gesamten internen RAM-Speicher (und 


187 DATA 8028,31,34,20,28,31,36,2@, 
11@ DATA 8930,42,79,74,65,20,45,58,52, TFaBa] 
111 DATA 8038,4F ,4D,28,72,65,61,64,79,35FD [@B4E] 
112 DATA 8040,04,0D,00,00,00,00,00,00,848 LFD&AI 
113 DATA #ENDE* L&CBEI 
114 adr=&8008: zeile=104:MEMORY &IFFF CB@SEI 
115 READ d$: IF d$="#ENDE«"THEN 126 [5 
116 era [53@E] 
117 FOR i=1 TO 8 182641 
118 READ af: a=VAL("a"+a$) Laas2] 
119 POKE adr ‚aradr=adr+1 C2B1E] 
128 pr=pr#2:iF pr>65535 THEN pr=pr-65535 C&BaC] 
121 or=UNT(pr)XOR asIF pr<® THEN pr=pr+6553 
& L96A4J 
122 NEXT i L2FFA] 
123 READ pr$:pr2=VAL("&"+pr&):IF pr2<® THEN 
pr2=pr 2465536 CABB6I 
124 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
in Zeile";zeile:STOP TASBEI 
125 zeile=zeile+1:6070 115 [BESAJ 
126 SAvi 'LDUNG. BIN" „B, 48000,443 14088) 
127 PRINT d$:END 14688] 


Listing 5. Der DATA-Lader zur Melderoutine 


weitere . angeschlossene EXP-Spei- 
cher) verfügen. Wer in Maschinenspra- 
che und im Aufbau des CPC gut bewan- 
dertist, kann auf dieser Basis sein eige- 
nes Betriebssystem für den CPC 
schreiben, ohne in Gefahr zu geraten, 
daß ihm eine Original-Routine des inter- 
nen ROM »dazwischenfunkte. Wir sind 


schon jetzt gespannt, welche interes- 
santen Lesereinsendungen wir zu die- 


sem Thema erhalten. Es muß ja nicht 
gleich ein Multiuser- und Multitasking- 
fähiger MS-DOS-Emulator sein! 

Da das Disk-ROM des Disketten- 
Controllers als EXP-Speicher die Num- 
mer 7 belegt, können alle CPC- 
Besitzer, die mit mindestens einem 
Laufwerk arbeiten, diese Nummer nicht 
nutzen. Weil die ROM-WALK-Routine 
des CPC 664/6128 jedoch EXP- 


3WWW HOMECOMPUTER 


—— —— = 
— ——____. 

TITLE meldung 

LIST 

ORG acaaaH :Programmanfang bei C208 

DB 1,0,0,0 :1=Hintergrundspeicher, Q=Version 

DW TABLE :Adresse der Befehlswort-Tabelle 
ENTRY JP REPORT Einstiegsadresse bei Initialisierung 
TABLE DB "REPORT" ,"1"480H  ;Befehlswort REPORTI 

DB a Kennzeichen fuer Tabellenende 
REPORT PUSH DE DE (LoRAM) retten 

PUSH HL ;HL (HIRAM) retten 

LD HL,TEXT :Textzeiger in HL laden 
Loop LD A, (HL) Textzeic in Akku laden 

OR a ;Textzeichen = @ ? 

EIN Z ENDE wenn ja, dann Sprung zu ENDE 

CALL GBBSAH sonst Textzeichen ausgeben, 

ING HL ;Textzeiger erhoehen 

IR LOOP sund naechstes Zeichen laden 
ENDE POP HL #HL (HiRAM) holen 

POP DE :DE (LoRAM) holen 

SCH sCarry=i1 (fuer CPC 664/6128) 

RET zurueck ins Betriebssystem 
TEXT DE " Nr.iz 16 KByte EPROM ready",10,13,@ 

END 


Listing 6. Mit Hilfe des Quellcodes können Sie die Melderoutine individuell anpassen 


Speicher mit den Nummern 1 bis 15 
einbindet, lohnt sich der Umbau der 
Dekodier-Schaltung nach Bild 11. Diese 
Version dekodiert nicht die Nummern O 
bis 7, sondern alle geraden Nummern 
von O bis 14. Dadurch wird die Nummer 
7 nicht genutzt, und Sie können acht 
EXP-Speicher an Ihren CPC anschlie- 
Ben. (Achten Sie jedoch auf die Num- 
mer 0!) 

Zu guter Letzt in Listing 5 noch eine 
kleine Routine als DATA-Lader, die, in 
jeden EXP-Speicher eingebunden, eine 3 
Bereitschaftsmeldung in der Art von Bild 11. Diese Dekodier-Version verarbeitet die geraden Nummern von 0 bis 14 
Bild 1 ausgibt. Die Nummer, Größe und 
Art des EXP-Speichers müssen Sie 
natürlich entsprechend den Hardware- Listing 6 abgedruckt. zeichen für das Textende abgeschlos- 
voraussetzungen abändern. Um Ihnen Wichtig ist, daß der Text mit den Wer- sen wird, damit eine korrekt formatierte 
diese Änderungen zu erleichtern, ten 10 und 13 für Zeilenvorschub und Bildschirmausgabe erfolgt. 
haben wir zusätzlich den Quellcode in Wagenrücklauf, sowie einer O als Kenn- (Michael Stagge/ma) 


Bssommnmm 


MMMM 82222 
22222MMMM 
5555555 uUMMM 
BRFRITSSSUMM 
SUMMMSMSM 
MSSsuL m 


_ 


Noch mehr Eingabekomfort 


Der neue Checksummer für den Schneider CPC 
ist da! »Explora 2.0« macht die Eingabe von Pro- 
grammen noch einfacher. 


sen, was »Explora« ist: Wenn Sie dieses Programm 
gestartet und wieder gelöscht haben, überprüft der 
Computer automatisch Ihre Eingaben auf Richtigkeit. Sobald 
Sie die Eingabe einer Programmzeile abschließen, erscheint 
eine vierstellige Hexadezimalzahl in eckigen Klammern auf 
dem Bildschirm. Das im Heft abgedruckte Listing enthält 
ebenfalls solche Zahlen. Stimmen die Prüfsummen auf dem 
Bildschirm und im Heft überein, haben Sie die Zeile korrekt 
abgetippt. Gibt es Unterschiede zwischen den Werten, soll- 
ten Sie auf Fehlersuche gehen und die Zeile korrigieren. Das 
alles konnte »Explora 1.0« auch schon. Der Vorteil der neuen 
Version besteht darin, daß Sie jetzt größere Freiheit bei der 
Eingabe der Zeilen haben. So akzeptiert unser Prüfsummen- 
programm die Basic-Schlüsselworte in Klein- oder Groß- 
buchstaben (auch gemischt). »PRINTs läßt sich mit dem Fra- 
gezeichen abkürzen. »Explora 2.0« läßt zum Beispiel für die 
Zeile »100 PRINT« folgende Eingaben zu: 
100 PRINT 
100 print 
100 ? 
100 PrInT 

Die Zeilen müssen also nichtmehr schon beim Eintippen so 
aussehen wie im Heft, sondern erst beim Auflisten. Außer- 
dem werden Prüfsummen nur noch für Programmzeilen aus- 
gegeben, nicht mehr - wie früher - auch bei Direktbefehlen. 
Vor der Zeilennummer stehende Leerzeichen, Line-Feeds 
und Tabulatorzeichen überliest Explora jetzt selbsttätig. Leer- 
zeichen innerhalb der Zeile wertet es aber weiterhin. Sie ver- 
ändern also die Prüfsumme. Explora erlaubt auch die Verwen- 
dung des EDIT-Befehls. AUTO ist jetzt ohne Einschränkun- 
gen zu benutzen - allerdings nur beim CPC 664 und CPC 
6128. Explora 1.0 liegt im Speicher fest zwischen den Adres- 
sen A000 und A086 hex. Die neue Version verschiebt der 
Basic-Lader automatisch im Speicher direkt unter HIMEM. 
So ist SYMBOL AFTER einwandfrei funktionsfähig. Eine 
kleine Einschränkung gibt es aber doch: Löschen Sie keines- 
falls Zeilen durch Eingabe der Zeilennummer und anschlie- 
Bendes Drücken der ENTER-Taste! Die Zeile wird nämlich gar 
nicht wirklich gelöscht, sondern erscheintals Duplikat der fol- 
genden Zeile. Verwenden Sie statt dessen DELETE. Statt 
»20« schreiben Sie »DELETE 20«. Das Wichtigste nicht zu 
vergessen: Explora 2.0 ist aufwärtskompatibel zur Version 
1.0. Das heißt, daß Sie sowohl mit Explora 2.0 frühere 
Listings abtippen können, als auch mit Explora 1.0 alle 
zukünftigen. Die Prüfsummen sind identisch. 

Aber bei den gedruckten Listings hat sich einiges geän- 
dert. Die Neuerungen betreffen die Darstellung von Leer- und 
Sonderzeichen. Statt ”[5 SPACE)” steht jetzt im Listing 
”"<5>* für fünf Leerzeichen. Um dies eindeutig vom tat- 
sächlichen Programmcode zu unterscheiden, erscheint der 
Text unterstrichen. Die Steuerzeichen hießen bisher bei- 
spielsweise »[CTRL Al«. Jetzt steht hier die übersichtlichere 
Form A. Finden Sie im Listing also einen unterstrichenen 
Buchstaben ohne Klammern, müssen Sie gleichzeitig die 
CTRL-Taste drücken. Manche Programmautoren bestehen 
leider immer noch darauf, auch die Grafikzeichen von 128 bis 
255 in Programme aufzunehmen. Solche Symbole stehen 
zukünftig in Klammern und sind als ASCII-Wert mit vorange- 
hendem »G« für »Grafikzeichen« dargestellt. Das Zeichen 


y4 uerst einmal Informationen für alle, die noch nicht wis- 


223 hat dann im Listing die Form <G223>. Die Zeichen 
können nicht von der Tastatur aus direkt eingegeben werden. 
Simpler Trick: Ausgabe des Zeichens mit »PRINT 
CHR$(223)« und Übernahme mit dem Copy-Cursor. 
Sämtliche Listings sind im ASCIl-Zeichensatz gedruckt. 
Deutsche Sonderzeichen erscheinen daher im Druck als 
Klammern und andere amerikanische Zeichen. Verwenden 
Sie ruhig an Stelle dieser Zeichen die entsprechenden deut- 


schen. (Martin Kotulla/ja) 
100 1. HERR EDFCCI 
10 * EFADA] 
120° * EXPLORA v2.0 * L761E1 
130’ * * EDCDE] 
1901. RR CC3D43 
150 ° LE1BAI 
160 DEF FNisb (x)=255 AND UNT (x) L39E0] 
170 DEF FNmsb (x)=255 AND INT (x/256) [88643 
180 SYMBOL AFTER 256:MEMORY HIMEM-1&1 L948C) 
190 start=HIMEM+1:SYMBOL AFTER 240 [20921 


FOR i=%AO00 TO &AO9D:READ as: sum=sum 
+VAL C"&"+a$) zNEXT i 
IF sum<>17814 THEN PRINT 


EB2C81 

"DATA-Fehle 
EFCCEI 

=start TO start+&9D:REA 
L608E] 


[24D21 
LACZAI 


[2776] 
FÜKE a,FNIsb (wert):FOKE a+l,FNmab (we 
mt) NEXT i 
IF PEEK(6)=&80 THEN 
F20,%A4 
IF PEEK(6)=&7B THEN 
IESTORE 470 


ri"zEND 
RESTORE: FOR 


TO AD arasa+start 
PEEK (a) +PEEK (a+1) #256-40960+sta 


C01B21 
ed=tEDSA:POKE &B 

L56A81 
ed=&BD5B:POKE &B 

L760C1 
ed=&EDSE:POKE &B 
Ci6FA] 
L71DE] 


19984] 


F20,%BA: RESTORE 490 

POKE &BF21,%AC:POKE &BF22,PEEK (ed) 

© FOKE &BF23,PEEK(ed+1)POKE &BF24,PEE 
Kled+2) 

320 POKE ed,&CS:POKE ed+1,FNlsb(start):P 


OKE ed+2,FNmsb (start) LFAE6] 
330 IF PEEK(6)=&80 THEN END [60441 
340 FOR i=1 TO 7:READ a$,b$:a=VAL("&"+as 


)+startzb=VAL ("&"+b$) [33063 
POKE a,FNlsb(b):POKE a+1,FNmsb (b) :NE 

xXT i 10332] 
DATA CD,22,BE,FS,C5,DS,E5,24,20,BF,C 
D,61,DD,B7,28,6: 

DATA 'ES,2A,20, Er, CD,88,A0,E1,30,58,C 
D,04,EE,CD,AS,E7 

DATA 'CD,63,E1,ED,48,20,BF,21,00,00,0 


LSBFCI 
LSEF21 


A,SF,16,00,19,03 CDBF6] 

3970 DATA FE,00,20, a DD,2A,20,BF,01,00,0 
0,DD,7E,00,5F, LaDsE1 

a00 DATA "00,19.04,F8,A8,47,F1,09,DD,23,F 
E,00,20,ED}3E,0D LESSCI 

410 DATA’CD,)SA,BR,SE,ORA,CD,5A,BB,3E,5B,C 
D,SA,BB,7C,CD,77 1259A1 

420 DATA "a0, 7C, CD, TB, A0,7D,ED,77,A0,7D,C 
D,7B,AO, SE, SD,CD L014A] 

430 DATA SA,BB,E1,D1,C1,F1,09,1F,1F,1F,1 
F,E6,0F,C6,30,FE LA10Al 

440 DÄTA’SA,38,02,06,07,03,5A,BB,CD,61,D 
D,B7,37,C8,CD,04 L64AC1 

450 DATA EE, DD 7E,FE,20,20,01,23,CD,D2,E 
6,37,9F ,C\ LOC361 
460 DÄTA’&1S,&SF ‚&63,%67,&6B 134223 
470 DATA OB, DES2, 1B, EED4, 1E,E869 [7B14] 

480 DATA 21,E259,89,DES2)8F ,EED4,99 ,E7AA 
[05863 
490 DATA OB,DE4D,1B,EECF ‚1E,E864 C1F5S21 

500 DATA 21,6254,89,DE4D,BF,EECF „79 ,E7A5 
[249A] 
510 END EAA1AI 


Listing. »Explora« macht Eingabefehler fast unmöglich 


Steckbrief 
Programm: Explora 2.0 
Computer: CPC 464/664/6128 
Checksummer: Explora 1.0 
Datenträger: Kassette/Diskette 


CAD steht für Computer Aided 
Design. Bis heute war dieses 
Gebiet hauptsächlich Domäne 
der Großrechner. Mit »CPC-Giga- 
CAD« wird auch auf dem Schnei- 
der CPC automatisiertes und 
computergestütztes Zeichnen 
und Konstruieren zum Kinder- 
spiel. 
n Sachen Grafik war auf dem 
Schneider CPC schon immer alles 
zum besten bestellt, behaupten 
einige. Mit »CPC-Giga-CAD« sehen Sie, 
daß das nicht stimmt. Beim Anblick der 
Beispiels-Grafiken auf den nächsten 
Seiten wird Ihnen »das Wasser im Mund 
zusammenlaufen«. Zu Recht, denn sol- 
che Grafiken war man bisher vom 
Schneider CPC nicht gewohnt. 
CPC-Giga-CAD ist mit Sicherheit eins 
der leistungsfähigsten Grafik-Pro- 
gramme für die »kleinen« Schneider- 
Computer. Dreidimensionale Körper 
lassen sich sehr einfach und schnell 
konstruieren. Das Programm ist voll- 
ständig menügesteuert. Grafiken köi 
nen Sie mit einer Auflösung von bis zu 
640 mal 800 Punkten (das sind 
512000 Bildpunkte) berechnen und 
ausdrucken lassen. Aber damit noch 
nicht genug: Filme mit bis zu 50 Bildern 
pro Sekunde sind für CPC-Giga-CAD 
kein Problem. Lassen Sie sich begei- 


{ Ey Momecomeure 


stern und begeistern Sie auch andere 
mit einer Vorführung. 

Erschrecken Sie nicht vor den ellen- 
langen Listings, aus denen CPC-Giga- 
CAD besteht. Selbstverständlich sind 
alle Routinen des Programms auf der 
Leserservice-Diskette. Eine weitere 
Diskette enthält jede Menge schon fer- 
tig gezeichneter Objekte. Mit dieser 
Bibliothek liegen dann alle wichtigen 
Figuren vor. Als Paket sparen Sie bei 
beiden Disketten zusammen 20 Mark 
gegenüber dem Einzelkauf. Mit CPC- 
Giga-CAD können Sie mit Hilfe des 
Computers absolut plastische Bilder 
konstruieren. Ihre Tätigkeit verlagert 
sich dabei vom Reißbrett zum Bild- 
schirm. Die Konstruktion der einzelnen 
Objekte ist mit sehr geringem Aufwand 
möglich. Es wäre sicher ein Alptraum, 
müßten Sie die Koordinaten der dreidi- 
mensionalen Gebilde über die Tastatur 
eingeben. Aus diesem Grunde arbeitet 
unser Grafik-Programm  bildschirm- 
orientiert. Einfacher Tastendruck, Cur- 
sorsteuertasten und Joystick stehen 
wahlweise zur Bedienung zur Verfü- 
gung. Mit der Taste <Enter> ist übri- 
gens immer die »große« Enter-Taste 
gemeint. Beim CPC 6128 trägt sie den 
Namen <Return>. Das Bedienungs- 
konzept eröffnet auch dem »Nicht- 
Computer-Freak« die Welt zum Compu- 
ter Aided Design. 

Ihre Grafiken lassen Sie wahlweise 


auf dem Bildschirm ausgeben - oder 
mit Hilfe der eingebauten Hardcopy- 
Routine auf dem Drucker ausdrucken. 

Voraussetzung für CPC-Giga-CAD ist 
ein Schneider CPC (unabhängig ob 
464, 664 oder 6128) mit Diskettenlauf- 
werk. Das Programm arbeitet unter 
CP/M 2.2, das Sie vor dem Programm- 
start laden müssen. Das eigentliche 
Programm besteht aus drei Pascal- und 


Ohne Fleiß kein Preis 


drei Maschinencode-Routinen. Damit 
auch CPC-Besitzer, die kein Turbo- 
Pascal ihr eigen nennen, das Programm 
benutzen können, finden Sie drei 
umfangereiche DATA-Lader für diecom- 
pilierten Pascal-Routinen. Wer Turbo- 
Pascal besitzt, sollte allerdings auf die 
Pascal-Listings zurückgreifen. Er spart 
sich die Arbeit, die Runtime-Bibliothek 
(immerhin 9 KByte lang) einzutippen. 
Für die Arbeit mit CPC-Giga-CAD 
brauchen Sie folgende Routinen auf der 
Arbeitsdiskette: 
CREATE.CHN 
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Bild 1. Angriff aus dem Omega-Nebel - 
das Darth-Vader-Raumschiff in 4facher 


Auflösung (Fluchtpunkt = 20; Helligkeit = 0 bis 100) 


Die Listings zu CPC-Giga-CAD finden 
Sie gesammelt nach der Programm- 
Beschreibung (hinter der Referenz- 
karte). Die ersten neun Listings muß 
jeder (unabhängig davon, ob er Turbo- 
Pascal besitzt oder nicht) eintippen. 

Als erstes geben Sie die Programme 
aus Listing 1, 2 und 3 unter Basic ein. 
Die DATA-Lader liegen im CPC-Format 
vor. Das »Comfortable Program for 
Codeinput« (CPC) ist letztmals im 6. 
Schneider Sonderheft auf Seite 84 
abgedruckt worden. Sie können also 
die Daten wahlweise mit dem hier abge- 
druckten DATA-Lader oder dem CPC 
eingeben. Auf alle Fälle sollten Sie die 
Prüfsummenfunktion nutzen. Mit Hilfe 
von Explora steht das Programm über- 
prüft - und damit richtig - im Speicher. 
Sichern Sie es vor dem ersten Start 
aber dennoch unbedingt auf Diskette. 
Die Zahl der Daten macht die fehlerfreie 
Eingabe nicht einfach. 

Die drei Programme aus Listing 1, 2 
und 3 erzeugen auf Diskette drei Binär- 
dateien mit den Namen 
CREATE1.BIN 
CREATE2.BIN 
und 
CREATE3.BIN 

Als nächstes geben Sie Listing 4 ein 
und starten dieses. Die drei Binärda- 
teien werden nachgeladen (müssen 
also auf der Diskette stehen) und die 
erste CPC-Giga-CAD-Datei 


ADNWW HOMECOMEUTE 


CREATE. CMD 
ist fertig. 

Als nächstes geben Sie Listing 5 ein 
und lassen es laufen. Es wird die Datei 
FILM.BIN 
erzeugt, die mit der Routine aus Listing 
6 zu der CPC-Giga-CAD-Datei 
FILM.COM 
umgewandelt wird. Auch die DATA- 
Zeilen aus Listing 5 liegen im CPC- 
Format vor. 

Listing 7 und Listing 8 (wieder im 
CPC-Format) erzeugen die Binärda- 
teien 
PAINT1.BIN 
und 
PAINT2.BIN 

Mit Listing 9 wird daraus 
PAINT.CMD 

Dies ist die dritte CPC-Giga-CAD- 
Datei. 

Die nächsten drei Dateien für unser 
Grafik-Programm sind für die Besitzer 
von Turbo-Pascal schnell eingegeben. 
Geben Sie Listing 10 unter dem Namen 
CREATE.PAS 
ein, Listing 10a unter dem Namen 
CREATEU.PAS 
und Listing 10b als 
CREATEV.PAS 
Listing 11 wird unter dem Namen 
PAINT.PAS 
eingetippt, 
Namen 


Listing 11a erhält den 


PAINTU.PAS 


und Listing 11b heißt 
PAINTV.PAS 

Zum Compilieren muß bei diesen bei- 
den Dateien die Option für Chain-Da- 


teien gewählt werden (<H> im 
Optionsmenü von Turbo-Pascal wäh- 
len). Auf der Diskette müssen jetzt die 
beiden Dateien 
CREATE.CHN 
und 
PAINT.CHN 
stehen. Listing 12 wird unter dem 
Namen 
TS.PAS 
eingegeben. Zum Compilieren wählen 
Sie jetzt die Option <C> für COM- 
Dateien. Beim Compilieren wird jetzt die 
Turbo-Pascal-Bibliothek mit eingebun- 
den. Auf der Diskette steht jetzt auch 
die letzte CPC-Giga-CAD-Datei 
TS.COM 

Wer kein Turbo-Pascal besitzt, hat 
etwas mehr Arbeit, um ein lauffähiges 
Programm zu erzeugen. Sie tippen 
Listing 13 und 14 ab, lassen sie laufen 
und bekommen so die Binärdateien 
CREPAS1.BIN 
und 
CREPAS2.BIN 

Mit der Routine aus Listing 15 wird 
daraus die CPC-Giga-CAD-Datei 
CREATE.CHN 

Listing 16 erzeugt die Binärdatei 
PAINTPAS.BIN 
die mit Listing 17 zu der Datei 
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<r> - Fläche 

<Pfeil rechts> - um sechs Rasterpunkte Die ersten Schritte 
<P> - Punkt fixieren . - 

<Pfeil runter> - um acht Rasterpunkte mit CPC-Giga-CAD 
<P> - Punkt fixieren 

<Enter> % z 5 Die Bedienung von CPC-Giga- 
az - als Antwort auf die Frage Achse (J/N)? CAD ist sehr umfangreich. Um das 
ES is ae Programm richtig zu verstehen, 
<u> Arte müssen Sie die folgenden Seiten 
<E> - Endfläche (N) gründlich lesen. Falls Sie aber einen 
<1> - .P verbinden (3) ersten Eindruck gewinnen wollen, 
<L> - .P verbinden (J) dann drücken Sie einfach die Tasten, 
=2> - Wiederholung die im Beispiel erwähnt werden. Ihr 
<4> <Enter> - auf die Frage Anzahl: erstes Aha-Erlebnis wird Sie schnell 
<Enter> erfreuen. 

Rs en Unsere erste Aufgabe ist das 
<R> - Rotieren E r 

1360 <inter> Zeichnen eines Quaders. Nehmen 
<a> - Ausführen(Para) Sie Ihre Arbeitskopie (nie mit dem 
<R> - Rotieren Original arbeiten) mit allen sechs 
30 <Enter> CPC-Giga-CAD-Dateien. Die Dis- 
<Shift> + <Pfeil rechts> kette darf nicht schreibgeschützt 
<Pfeil runter> sein (unter CP/M mit <CTRL+C> 
<Enter> anmelden). Starten Sie CP/M durch 
<F> 5 = Fläche Eingabe von 

<Shift> + <Pfeil rechts>- um zwölf Rasterpunkte ICPM <inter> 

Een Br een Als nächstes rufen Sie 

<Enter> 

<I> - als Antwort auf die Frage Lichtquelle (J/N)? TS CREATE <Enter> 

<p> - Diskette auf. Alle folgenden Anweisungen 
<Aa> - Objekt speichern laufen unter CPC-Giga-CAD. Der 
QUADER <Enter> nebenstehende Kasten zeigt Schritt 
<Enter> für Schritt die Entstehung eines 
<Enter> Würfels. Die Bildschirmdarstellung 
<J> - als Antwort auf die Frage Ende (J/N)? erfolgt dann mit den Beispielschrit- 
Hier entsteht der Würfel im Detail: So kann nichts schiefgehen! Sn SUngeTTEe Dee 


PAINT.CHN T51.BIN 
verwandelt wird. und 
Und damit haben Sie es auch fast TS2.BIN 
schon geschafft. Listing 18 und 19 Mit Listing 20 wird daraus die letzte 
erzeugen die beiden letzten Binärda-- CPC-Giga-CAD-Datei 
teien TS.COM 


auf Diskette geschrieben. 

Alle DATA-Lader liegen im CPC- 
Format vor, so daß die Eingabe komfor- 
tabel möglich ist. Aber auch die Ein- 
gabe als Basic-Programm ist mit Hilfe 
von Explora (bitte unbedingt benutzen) 


Bild 2. Dieses bedrohlich wirkende 3D-IC wurde 
mit doppelter Auflösung (640 mal 400), einem 


Fluchtpunkt von 16 und der Helligkeit 
0 bis 100 berechnet. 
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Bild 3. 4 
Der erste Würfel 
ist berechnet 


Bild 4. 
Der durchsichtige 
Würfel 


TS PAINT <Enter> 


Als nächstes starten Sie die Ausgaberoutine mit 


<D> - Darstellen 

<1> - Objekt laden 

QUADER <Enter> 

<B> - Bild berechnen (Bild 3) 

<Enter> - als Antwort auf Name: 

<Space> - wieder in das Hauptmenü zu gelangen 
<> - Modi einstellen 

<D> - Durchsichtig (J) 

<Enter> 

<b> - Darstellen 

<L> - Objekt laden 

QUADER <Enter> 

<B> - Bild berechnen (Bild 4) 

<Enter> - als Antwort auf Name: 

<Space> - um wieder in das Hauptmenü zu gelangen 


einfach. Und für ganz »Unwillige« gibt 
es noch den Weg, das Programm auf 
Diskette zu erstehen. Aber die Bilder 
zeigen Ihnen, daß sich die Arbeit (oder 
die Kosten für die Disketten) lohnt. 

Auf der Arbeitsdiskette brauchen Sie 
dann zum Schluß nur noch folgende 
Programme: 
CREATE.CHN 
CREATE.CMD 
FILM.COM 
PAINT.CHN 
PAINT.CMD 
und 
TS.COM 

Wer CPC-Giga-CAD richtig profes- 
sionell nutzen will, für den haben wir 
noch eine zweite Diskette nur mit vor- 
definierten Objekten in petto. Diese 
Objekte bieten Ihnen eine Sammlung 
unzähliger Figuren, die Sie in eigene 
Grafiken integrieren können. Aber auch 
für sich alleine sind die Bilder sehens- 
wert. Oder die kurzen Filme, die wir für 
Sie auf die Diskette gespielt haben. 

Wie Sie es auch sehen: CPC-Giga- 
CAD bietet Ihnen viel Freude. 

(Marcus Hutter/Stefan Groll/hg) 


« Der Zweite Teil unseres 
Beispiels stellt den Würfel 
auf dem Monitor dar. 


Malen mit CPC-Giga-CAD 


aus sechs Dateien: drei Maschi- 

nencode-Routinen und drei Pas- 
cal-Programmen. Die drei Dateien 
CREATE.CHN 
CREATE.CMD 
T8.COM 
müssen beim Zeichnen immer zusam- 
men auf der Arbeitsdiskette stehen. 
»FILM.COM« und die beiden Dateien 
»PAINTCHN« und »PAINT.CMD« brau- 
chen wir erst im nächsten Kapitel. »TS« 
ist das Steuerprogramm für die Ein- und 
Ausgaberoutinen. Es dient dazu, die 
Programmteile »CREATE« (Erstellen) 
und »PAINT« (Darstellen) nachzuladen 
und zu starten. Diese beiden Unterpro- 
gramme bestehen jeweils aus einem 
Pascal- und einem Assemblerteil. Der in 
Turbo-Pascal geschriebene Teilmuß als 
sogenannte Chain-Datei auf der Dis- 
kette stehen. Wie Sie ihn erzeugen, 
stehtin dem Kasten »Eingabe von CPC- 
Giga-CAD«. 

Die Ein- und Ausgaberoutinen dürfen 

ohne Zerstörung des gerade bearbeite- 
ten Objektes oder der definierten Vor- 


€ PC-Giga-CAD besteht insgesamt 
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CPC-Giga-CAD besteht aus zwei 
Teilen: der Eingabe- und der Aus- 
gaberoutine. »Create« bringt 
alles auf den Bildschirm, was Sie 
zeichnen. Die Anweisungen wer- 
den hier ausführlich erklärt. 


einstellungen verlassen und auch wie- 
der aufgerufen werden. Da die Daten für 
das Objekt im Speicher von 6000 hex 
an aufwärts stehen, darf vor dem neuen 
Aufruf in diesem Bereich nichts verän- 
dert werden. 

Alle Informationen über das Ausse- 
hen der Objekte stecken in den Eck- 
punkten. Da die Abbildung einer Fläche 
zweidimensional ist, stellen alle Eck- 
punkte zusammen einen geschlosse- 
nen Polygonzug dar. Das heißt aber 
auch, daß sich Verbindungslinien nie 
schneiden dürfen. 

Ein Makro ist eine Zusammenstellung 
von mehreren Flächen. Jedes Makro 
kann einzeln editiert, verformt und auf 
Diskette gespeichert werden. Das tat- 
sächlich abgebildete Objekt (der Bild- 


schirminhalt) besteht aus einem oder 
mehreren Makros, die wiederum aus 
Flächen bestehen, die durch Eck- 
punkte definiert sind. 
Der Eingabeteil: 
Die Eingaberoutine startet mit 
TS CREATE 

»TS« steht für Turbo Start« und lädt 
die Pascal-Routine »CREATE.CHN«. 
Dieser Teil lädt bei Bedarf automatisch 
den Maschinencode »CREATE.CMD«. 
Turbo Start beinhaltet die Runtime- 
Bibliothek von Turbo-Pascal sowie den 
Startbefehl für die einzelnen Pro- 
grammteile. Aus diesem Grunde hat der 
Quellcode von TS nur eine Länge von 1 
KByte, der Objektcode hingegen 
belegt auf der Diskette 9 KByte. Wer 
kein Turbo-Pascal benutzt, kommt des- 
halb nicht umhin, die lange Datei mit den 
einzelnen Routinen von Turbo-Pascal 
als hexadezimale Zahlen einzutippen. 

Die Grundidee des Programms 
beruht darauf, alle darzustellenden 
Objekte ausschließlich aus Flächen 
zusammenzusetzen. Dies gilt sowohl 
für alle zweidimensionalen wie auch 


—— 


räumlichen Gebilde. Bearbeitet - das 
heißt verändert oder bewegt - werden 
grundsätzlich nur blinkende Flächen 
oder Objekte. Blinkt auf dem Bildschirm 
nichts, dann wird gerade das ganze 
Objekt »am Stück« behandelt. 

Sämtliche Funktionen werden mit 
Hilfe eines Menüs ausgewählt. Die Cur- 
sorsteuertasten <Pfeil hoch> und 
<Pfeil runter> bewegen den Cursor 
(invers dargestelltes Feld) von einem 
Menüpunkt zum nächsten. Mit 
<Shift> oder der Leertaste wird die 
gewählte Funktion ausgeführt. Ein 
anderer Weg, im Menü eine bestimmte 
Funktion zu aktivieren, ist der einfache 
Druck auf die zu dem Punkt gehörige 
Taste. 

Die bildschirmorientierte Steuerung 
arbeitet mit einem Haupt- und mehreren 
Untermenüs. In ein vorheriges Menü 
kommt man mit <Enter> zurück. 
Steuern Sie den Cursor nach oben oder 
unten über die Grenze hinweg, dann 
erreichen Sie den gleichen Effekt. 

Eine weitere Steuerungsart ist der 
Joystick. Dabei entsprechen die jeweili- 
gen Richtungen den Cursorsteuerta- 
sten und <Shift> dem Feuerknopf. 
Das Hauptmenü: 

Nach dem Start mit 

TS CREATE 

steht folgendes Menü auf dem Bild- 
schirm: 

[F] Flaeche 

Uebernehmen 

Achse 

[V] Verformen 

Form-Parameter 

Zoomen 

Editieren 

Diskette 

'S] Sonstiges 

[F] Fläche: Der Menüpunkt Fläche 
dient dazu, neue Flächen einzugeben 
oder bestehende Flächen weiter zu 
bearbeiten. Es lassen sich mit »F« aller- 
dings nur blinkende Flächen verändern. 
Fläche bietet folgende Unterpunkte: 
[M] Mittelpunkt 

[A] Anfangspunkt 

[U] Unsichtbar 

[P] Punkt fixieren 

[L] Punkt loeschen 

[R] Restobjekt (EIN/AUS) 

[K] Hilfskreis 

CPC-Giga-CAD arbeitet mit einem 
dreidimensionalen kartesischen - also 
einem rechtwinkligen - Koordinaten- 
system. Der Bildschirm zeigt immer 
gleichzeitig die drei Hauptebenen und 
das jeweils aktive Menü an. Links oben 
finden Sie die xz-, rechts oben die 
yz- und links unten die xy-Ebene 
(Tabelle 1). 

Nach dem ersten Aufruf von Fläche 
befindet sich der Cursor im Ursprung 
des Koordinatensystems. Mit <Pfeil 
links> und <Pfeil rechts> läuft der 


Cursor parallel zur x-Achse (auf dem 
Bildschirm in den beiden linken Fen- 
stern) und mit <Pfeil hoch> und 
<Pfeil runter> parallel zur z-Achse. 
<Pfeil rechts> und <Pfeil links> 
gemeinsam mit der Shift-Taste bewegen 
den Cursor in y-Richtung. Steht nun der 
Cursor an der gewünschten Position, 
so markiert die Funktion <P> (Punkt 
fixieren) diese Stelle als ersten Eck- 
punkt der zu entwerfenden Fläche. 


Bedienungskomfort 
durch Menü- und 
Cursorsteuverung 


Beim weiteren Bewegen des Cursors 
wird ständig eine Verbindungslinie zwi- 
schen der aktuellen Cursorposition und 
dem zuletzt markierten Punkt ange- 
zeigt. Die Anzahl der Eckpunkte ist 
dabei beliebig. Falls Sie das Untermenü 
Fläche (mit <Enter>) verlassen bevor 
der Polygonzug, der die Fläche umran- 
det, geschlossen ist, so holt dies das 
Programm automatisch nach. Eine 
Linie, die auf diese Art erzeugt wird, ist 
immer sichtbar. Wichtig ist noch, daß 
sich innerhalb einer Fläche keine Linien 
kreuzen dürfen. Dies führt nämlich bei 
der (später besprochenen) Schattie- 
rung zu Problemen. 

[M] Mittelpunkt: Dieser Befehl setzt 
den Cursor auf den Ursprung des Koor- 
dinatensystems. Das erweist sich bei- 
spielsweise als sehr praktisch, wenn 
der Cursor irgendwo außerhalb des 
Bildschirms »verloren gegangen« ist. 

[A] Anfangspunkt: Diese Funktion 
positioniert den Cursor auf den ersten 
Punkt der mit »[P] Punkt fixieren« oder 
»[U] Unsichtbar« markiert wurde. 

[U] Unsichtbar: Es kann passieren, 
daß Sie eine Fläche darstellen wollen, 
deren Begrenzungslinien nicht alle zu 
sehen sein sollen. Diese Linien müssen 
also markiert werden, um anzuzeigen, 
daß sie unsichtbar sein sollen. Die Linie 
ist somit beim Zeichnen der Fläche 
nicht zu sehen, obwohl sie natürlich 
dennoch vorhanden ist und bei allen 
Berechnungen berücksichtigt wird. 
Falls in dem Hauptmenü »[S] Sonsti- 


ges« »[U] Unsichtbar« auf »AUS« 
Ebene Bildschirmplatz Blick von 
xz oben links vorn 
yz oben rechts links. 
xy unten links 


oben 


Tabelle 1. Drei Ebenen zeigen alles an 


gestellt ist, werden die als unsichtbar 
markierten Linien nicht angezeigt. 
Solange eine Fläche jedoch bearbeitet 
wird (die Fläche blinkt), sind auch die 
als unsichtbar definierten Linien zu 
sehen. 

Auch Punkte dürfen als unsichtbar 
definiert werden. Nach Aufruf des 
Menüpunktes »[F] Flaeche« bewegen 
Sie den Cursor an die Stelle, an die Sie 
den ersten Punkt setzen wollen. Mit 
»[P] Punkt fixieren« oder »[U] Unsicht- 
bar« markieren Sie diesen Punkt sicht- 
bar oder unsichtbar. Der nächste Aufruf 
von einer dieser beiden Funktionen 
definiert die blinkende Linie als sicht- 
oder unsichtbar. Rufen Sie aber, ohne 
den Cursor zu bewegen, eine der bei- 
den Funktionen nochmals auf, so wird 
der Endpunkt der Linie (ist immer noch 
die Cursorposition) separat noch ein- 
mal definiert. So können Sie zum Bei- 
spiel Körper zeichnen, bei denen nur 
die Eckpunkte zu sehen sind. 

[P] Punkt fixieren: Mit <P> wird die 
aktuelle Cursorposition markiert. 

[L]Punkt löschen: Der zuletzt fixierte 
Punkt - und damit auch die blinkende 
Linie - wird gelöscht. 

[R] Restobjekt (EINIAUS); <R> 
bewirkt, daß das ganze Objekt (außer 
der gerade bearbeiteten Fächen) nach 
dem Aufruf von »Fläche« nicht mehr 
angezeigt ist. Das ist besonders dann 
von Vorteil, wenn sich bereits viele ver- 
schiedene Flächen auf dem Bildschirm 
»tummeln« und die Arbeit unübersicht- 
lich machen. 

[K]Hilfskreis: Oftist es sinnvoll, Hilfs- 
kreise zu benutzen - beispielsweise 
wenn Sie mit einem Polygonzug einen 
Kreisbogen annähern wollen. Zu die- 
sem Zweck positionieren Sie den Cur- 
sor nach dem Aufruf dieser Funktion an 
der Stelle des gewünschten Kreismit- 
telpunkts. Im Menü wählen Sie nun die 
Funktion »[K] Kreismittelpunkt«, um die- 
sen zu markieren. Jetzt steht Im Menü 
»[K] Kreislinie«. Es kann also ein Punkt 
eingegeben werden, der auf der Kreisli- 
nie liegen soll. Prompt erscheint der 
Hilfskreis, und der Menüpunkt wird ein 
letztes Mal verändert - nämlich durch 
die Funktion »[K] Kreis loeschen«. 

Normalerweise ist das Fadenkreuz 
immer mit dem zuletzt fixierten Punkt 
verbunden. Wenn Sie den Cursor 
bewegen, wandert demnach perma- 
nent eine Linie über den Bildschirm. 
Durch einen kleinen Mißbrauch der 
Hilfskreisfunktion läßt sich diese wan- 
dernde Linie abschalten. Sie rufen zu 
diesem Zweck die Hilfskreisfunktion 
einmal auf und arbeiten dann wie 
gewohnt weiter. Dreimaliges Drücken 
von <K> schaltet die blinkende Linie 
wieder ein. Beenden und Wiederaufruf 
des Menüpunkts »[F] Flaeche« errei- 
chen das gleiche. 
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— Ey = 
Wie schon erwähnt, werden alle Bild 1. 
Objekte als Fläche oderalseineKombi- Nur das Gewinde 
nation von Flächen betrachtet. Es stellt i son noch 
sich also die Frage: Gibt es gar keine eine »Mutter« mit 
Linien und Punkte? SREOIGETAD 


Es gibt sie natürlich. Eine Linie ist 
eine Fläche, die nur zwei Eckpunkte 
hat. Bei der Eingabe von Linien ist aber 
eine Besonderheit zu beachten. Zum 
Abschluß der Eingabe einer Linie 
erscheint nämlich die Frage 
Achse (J/N) ? 
die Sie mit <N> beantworten müssen, 
wenn Sie eine Fläche mit zwei Eck- 
Punkten (also eine Linie) erzeugen wol- 
len. Andernfalls definieren Sie mit der 
Antwort <J> ein Achse, die Sie später 
als Rotationsachse verwenden können. 

Ähnlich verhält es sich bei der Defini- 
tion einzelner Punkte. Nur mit dem 
Unterschied, daß die Frage 
Lichtquelle (J/N) ? 
lautet. Für den Fall, daß Sie eine Licht- 
quelle definieren (<J >), lesen Sie wei- 
ter unten nach, wie Sie diese für Schat- 
tierungen benutzen. Punkte kennzeich- 
net auf dem Bildschirm ein kleines 
Kreuz. 

[U] Vebernehmen: Nach dem Ende 
der Eingabe dient diese Funktion dazu, 
die neue Fläche in das aktuelle Objekt 
zu übernehmen. Dies ist der Moment, in 
dem die als unsichtbar definierten 
Linien oder Punkte tatsächlich unsicht- 
bar werden - falls dies indem Menü »[S] 
Sonstiges« entsprechend festgelegt 
wurde. Auch jegliches Blinken auf dem 
Bildschirm findet damit sein Ende. Es 
sind nun alle Flächen und Makros festin 
das Objekt übernommen. Sie können 
jedoch immer noch mit der Funktion 
»[E] Editieren« wieder zum Bearbeiten 
ausgewählt werden. 

[A] Achse: Mit dieser Funktion lassen 
sich sehr einfach die drei wichtigsten 
Achsen einzeichnen, um die jeweils 
eine Rotation erfolgen soll. Sie liegen 
jeweils deckungsgleich auf einer der 
Koordinatenachsen. Die neu definierte 
Achse wird in allen drei auf dem Bild- 
schirm gezeigten Ebenen eingezeich- 
net, Ihre (positive) Spitze ist mit einem 
Kreuz gekennzeichnet. Dieses Kreuz 
gewinnt seine Bedeutung bei Rotatio- 
nen, da es hier die Drehrichtung fest- 
legt. Blickt man vom Fußpunkt der 
Achse in Richtung Spitze (zum Kreuz), 
so bedeutet ein positiver Drehwinkel 
eine Drehung im Uhrzeigersinn um die 
Achse. 

Das Untermenü 
[H] Horizontal-Achse 
[V] Vertikal-Achse 
[T] Tiefen-Achse 
[L] Achse loeschen 
zeichnet eine Achse in x- (horizontale), 
z- (vertikale) oder y-Richtung (Tiefen- 
Achse). Mit »Achse loeschen« ver- 
schwindet die aktuelle Achse. 
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Beliebige Achsen lassen sich durch 
die Konstruktion von »Flächen« mit zwei 
Eckpunkten erzeugen (siehe oben). 
Sie legen dazu mit Hilfe des Menü- 
punkts »[F] Flaeche« eine Linie fest, 
indem Sie zwei verschiedene Punkte 
fixieren. Dann beenden Sie die Routine. 
Die Frage »Achse (J/N) ?« quittieren Sie 
mit <J>. Die beiden Punkte sind der 
Anfangs- und der Endpunkt der Linie, 
die als Rotationsachse dienen soll. Der 
zuletzt fixierte Punkt ist durch das 
Kreuz als Spitze gekennzeichnet. 
Damit liegt auch die Richtung der Achse 
(und damit die Drehrichtung) fest. 

[V] Verformen: Alle eingegebenen 
Objekte lassen sich auf verschiedene 
Arten verformen. Bearbeitet werden 
aber wiederum nur die blinkenden 
Objekte. Blinkende Flächen und 
Makros kopieren Sie, indem Sie im 


Bild 2. 

Das Dach ist 

weg - der Blick in 
eine »Mutter« 


Hauptmenü »[P] Form-Parameter« wäh- 
len und die Untermenüpunkte »[A] Aus- 
gangsflaeche«, »[E] Endflaeche« auf 
»J« und »[V] Verbinden« auf »N« setzen. 
Dann rufen Sie eine Verformung (bei- 
spielsweise Schieben) mit »[A] Aus- 
fuehren(Para)« auf. »[Z] Wiederholung« 
im Hauptmenü »[P] Form-Parameter« ist 
dabei auf »1« gesetzt. Je nach Anzahl 
der Flächen dauern die Berechnungen 
bis zu 30 Sekunden. Falls Sie keinen 
sichtlichen Erfolg haben, sind die Para- 
meter ungünstig eingestellt. Wie man 
diese verändert, lesen Sie weiter unten. 

[A] Ausfuehren (Para): Die Anzahl 
der Verformungen (siehe unten) wird 
mit Kopieren und Verbinden entspre- 
chend der eingegebenen Anzahl aus- 
geführt. 

[WI Ausfuehren (Joy): Für Test- 
zwecke können Sie die Routine auch 
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ausführen lassen, ohne daß verbunden Bild 3. 
oder kopiert wird. Bei dieser und der ___ Aufdem 
vorhergehenden Funktion kommen alle Sen 
il ir- ein Kelch mit 
vorher eingestellten Werte zur Wir- CPO-Giga-CAD 


kung, die im Haupt- und im folgenden 
Untermenü angegeben wurden. 

[L] Werte loeschen: Alle Werte, die 
zum Verformen als Parameter eingege- 
ben wurden, erhalten einen neutralen 
Wert: 

[R] Rotieren 

auf O 

[8] Schieben 

auf O 

[D] Dehnen 

auf 1 

[V] Vergroessern 
auf 1 

[R] Rotieren: Die Voraussetzung für 
jede Rotation ist eine Achse, um die 
gedreht werden soll. Diese wird mit der 
Funktion »Achse« aus dem Hauptmenü 
festgelegt. Nach dem Aufruf von Rotie- 
ren fragt das Programm zuerst nach 
dem »Winkel«, der dann eingegeben 
werden muß. Wenn der Menüpunkt »[R] 
Rotieren« aktiv ist (auf dem Bildschirm 
steht er dann invertiert), wird mit den 
Cursorsteuertasten <Pfeilhoch> und 
<Pfeilrunter> eine Drehung um die x-, 
mit < Pfeil rechts> und <Pfeil links> 
um die z- und gemeinsam mit <Shift> 
mit <Pfeil rechts> und <Pfeil links> 
um die y-Achse ausgeführt. 

[S] Schieben: Nach Auswahl dieses 
Menüpunktes erscheint die Frage 
»Weite« auf dem Bildschirm. Der Benut- 
zer hat nun die Schrittweite einzuge- 
ben, um die das Objekt verschoben 
werden soll. Die Schrittweite wird in Ein- 
heiten (8 Einheiten = 1 Rasterpunkt = 
4 Bildpunkte) angegeben. <Enter> 
beendet die Eingabe. Mit aktivem »[S] 
Schieben« (inverse Darstellung im 
Menü) sind die Cursorsteuertasten 
aktiv. Mit <Pfeil rechts> und <Pfeil 
links> ist die x-, zusammen mit der 
Shift-Taste die y-, und mit <Pfeilhoch> 
und <Pfeil runter> wird die 
z-Richtung angesprochen. 

[D] Dehnen: Diese Funktion bewirkt 
nach Eingabe des Dehnungsfaktors 
eine Stauchung oder Dehnung mit Hilfe 
der Cursorsteuertasten. <Pfeil 
rechts> (mit und ohne <Shift>) und 
<Pfeil hoch>' erzielen eine Dehnung 
um den eingegebenen Faktor, <Pfeil 
links> (mit und ohne <Shift>) und 
<Pfeil runter> eine Stauchung. Die 
Richtung der Dehnung und Stauchung 
bezieht sich wieder, den Cursorsteuer- 
tasten entsprechend, auf die x-, y- und 
z-Achse. Ri 

[V] Vergroessern: Ähnlich wie bei 
»[D] Dehnen« erlaubt diese Funktion, zu 
vergrößern und zu verkleinern. Der 
Unterschied besteht darin, daß Deh- 
nungen und Stauchungen in allen drei 
Dimensionen gleichzeitig erfolgen. 


Alle Werte im Menü »[V] Verformen« 
dürfen mit einem Zusatz eingegeben 
werden. Dies ist von Bedeutung für alle 
Verformungen, die mit »[A] Ausfueh- 
ren(Para)« aktiviert werden. Ein voran- 
gestelltes »r«, »R« oder »kein Prefix« 
kennzeichnet den eingegebenen Wert 
als Relativwert. Das bedeutet, jede Ver- 
formung benutzt diesen Wert (zum Bei- 
spiel »Rotation r70«- beijeder Rotation 
wird um 70 Grad gedreht). Steht ein »a« 
oder »A« voran, so geschieht folgen- 
des: Der eingegebene Wert wird durch 
die in »[Z] Wiederholung« (Untermenü 
Parameter) festgelegte Zahl geteilt. 
Jede Verformung verwendet nun die- 
sen Bruchteil (zum Beispiel »Rotieren 
a180« und »Wiederholung 4« - viermal 
wird das Objekt oder die Fläche um 45 
Grad (=180/4) verschoben). 

[P] Form-Parameter: Mit Hilfe dieser 


Bild 4. 

Eine Fläche mehr, 
und schon können 
Sie nicht mehr in 
den Kelch schauen 


Funktionen werden die Parameter mit 
‚Ausgangswerten besetzt, die von 
Bedeutung für automatisch wieder- 
holte Funktionen sind. Das automati- 
sche Wiederholen ruft der Befehl »[A] 
Ausfuehren(Para)« (zu finden unter dem 
Menüpunkt »[V] Verformen«) auf. Mit 
dieser Befehlsfolge kann man zum Bei- 
spiel eine Fläche mehrfach rotieren las- 
sen, um dadurch ein dreidimensionales, 
Gebilde zu erzeugen. 

[A] Ausgangsflaeche (JIN): »Ja« 
beziehungsweise »Nein« entscheidet 
hier, ob die Ausgangsfläche oder das 
Makro, mit der die Konstruktion begon- 
nen wurde, nach Abschluß der Arbeiten 
gelöscht werden soll oder nicht. »J« 
steht für nicht Löschen der Ausgangs- 
fläche, »N« entsprechend für Löschen 
der Ausgangsfläche nach der Kon- 
struktion. 
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[E] Endflaeche (J/N): Die Funktions- 
weise ist dieselbe wie bei »[A] Aus- 
gangsflaeche«, nur ist jetzt diejenige 
Fläche betroffen, die bei der Konstruk- 
tion als letzte erzeugt wurde. 

[V] Verbinden (JIN): Bei der Kon- 


struktion werden zwischenzeitlich 
mehrere einzelne Flächen erzeugt. 
Diese Funktion entscheidet, ob die Flä- 
chen untereinander verbunden werden 
sollen oder nicht. Dies gilt wiederum nur 
für blinkende Flächen. 

[S] Geschlossen (JIN): Oft soll ein 
Rotationskörper offen bleiben und 
einen Blick ins Innere gestatten (siehe 
beispielsweise Bild 1). Wenn dieser 
Menüpunkt auf »N« gesetzt ist, so blei- 
ben jeweils der erste und der letzte 
Punktmitihren Abbildern unverbunden. 
Bild 2 zeigt die Ausgangsfläche, die 
zum Darstellen dieses Rotationskör- 
pers diente. Der linke obere Punkt ist 
dabei der erste, der rechte obere der 
letzte Punkt. Das Menü »[F] Flaeche« 
wurde dazu mit <Enter> verlassen 
und die Fläche automatisch geschlos- 
sen. Aus dieser Fläche wird mittels 
Rotation ein Kelch geformt (Bild 3). 

[1] .P Verbinden (JIN): »J« bedeutet, 
daß der erste Punkt der Ausgangsflä- 
che und dessen Abbilder zu einer Flä- 
che verbunden werden. Der erste 
Punkt unseres Bildes ist oben. Bild 4 
zeigt, wie der Kelch aussieht, wenn die- 
ser Parameter auf »J« steht. 

[L] .P Verbinden (J/N): »J« hat die- 
selbe Wirkung wie »[1] .P Verbinden«, 
nur bezieht sich diese Funktion jetzt auf 
den letzten Punkt der Ausgangsfläche. 

[N] Neues Makro (JIN): »J« bewirkt, 
daß alle neu erzeugten Flächen zu 
einem Makro zusammengefaßt werden. 

[Z] Wiederholung: Der an dieser 
Stelle eingegebene Wertgibt an, wie oft 
die eben beschriebenen und unter dem 
Menüpunkt »[V] Verformen« eingestell- 
ten Funktionen angewendet werden 
sollen. So reichen bei der Darstellung 
von Kreisen schon 15 Eckpunkte aus, 
um das gezeichnete Vieleck nicht von 
einem Kreis unterscheiden zu können. 

Ein vom Computer gezeichneter 
Kreis sieht zwar rund aus, ist es aber 
nicht wirklich. Da ein Bild auf dem Moni- 
tor punktweise wiedergegeben wird, ist 
jeder Kreis auf einem Computer in Wirk- 
lichkeit ein Vieleck. Im Eingabemodus 
mit seiner relativ geringen Auflösung 
von 160 mal 100 Punkten istein 15-Eck 
kaum von einem 60-Eck zu unterschei- 
den. Gleiches gilt bei der vollen 
Monitorauflösung von 640x200 Bild- 
Punkten im Modus »[Z] Zoomen« für ein 
30- und ein 60-Eck. 

Das Zeichnen von Kreisen ist nun 
relativeinfach. Dazu benötigtman einen 
Punkt und eine Achse. Wichtig ist nur, 
daß Sie beim Verlassen des Menüpunk- 
tes »Fläche« die Frage »Lichtquelle 
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(J/N) ?« mit <N> beantworten. Als 
Achse wählen Sie je nachdem, wie der 
Kreis im Raum liegen soll, eine der drei 
Hauptachsen (siehe »[A] Achse«). Um 
diese Achse soll der Punkt rotieren. 


Wie man 
Kreise zeichnet 


Ein korrekter Kreis benötigt folgende 
Voreinstellungen. 

[A] Ausgangsflaeche (N) 
[E] Endflaeche (N) 

[V] Verbinden (J) 

[S] Geschlossen (N) 

[1] .P verbinden (J) 
[L] .P verbinden (N) 
[Z] Wiederholung: 15 

Die Zahl der Wiederholungen darf 
natürlich frei gewählt werden. Ist der 
Wert allerdings kleiner als 15, siehtman 
die Vieleckform des »Kreises« sehr 
deutlich. 

Nach diesen Einstellungen verlassen 
Sie »[M] Form-Parameter« und wählen 
im Hauptmenü »[V] Verformen«. Dort 
wiederum wählen Sie »Rotieren« und 
geben 
8360 
ein. Das bedeutet, daß der Kreis (360 
Grad) in 15 Teile geteilt wird. Nach 
Aufruf von »[A] Ausfuehren(Para)« 
erscheint das 15-Eck als Näherung für 
den gewünschten Kreis auf dem Bild- 
schirm. 

[Z] Zoomen: Wegen der drei Bilder, 
die im Eingabemodus gleichzeitig dar- 
gestellt werden, ist die Auflösung beim 
Editieren des Bildes (160 mal 100 
Punkte) nicht so hoch, wie später bei 
der Ausgabe auf dem Gesamtbild- 
schirm. Beliebige kleine Ausschnitte 
gibt nun die Funktion »[Z] Zoom« ver- 
größert wieder. Die Auflösung des 
gesamten Bildschirms ist mit 640 mal 
200 Punkten achtmal so groß wie im 
Eingabemodus. 

Die Funktionen 

[L] Links oben 

[R] Rechts oben 

[U] Links unten 

legen die entsprechende Ansicht fest, 
die vergrößert werden soll. Mit Hilfe der 
Cursorsteuertasten wird nun der blin- 
kende Cursor auf dem Bildschirm 
bewegt. Er bezeichnet die obere linke 
Ecke des Bereichs, der später vergrö- 
Bert erscheint. <Shift> positioniert 
den Cursor (dieser verändert sich in ein 
blinkendes Rechteck). Mit den Pfeilta- 
sten wird jetzt der Bereich aufge- 
spannt, der vergrößert werden soll. Sie 
bewegen dabei die rechte untere Ecke 
des Bereichs. Mit <Shift> wird auch 
diese positioniert, bevor dann automa- 
tisch die Vergrößerung erfolgt. Je nach 
Anzahl der Einzelflächen dauert die 
Berechnung bis zu 30 Sekunden. 


Mit »O« rufen Sie eine Optimierungs- 
funktion auf, die den Körper so ausgibt, 
daß der gesamte Bildschirm optimal 
ausgenutzt wird. Eventuell blinkende 
Flächen oder Makros erscheinen beim 
Zoomen allerdings normal. <Enter> 
bricht das Zoomen ab. Das Objekt ist 
jetzt noch unverändert vorhanden und 
kann neu editiert werden. Erst mit Hilfe 
der Funktion »[G] Uebernehmen« wird 
der neue Ausschnitt übernommen. 

[0] Originalgroesse: Nach Aufruf 
von »[O] Originalgroesse« werden die 
ursprünglichen Werte (Vergrößerungs- 
faktor und Ausschnitt) wieder restau- 
riert, so daß sich bei der nächsten Dar- 
stellung des Objektes das ursprüng- 
liche Bild zeigt. 

[N] Neu zeichnen: Aus Gründen der 
Zeitersparnis wird das Objekt nach Ver- 
lassen der vergrößerten Darstellung 
nicht automatisch neu gezeichnet. Dies 
erfolgt nur, wenn Sie den entsprechen- 
den Menüpunkt aufrufen. Ein zweiter 
Weg ist das Verlassen von »[Z] Zoo- 
men« mit <Enter>. Das Zeichnen 
dauert je nach Anzahl der Flächen meh- 
rere Sekunden. 

[G] Vebernehmen: Das Objekt wird 
in der eingestellten Vergrößerung zur 
weiteren Bearbeitung übernommen. 
Hinter dieser Funktion verbirgt sich 
eine kleine Falle. Wenn ein Ausschnitt 
zu stark vergrößert wird, kann es leicht 
passieren, daß beim Übernehmen das 
Objekt aus seinen Grenzen heraus- 
wächst und das Bild zerstört. 

[E] Editieren: Normalerweise setzt 
sich ein größeres Objekt aus mehreren 
Makros zusammen. Ein Makro ist 
bekanntlich eine Zusammenfassung 
von mehreren Flächen zu einem 
»Unterobjekt«. Daraus ergibt sich der 
Vorteil, innerhalb eines Bildes (zum Bei- 
spiel ein Tisch mit Gegenständen dar- 
auf) einzelne Gegenstände als Ganzes 
bearbeiten und verändern zu können. 
Das Makro - oder die Fläche, die ausge- 
wählt ist - erscheint immer blinkend. 

[L] Loeschen: Die blinkende Fläche 
(oder das blinkende Makro) wird 
gelöscht. 

[-]Vorherige Flaeche: Innerhalb 
des augenblicklich bearbeiteten 
Makros werden die einzelnen Flächen 
durchgeblättert. Mit < - > blättern Sie 
zurück zur vorherigen Fläche. 

[-Inaechste Flaeche: Mit dieser 
Funktion blättern Sie die Flächen 
zyklisch vorwärts. Nach der letzten Flä- 
che kommt damit automatisch wieder 
die erste an die Reihe. 

Bezogen auf die im Objekt vorhande- 
nen Makros heißen die analogen Funk- 
tionen: 

[tIvorheriges Makro 

und 

[!Jnaechstes Makro 

Um beim Editieren einen definierten 


Bild 5. Dieses Röhrenbild läßt sich einfach konstruieren und Bild 6. Hier ist die Verzerrung durch den Fluchtpunkt schon 
wirkt einmalig. Alle drei Darstellungen in vierfacher Auf- stärker. Dadurch wirkt die Perspektive sehr realistisch 
lösung (Helligkeit 100 bis 100; Fluchtpunkt = 10). (Fluchtpunkt = 30; Helligkeit 0 bis 100). 


Ausgangspunkt zu erreichen, benutzen IFT 


Sie die beiden letzten Funktionen die- 
ses Untermenüs: 

[Sh--Jerstes Makro 

und 

[Sh-Jletztes Makro. 

»Sh« steht für die Shift-Taste. 

[D] Diskette: In diesem Menü finden 
Sie alle Funktionen im Zusammenhang 
mit der Diskettenstation. 

[A] Objekt speichern: Mit dieser 
Funktion wird das ganze Objekt auf der 
Diskette gespeichert. Nach Aufruf der 
Funktion müssen Sie den Namen ein- 
geben, unter dem das Objekt abgelegt 
werden soll. Diese Funktion zeigt einen 
praktischen Nebeneffekt: 

Falls zwei oder mehr Punkte auf der- 
selben Stelle definiert sind, ist diese 
Mehrfachbelegung optisch nicht mehr 
festzustellen. Sie würde aber einen 
erhöhten Speicherplatzbedarf und in 
einigen ungünstigen Kombinationen 
Probleme mit der Schattierungsroutine 
bewirken. 

‚Aus diesem Grund werden beim Auf- 
ruf von »[A] Objekt speichern« alle 
Mehrfachbelegungen gelöscht. Beim 
Aufruf ohne Namensangabe wird damit 
nichts gespeichert, sondern nur jede 
Mehrfachbelegung aufgehoben. 

[B] Objekt laden: Diese Routine fragt 
Sie als erstes nach dem Namen des zu 
ladenen Objekts. Beim Schreiben in 
den Speicher beobachten Sie, wie das 


Bild 7. Bei diesem Bild wurden auch die sichtbaren Linien ausgeschaltet und der 
Kontrast verringert (Helligkeit 20 bis 80; Fluchtpunkt = 70; sichtbare Linien = aus) 
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Objekt Fläche für Fläche entsteht. Das 
kann mehrere Sekunden dauern. 
Bewegt sich allerdings auch nach län- 
gerem Warten nichts auf dem Bild- 
schirm, ist ein Fehler aufgetreten. Mög- 
licherweise reicht der Speicherplatz 
nicht aus, oder die Datei steht gar nicht 
auf der Diskette. 

Falls sich bereits ein Objekt im Spei- 
cher befindet, wird das neue dazugela- 
den. Bis zu 500 Flächen können so 
gleichzeitig auf dem Bildschirm zu 
sehen sein. Der einzige limitierende 
Faktor ist die Größe der Objekte. 

[C] Makro laden: Die Funktionsweise 
entspricht der von »[L] Objekt laden«. 
Nun wird allerdings ein Makro in den 
Arbeitsspeicher geholt - und blinkend 
dargestellt. Auch Objekte, die als sol- 
‚che auf der Diskette stehen, lassen sich 
als Makro laden. Somit ist es möglich, 
alle Makros, aus denen sich ein Objekt 
zusammensetzt, zu einem einzigen 
Makro zu vereinen. 

[D] Directory; <D> listet den 
gesamten Disketteninhalt auf. Dies ent- 
spricht der CP/M-Funktion »DIR«. 

[E] Einzel-Save: Diese Funktion 
erlaubt es, die verschiedenen Makros, 
aus denen ein Objekt besteht, einzeln 
auf Diskette abzulegen. Dazu wird das 
jeweilige Makro blinkend auf dem Bild- 
schirm ausgegeben und der Benutzer 
‚gefragt: 

Speichern (J/N/E) ? 


<J> steht für »Speicherne, <N> 
für »nicht Speichern« und »nächstes 
Makro« aufrufen, während <E> für 
»Exite steht. <E> bricht also die Ope- 
ration ab. 

[F] Makro Speichern: Das aktive 
Makro (das ist das augenblicklich blin- 
kende) wird auf Diskette gespeichert. 

[G] Makro auf Diskette: »Makro auf 
Diskette« listet alle Makros auf, die auf 
der Diskette stehen. Der Menüpunkt 
entspricht damit der CP/M-Funktion 
»DIR +.OByJ«. 

[S] Sonstiges: Der neunte Punkt des 
Hauptmenüs umfaßt alle restlichen 
Hilfsroutinen: 

[U] Unsichtbar (EINJAUS): Dieser 
Parameter gibt an, ob Linien, die als 
unsichtbar definiert wurden, angezeigt 
werden oder nicht. »EIN« steht für Dar- 
stellung »unsichtbarer« Linien. 

[L] Alles loeschen: Vor dem endgülti- 
gen Aufruf der Löschroutine muß noch 
die Frage 
Alles loeschen, (J/N) 
mit <J> beantwortet werden. Mit 
<N> können Sie die Routine abbre- 
chen, falls die Daten erhalten bleiben 
sollen. 

[N] Neues Makro: <N > faßt alle Ein- 
zelobjekte nach ihrer Ausführung zu 
einem neuen Makro zusammen. 

[Z] Alles ein Makro: Dieser Menü- 
punkt faßt das ganze Objekt zu einem 
Makro zusammen. Es ist allerdings 


nicht sinnvoll, diese Funktion zu benut- 
zen, bevor das Objekt auf Diskette 
gespeichert wurde. Alle einzelnen 
Makrodefinitionen innerhalb des Objek- 
tes werden gelöscht, da hinterher janur 
ein einziges Makro vorhanden sein soll. 

[E] Letztes Makro: Die Wirkung die- 
ser Funktion ist dieselbe wie die der 
Funktion »[Sh—]letztes Makro« unter 
dem Menüpunkt »[E] Editieren«. Das 
zuletzt eingegebene Makro erscheint 
blinkend. 

[F] Fast-Mode (EIN/AUS): Den »Fast- 
Modus« sollten Sie nur benutzen, wenn 
Sie CPC-Giga-CAD genau verstanden 
haben. Die benötigte Rechenzeit ist 
auch bei den sehr schnellen Schneider- 
Computern ein heikles Thema. Obwohl 
das Programm im Hinblick auf die 
Rechengeschwindigkeit in vielen Punk- 
ten optimiert wurde, ist der Zeitbedarf 
beim Zeichnen der Objekte doch sehr 
groß. Je mehr Ecken das Objekt hat, 
desto länger ist die Rechenzeit. Der 
»Fast-Mode« mindert den Zeitbedarf bei 
Verformungen ein ganzes Stück. 

Das eigentlich Zeitkritische istjedoch 
das Zeichnen der Objekte und nicht die 
Verformung. Man kann also sehr viel 
Zeit sparen, wenn man nach dem Ver- 
formen das Zeichnen wegläßt. Bei- 
spielsweise können Sie so eine neue 
Achse einzeichnen, ohne die alte dabei 
aus dem Bild zu löschen. 

(Marcus Hutter/Stefan Groll/hg) 


Jetzt zeigt’s CPC-Giga-CAD 


Der Eingabe- folgt die Ausgabe- 
Routine. Auch der zweite Teil 
von CPC-Giga-CAD offeriert eine 
Vielzahl von Anweisungen, das 
Ergebnis individuell zu gestalten. 


ie man Bilder konstruiert, 
darüber informierte ausführ- 
lich der vorhergehende Bei- 


trag. Nun »zaubern« wir aus diesem 
Gerüst interessante Ausgaben auf den 
Bildschirm. Auf der Arbeitsdiskette 
brauchen wir die vier Programme 
FILM.COM 
PAINT.CHN 
PAINT.CMD 
TS,COM 

Im folgenden lernen Sie das Schattie- 
ren kennen, und wie man die Bilder aus- 
druckt. Dabei werden verdeckte Linien 
nicht angezeigt und das Objekt er- 
scheint von der fiktiven Lichtquelle 
beleuchtet. Die Lichtquelle wird ja bei 
der Eingabe des Objekts mitdefiniert 
(Eingabe eines Punktes). Ferner er- 
laubt die Routine »PAINT«, das Objekt, 
die Lichtquelle oder beide zusammen 
um eine ebenfalls vorher definierte 
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Achse rotieren zu lassen. Auch als 
unsichtbar definierte Linien werden bei 
Bedarf an dieser Stelle wieder sichtbar. 
Ähnlich wie die vorher besprochene 
Eingaberoutine rufen Sie die Ausgabe- 
routine mit Hilfe von Turbo Start (TS) auf: 
TS PAINT 

Die einzelnen Menüpunkte treten 
wahlweise durch Drücken des Kenn- 
buchstabens oder durch Ansteuern der 
Zeile mit dem Cursor in Kraft. Der Cur- 
sor wird mit den Steuertasten <Pfeil 
hoch> und <Pfeil runter> bewegt. 
Mit der Leertaste startet dann die Rou- 
tine, beziehungsweise wird das zustän- 
dige Untermenü aufgerufen. Diesen 
Programmteil können Sie (wie schon 
den Programmteil »CREATE«) ohne 
Zerstörung des Objektes oder der Vor- 
einstellungen verlassen und wieder 
aufrufen. Allerdings darf zwischenzeit- 
lich der Speicherbereich ab 76FF hex 
nicht überschrieben werden. 

Das Hauptmenü von »PAINT« besitzt 
folgende vier Punkte: 
[D] Darstellen 
[M] Modi einstellen 
[P] Parameter einstellen 
[A] Aufloesung einstellen 


[D] Darstellen: 

Der Menüpunkt »Darstellen« beinhaltet 
fünf Unterpunkte. 

[L] Objekt laden: Bevor Sie die Funk- 
tionen »[B] Bild berechnen« aufrufen, 
geben Sie mit dieser Routine hier den 
Namen des Objektes an, das Sie 
berechnen wollen, 

[H] Hintergrund: Normalerweise 
erscheinen alle Objekte auf hellem Hin- 
tergrund. Bei der Berechnung eines 
Bilds darf aber auch ein anderes, vorher 
berechnetes Bild als Hintergrund 
benutzt werden. Dafür ist nur vor dem 
Berechnen des Bildes mit »[H] Hinter- 
grund« der Name des Hintergrundbil- 
des einzugeben. Sowohl einzelne Bil- 
der als auch Bildsequenzen können Sie 
(zum Beispiel für Filme) verwenden. 

[D] Bild darstellen: Jedes Bild oder 
jede Bildsequenz, die bereits berech- 
net und auf Diskette gespeichert 
wurde, kann mit dieser Funktion auf 
dem Bildschirm ausgegeben werden. 
Dazu geben Sie nur, nachdem Sie die 
Funktion aufgerufen haben, den Namen 
des Bildes an, das angezeigt werden 
soll. Während die reinen Daten mit der 
Endung »OBJ« auf der Diskette stehen, 


Ser 


tragen die berechneten Bilder die 
Endung »Pix« (welche Buchstaben für x 
in Frage kommen, lesen Sie im näch- 
sten Absatz). Solche Grafiken bean- 
spruchen allerdings mit 16 KByte 
bedeutend mehr Speicherplatz. 

[B] Bild berechnen: Nach der Ein- 
gabe des Objektnamens mit »[L] Objekt 
laden«, rufen Sie zum Berechnen des 
Bildes diese Funktion auf. Der hier 
geforderte Name ist derjenige, den das 
Bild auch auf der Diskette erhalten soll. 
Falls Sie keinen Namen (nur <Enter> 
drücken) angeben, wird das Bild nicht 
auf Diskette gesichert. Bei der Berech- 
nung mehrerer Bilder lautet der Zusatz 
(die Extention) der ersten Datei »PlA«, 
die der nächsten »PIB« und so weiter. 
Wenn Sie bei der Eingabe selbst eine 
Erweiterung angegeben haben (zum 
Beispiel »Name.XXD«), wird diese hoch- 
gezählt. Das nächste Bild trägt dann 
den Namen »Name.XXE« - das dritte 
»Name.XXF« und so weiter. 

[F] Film abspielen: Eine Bilderserie, 
die in Form von Filmbildern (siehe wei- 
ter unten »Auflösung einstellen«) 
berechnet wurde, spielt diese Funktion 
als Film ab. Die Abspielgeschwindigkeit 
liegt wahlweise zwischen 2 und 50 Bil- 
dern pro Sekunde. Nach der Eingabe 
des Namens der gewüschten Sequenz 
und Drücken der Enter-Taste wird der 
Film geladen und abgespielt. Den Cur- 
sortasten kommt hier eine besondere 
Bedeutung zu: <Pfeil hoch> 
beschleunigt den Ablauf der Bildse- 
quenz, <Pfeil runter> bremst ihn ab. 
<Pfeil rechts> läßt den Film vorwärts 
und <Pfeil links> läßt ihn rückwärts 
laufen. Nach Drücken der Tasten <Pfeil 
links> oder <Pfeil rechts> gemein- 
sam mit <Shift> läuft der Film immer 
im Wechsel vorwärts und rückwärts ab. 
Die Standardgeschwindigkeit, 25 Bil- 
der pro Sekunde, wird mit <Shift> und 
<Pfeil hoch> eingestellt. 

Gemeinsam mit der <Pfeil-runter>- 
Taste stoppt <Shift> den Ablauf. Jetzt 
haben die Cursorsteuertasten folgende 
Bedeutung: <Pfeilrechts> entspricht 
einem Bild vorwärts und <Pfeil links> 
blättert ein Bild zurück. Mit <Shift> 
und <Pfeil hoch> startet der Filma- 
blauf wieder und <Esc> bricht die 
ganze Routine ab. 

Wem die voreingestellten Farben von 
CPC-Giga-CAD nicht zusagen, der 
kann mit folgenden Parametern alle 27 
Farben des Schneider CPC anspre- 
chen. Auf dem Grünmonitor ergeben 
sich entsprechende Grünwerte. Tabelle 
1 zeigt die möglichen Farbkombinatio- 
nen. Der erste Wert bezieht sich auf die 
Schreibfarbe, das zweite Zeichen steht 
für die Hintergrundfarbe. Zusammenmit 
<CtrI> verändern diese Tasten die 
Rahmenfarbe (Border). 

Filme können Sie auch als eigenstän- 
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Tabelle 1. Die Farben werden mit einfa- 
chem Tastendruck verändert. Der Buch- 
stabe in der ersten Spalte steht für die 
Schreibfarbe, der in der zweiten Spalte 
für die Farbe des Hintergrundes. 


Tabelle 2. Der Speicherbedarf in 
Abhängigkeit von der Zahl der Bilder 


diges Programm auf der Diskette spei- 
chern. Dazu lassen Sie den gewünsch- 
ten Film wie gewohnt ablaufen und bre- 
chen ihn mit <Esc> ab. Dann legen 
Sie den Speicherinhalt mit 

SAVE xx Name.COM 

auf Diskette ab. Alle Einstellungen 
(Geschwindigkeit und Richtung) wer- 
den dabei ebenfalls mit gespeichert. 
Die Aufstellung in Tabelle 2 zeigt die 
Werte für xx in Abhängigkeit von der 
Anzahl der Filmbilder. Eine weitere 
Möglichkeit, einen Filmlauf zu starten, 


ie Da, = 
v WW. HOMECOMMUTERWORLD.COM 


bietet der Aufruf: 
FILM Name.PIA 

IM] Modi einstellen: 

Berechnung und Darstellung der Bilder 
hängen von einigen Voreinstellungen 
ab. 

[L] Variable Lichtgelle (JIN): In der 
Eingaberoutine können Sie eine Licht- 
quelle zur Beleuchtung des Objektes 
definieren. In diesem Menüpunkt 
bedeutet <J>, daß die Lichtquelle 
sich um eine ebenfalls vorher definierte 
Achse dreht. Das funktioniert aber nur, 
wenn mehrere Bilder berechnet wer- 
den. Bei jedem Bild dreht sich dann die 
Lichtquelle um den Rotationswinkel, 
der bei der Eingabe festgelegt wurde. 
Gleiches gilt für die anderen festgeleg- 
ten Parameter, wie beispielsweise 
»Schieben« und so weiter. 

[0] Variables Objekt (JIN): Dieser 
Punkt funktioniert genauso wie der vor- 
hergehende. Die Verformungen werden 
jetzt aber auf das Objekt angewandt. 

[P] Sichtbare Linien (EIN/AUS): 
Bereits bei der Eingabe haben Sie fest- 
gelegt, welche Linien sichtbar oder 
unsichtbar sein sollen. Als sichtbar defi- 
nierte Linien können mit dieser Routine 
wahlweise ein- oder ausgeschaltet wer- 
den. Das Ausschalten ist besonders 
wirkungsvoll, um fließende Übergänge 
von einer Graustufe in die andere zu 
erreichen. Für scharfe Kanten ist diese 
Routine besser auf »EIN« gestellt. 

[U] Unsichtbare Linien (EIN/AUS): 
Dieser Punkt funktioniert genauso wie 
der vorherige, bloß in bezug auf 
unsichtbar definierte Linien. 

[A] Objekt erhalten (JIN): Sind meh- 
rere Bilder zu berechnen, wird das 
Objekt von der Diskette geladen, gege- 
benenfalls mit der Rotationsmatrix ver- 
knüpft und schließlich wieder auf Dis- 
kette gespeichert. Dieser Vorgang wi 
derholt sich genauso bei jedem weite- 
ren Bild, das berechnet wird. Das 
Original bleibt nur erhalten, wenn dieser 
Parameter auf <J> steht. Wenn das 
verformte Objekt weiterverarbeitet wer- 
den soll, müssen Sie diesen Parameter 
auf <N> einstellen. In jedem Fall soll- 
ten Sie daher vom Ausgangsobjekt eine 
Sicherheitskopie aufbewahren. 

[DJ Durchsichtig (JIN): »Durchsich- 
tig« steht für einen transparenten Kör- 
per. Linien im Hintergrund, die norma- 
lerweise verdeckt sind, machen Sie auf 
diese Weise sichtbar. Das Objekt 
erscheint durchsichtig mit einer Hellig- 
keitsabstufung von O bis 100. Die Ein- 
stellung der Helligkeit von 100 bis 100 
bringt ein Drahtmodell auf den Bild- 
schirm. 

[H] Hardcopy (EIN/AUS): Wenn Sie 
einen grafikfähigen Drucker ange- 
schlossen haben, dann kann mit Hilfe 
dieses Punktes eine Hardcopy ausge- 
geben werden. Diese wird ausge- 
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Bild 1. Diese Bildsequenz verdeutlicht die Funktion »Schnitt-Vorne«. 
Sie sehen: Bildsequenzen sind auch in vierfacher Auflösung möglich 
(Fluchtpunkt = 22; Helligkeit = 0 bis 100; Schnitt-Vorne = 0 bis 100) 


druckt, sobald das Bild oder die Bilder 
fertig berechnet sind. Tabelle 3 gibt die 
Stellen an, an denen Sie das Programm 
an Ihren Drucker anpassen müssen. In 
dem nebenstehenden Kasten finden 
Sie die ausführliche Erklärung, wie die 
Anpassung des Programms an Ihren 
Drucker vor sich geht. 

[WI Nach Bild warten (JIN): Der 
Computer wartet bei <J> nach jedem 
Bild darauf, daß Sie eine Taste drücken. 
In diesem Fall können Sie, wie in »[F] 
Film abspielen« beschrieben, die Far- 
ben verändern. 


Bild 2. Noch ist das Ergebnis nicht zu 
erkennen 


Bild 3. Der Ring wird erkennbar 


Bild 4. Die »fliegende Untertasse« 
nimmt Gestalt an 
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[P] Parameter einstellen: 

Bei den folgenden Parametern liegt die 
untere Grenze immer bei O und die 
obere bei 100. Sie können mit Aus- 
nahme von »[H] Helligkeit« diese Werte 
damit als Prozentangaben betrachten. 
Nach Aufruf der betreffenden Funktio- 
nen wird jeweils nach dem minimalen 
und dem maximalen Wert gefragt. Bei 
der Berechnung von mehr als einem 
Bild erhöht sich der Wert automatisch 
um den Betrag »(Maximum - Mini- 
mum)/Anzahl der Bilder«, 


Die Berechnung beginnt immer mit 
dem Minimum. Für die Auswertung 
eines einzelnen Bildes ist also nur die- 
ser Wert von Bedeutung. 

[H] Helligkeit: Der minimale Wert gibt 
die Helligkeitsstufe an, die für 
»Schwarz« benutzt werden soll, der 
maximale Wert die für »Weiß«. 

[F] Fluchtpunkt: CPC-Giga-CAD bie- 
tet eine sogenannte Fluchtpunktdar- 
stellung. Der Fluchtpunkt liegt immer in 
der Bildmitte. Mit »O« wird das Bild ohne 
Fluchtpunktdarstellung berechnet, mit 


100 die maximale Fluchtpunktdarstel- 
lung wiedergegeben. 

[E] Schnitt-Vorne: Dieser und der fol- 
gende Parameter zeigen einen Schnitt 
durch das Objekt. Es wird dabei von 
vorne beginnend »zerlegt«, der vordere 
Teil des Objekts wird einfach nicht mit- 
gezeichnet. »0« bedeutet keinen 
Schnitt und »100« steht für ganz hinten. 
Denken Sie daran, daß dreidimensional 
gezeichnete Objekte hohl sind. Beim 
Berechnen eines einzigen Bildes, ist 
verständlicherweise nur der erste ein- 
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Bei fast allen Programmen, die mit 
Grafikausgabe arbeiten, fällt es den 
Benutzern schwer, die Drucker- 
routinen an ihr Gerät anzupassen. 
CGPC-Giga-CAD ist von Hause aus 
für Epson- und Epson-kompatible 
Drucker vorbereitet. Aber es gibt 
auch viele andere Drucker, die mit 
Schneider-Computern zusammen- 
arbeiten. Falls diese einen anderen 
Befehlssatz benutzen, ist die Anpas- 
sung des Programms erforderlich. 

Ganz egal welchen Drucker Sie 
besitzen, Sie müssen als erstes die 
Programme wie abgedruckt einge- 
ben. Die Hardcopy-Routine in dem 
Programm »PAINTCMD« wird erst 
später angepaßt. 

Haben Sie also alle sechs CPC- 
Giga-CAD-Dateien auf der Diskette, 
kopieren Sie von der Schneider-Sy- 
stemdiskette den Debugger »DDT« 
auf die Arbeitsdiskette. 

Zum Verändern der Hardcopy- 
Daten starten Sie nun DDT mit 
DDT PAINT.CMD (Enter) 

Der Computer gibt jetzt folgende 
Meldung auf dem Bildschirm aus: 
DDT VERS 2.2 
NEXT PC 
1800 0100 

Die Ziffer 100 hex unter PC zeigt 
die Startadresse und 1B00 hex 
unter NEXT die Endadresse an. 
Diese beiden Werte brauchen wir 
zum Sichern der veränderten Ver- 
sion. Falls Sie das Programm an eine 
andere Stelle geladen haben, 
ändern sich natürlich diese Zahlen. 

Als nächstes geben wir die Para- 
meter für unseren Drucker an. In 
Tabelle 3 finden Sie die Werte, die 
anzupassen sind. Alle neun Parame- 
terbereiche beginnen jeweils mit 
einem Byte, das die Länge der 
Befehlssequenz beinhaltet. Danach 
steht der eigentliche Steuerbefehl 
für den Drucker. In unserem Beispiel 
ändern wir die Sequenz für Epson- 
Drucker in eine für den Star SG 10. 

Die Adressen aus Tabelle 3 bezie- 
hen sich immer auf den Dateianfang. 
84 hex muß deshalb zu der Start- 
adresse (in unserem Fall 100 hex) 
addiert werden. Wir geben also 
-50184 (Enter) 
ein. »S« befiehlt dem DDT, einen 
Speicherinhalt anzuzeigen und 
gegebenfalls zu verändern. Auf dem 
Bildschirm steht jetzt: 

0184 00 

Während der Epson-Drucker nicht 
initialisiert werden muß, braucht der 
Star eine 2 Byte lange Steueranwei- 


Die Hardcopy-Routine paßt für jeden Drucker 


sung. Geben Sie deshalb »02« ein. 
0184 00 02 (Enter) 

Der Bildschirm zeigt jetzt 

0185 00 

Sie sehen, daß der erste Wert hin- 
ter der Adresse immer der alte und 
der zweite der neue von Ihnen ein- 
gegebene Befehl ist. Falls Sie einmal 
nichts verändern wollen, drücken 
Sie einfach die Enter-Taste. 

An der Adresse 0185 hex muß 1B 
hex stehen. 

0185 00 1B (Enter) 
Den nächsten Wert ändern Sie auf 
0186 00 40 (Enter) 

Bis 0190 hex haben Sie bei dem 
Star-Drucker dann Ruhe. Manche 
andere Drucker benötigen hier die 
Eingabe der Befehlsfolge für das 
Verlassen des Garfikmodus. 

Ab 0190 hex steht die Folge zum 
Senden von 639 Grafikzeichen. 
0190 04 05 
0191 1B 1B 
0192 40 67 
0193 7F 04 
0194 02 7F 
0195 00 02 

Beim Epson-Drucker (und bei 
allen Schneider-Druckern) steht bei 
190 hex die Länge der Befehlsfolge 
(4 Byte). 191 und 192 hex ist die 
Befehisfolge für den gesuchten 
Befehl. Die Werte müssen beim DDT 
unbedingt hexadezimal angegeben 
werden. Beim Star SG 10 ist die 
Folge ein Byte länger. Von 191 bis 
193 hex steht deshalb: 
1B 67 04 

Die Werte 7F und 02 bezeichnen 
die 639 Punkte (7F hex (= 127) 
plus 2 x 256 (= 512)). Die nieder- 
wertige Stelle ist bei den meisten 
Druckern zuerst anzugeben. Die 
folgenden Werte geben den Zeilen- 
vorschub.an. Beim Epson lauten sie: 
05 für Länge der Sequenz 
OA Zeilenvorschub (LF) 

OD Wagenrücklauf (CR) 

1B Escape (jetztfolgt Steuerbefehl) 
33 Zeilenvorschub um n/216 Zoll 
n der Wert fürn 

Beim Star SG 10 sind die Anwei- 
sungen anders aufgebaut. Für den 
Vorschub nehmen wir den Befehl 
Papier um n/144-Zoll vorschieben. 
Die Anweisungen für den Vorschub 
um eine Halbzeile lauten dann: 
04 für Länge der Sequenz 
OD Wagenrücklauf (CR) 
1B Escape (jetztfolgt Steuerbefehl) 
4A Zeilenvorschub um n/144 Zoll 
n der Wert fürn 

Falls das Bild verzerrt erscheint, 


ändern Sie die hier aufgeführten 
Werte. CPC-Giga-CAD läßt sich so 
an jeden Geschmack anpassen. 

Beider Anpassung des StarSG 10 
fahren Sie wie folgt fort: 

0196 05 04 (Enter) 
0197 OA OD (Enter) 
0198 0C 1B (Enter) 
0199 1B 4A (Enter) 
019A 33 01 (Enter) 
0195 01 00 (Enter) 
0190 05 04 (Enter) 
019D OA OD (Enter) 
019E OD 1B (Enter) 
019F 1B 4A (Enter) 
0140 33 03 (Enter) 
01A1 03 00 (Enter) 
01A2 05 04 (Enter) 
013 OA OD (Enter) 
0144 OD 1B (Enter) 
0145 1B 4A (Enter) 
0146 33 07 (Enter) 
0147 07 00 (Enter) 
01A8 05 04 (Enter) 
01A9 OA OD (Enter) 
O1AA OD 1B (Enter) 
O14B 1B 4A (Enter) 
01AC 33 02 (Enter) 
0 (Enter) 
O1AE 05 04 (Inter) 
O1AF OA OD (Enter) 
0150 0D 1B (Enter) 
01B1 1B 4A (Enter) 
0182 33 08 (Enter) 
0 (Enter) 
01B4 05 04 (Enter) 
01B5 0A OD (Enter) 
01B6 OD 1B (Enter) 
01B7 1B 4A (Enter) 
01B8 33 OE (Enter) 
01B9 OE 00 (Enter) 

Ab Adresse O1BA hex darf nichts 
mehr verändert werden. Die Eingabe 
beenden Sie mit 
O1BA OA . (Enter) 

Sobald der Prompt »-« auf dem 
Bildschirm erscheint, verlassen Sie 
DDT mit <CTRL+C>. 

Jetzt sehen Sie den Prompt 


2) 
des CP/M. Mit 
SAVE 26 PAINT.CMD 
speichern Sie die neue Datei auf der 
Diskette. Die 26 in der Speicheran- 
weisung steht für die Zahl der 256 
KByte langen Blöcke, die das Pro- 
gramm im Speicher belegt. Die 
Rechnung ist einfach: 

1B00 hex minus 100 hex macht 
1A00 hex. 1A0O hex geteilt durch 
256 ergibt 1A hex (=26 dez). 1BOO 
hex war die Zahl unter NEXT beim 
‚Aufruf des DDT und 100 hex stand 
unter PC. 
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Adresse | Routine 


84 hex 
BA hex 


Druckerinitlalisierung 
Verlassen des Grafikmodus 
des Druckers 


90 hex Druckerinitialisierung für 


96 hex 
9C hex 
A2 hex 
A8 hex 
AE hex 
B4 hex 


3 Halbzeilen Vorschub 
7 Halbzeilen Vorschub 
1 Ganzzeile Vorschub 

4 Ganzzeilen Vorschub 
7 Ganzzeilen Vorschub 


Die Adressen bezl 
Datelanfang. 


ich auf den 


Tabelle 3. Adressen für die Drucker- 
anpassung in der Routine »PAINT.CMD«. 
Jeweils das erste Byte bezeichnet die 
Anzahl der nachfolgenden gültigen 
Codebyte. 


gegebene Wert von Bedeutung. 
[B] Schnitt-Hinten: Bei dieser Rou- 
tine wird der hintere Teil abgeschnitten. 
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Bild 7. Das ist ein Film mit 18 Bildern (Auflösung 224 mal 72 Punkte). Man erkennt leicht, wie durch Überlagerung 
dreier Einzelfilme (für jeden Buchstaben ein Film), in der sich drei Buchstaben um verschiedene Achsen drehen, 
ein gemeinsamer Film erzeugt werden kann. 


Alle anderen Informationen entspre- 
chen denen von »Schnitt-Vorne«. 

[Z] Bilderanzahl: Dieser Parameter 
legt fest, wieviele Bilder berechnet wer- 
den (Ein Film besteht aus maximal 19 
Bildern). 

[A] Auflösung einstellen: 

Drei verschiedene Auflösungswerte für 
statische und ein Wert für Filmbilder 
stehen zur Verfügung. In diesem Unter- 
menü können Sie die Unterpunkte aller- 
dings nicht durch einfache Eingabe der 
entsprechenden Taste aktivieren. Sie 
wählen stattdessen mit den Tasten 
<Pfeilhoch> und <Pfeilrunter> die 
gewünsche Darstellungsart aus. Mit 
<Enter> verlassen Sie das Menü. 

[F] Filmbilder (224+72): Für Filmbil- 
der ist wegen Speicherplatzproblemen 
die Punktzahl pro Bild zu reduzieren. 
Diese Bilder können sich aus diesem 
Grund nicht über den ganzen Bild- 
schirm ausdehnen. 

[1] Einfach (640+200): Diese Darstel- 
lungsart entspricht dem Modus 2 des 


Schneider-Betriebssystems. 

[2] Doppelt (640*400): Der Bild- 
schirm ist jetzt doppelt so groß. Die Aus- 
gabezeit (nur auf dem Drucker) verlän- 
gert sich dadurch auf das Doppelte im 
Gegensatz zur einfachen Auflösung. 

[4] Vierfach (640+800): Mit Hilfe die- 
ses Menüpunkts ist das Bild viermal so. 
groß wie bei der einfachen Auflösung. 

Die beiden letzten Ausgaberoutinen 
sind nur für einen Matrixdrucker 
gedacht, da die Auflösung auf dem Bild- 
schirm ohne Änderung des Betriebs- 
systems 640 mal 200 Punkte nicht 
überschreiten kann. 

Es ist sicher leicht zu verstehen, daß 
ein Drucker mehr Zeit für die Ausgabe 
eines Bildes mit vielen Punkten als für 
ein Bild mit wenigen Punkten braucht, 
Probedrucke führen Sie deshalb sinn® 
vollerweise mit einer niedrigen Auflö- 
sung durch. Für den endgültigen Aus- 
druck Ihres Meisterwerks wählen Sie 
dann natürlich eine hohe Auflösung. 

(Marcus Hutter/Stefan Groll/hg) 
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Die Schattierung - ein 
CPC-Giga-CAD-Schmankerl 


Tiefenwirkung erzielen geeig- 
nete Schattenwürfe. Was für das 
menschliche Auge einfach zu 
sehen ist, das bedeutet für den 
Computer eine komplizierte 
Rechenaufgabe, die ihm nur 
schwer beizubringen ist. 


ie Qualität eines CAD-Pro- 

gramms zeigt sich an der Bild- 

ausgabe. Einfache Objekte 
lassen sich relativ leicht auf den Bild- 
schirm (oder das Papier) zaubern. Daß 
solch ein Gebilde aber fast immer 
»unecht« wirkt, liegt an der meist unna- 
türlichen (weil fehlenden) Lichtquelle. 
Jedes Bild lebt nämlich auch von den 
Schatten, die der Gegenstand wirft, 
wenn er von einer einzigen Stelle aus 
angestrahlt wird. CPC-Giga-CAD ist 
deshalb mit einer sehr umfangreichen 
Schattierungsroutine ausgestattet. 

Alle Objekte werden als eine 
Ansammlung einzelner Flächen vom 
Computer verwaltet. Häufig definieren 
ähnliche 3D-Grafikprogramme nur die 
Kanten der Gebilde - also nur Strecken. 
Beim Ausblenden von verdeckten 
Linien bereitet diese Art aber große 
Schwierigkeiten, da ja ein Strich 
bekanntlich keinen Schatten wirft. 

Die hier benutzte Methode unter- 
scheidet sich aber noch in einem ande- 
ren wichtigen Punkt von denen vieler 
Konkurrenten. Die Zahl der Eckpunkte 
ist nicht auf drei beschränkt. Sie dürfen 
jede Fläche aus »beliebig« vielen Eck- 
punkten zusammensetzen. Dies macht 
die Schattierungsroutine kompliziert 
und auch langsamer. Die Ausgabezei- 
ten von CPC-Giga-CAD bleiben aber 
aufgrund der hohen Arbeitsgeschwin- 
digkeit Ihres Schneider CPCs noch 
erfreulich kurz. 

Prinzipiell arbeiten fast alle Schattie- 
rungsroutinen nach dem gleichen 
Schema. Zuerst werden die Winkel zwi- 
schen allen Flächen und dem Vektor, 
der die Lichtquelle beschreibt, berech- 
net undin einem Feldim Speicher abge- 
legt. Im nächsten Schritt werden die 
Flächen in der Reihe ihrer Sichtbarkeit 
geordnet und in dieser Reihenfolge auf 
den Bildschirm ausgegeben. Diese Rei- 
henfolge führt zu den ersten Proble- 
men. 

Bei genauer Betrachtung stellen Sie 
nämlich fest, daß die Entscheidung, ob 
ein Gegenstand sichtbar ist, für das 
menschliche Auge automatisch geklärt 
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ist. Den Computer stellt solch eine Ent- 
scheidung aber vor eine schwer lös- 
bare Aufgabe. 

Ein besonders beliebtes und einfa- 
ches Sortierkriterium für dieses Pro- 
blem ist die Länge des Normalenvek- 
tors. Dieser liefert aber leider nicht 
immer zufriedenstellende Ergebnisse. 
Eine weitere Schwierigkeit dieses Ver- 
fahrens liegt darin, daß einzelne Flä- 
chen nicht einfach nacheinander auf 
den Bildschirm gezeichnet werden dür- 
fen. 

Denken Sie beispielsweise an zwei 
Flächen, die sich gegenseitig überlap- 
pen. Schon darf nicht die erste Fläche 
und nachfolgend die zweite gezeichnet 
werden. Der nächste - und für uns auch 
schon recht brauchbare - Weg verzich- 
tet auf das Sortieren der Flächen. Sie 
erscheinen einfach in beliebiger Rei- 
henfolge auf dem Bildschirm. Dabei 
berechnet der Computer von jedem 
gezeichneten Punkt die Tiefe und legt 
diesen Wert im Speicher ab. Die Tiefe 
jedes weiteren Punktes, der an dersel- 
ben Stelle gesetzt werden soll, wird mit 
dem schon vorhandenen Wert vergli- 
chen und nur gezeichnet, wenn er wei- 
ter vorne liegt. 


Speicherprobleme 


Doch auch damit ist das Problem 
noch nicht gelöst. Selbst wenn man für 
die Tiefe jedes Bildpunktes nur ein Byte 
reserviert, reicht der Speicherplatz des 
Computers nicht aus. Bei einer Auflö- 
sung von 128000 Bildpunkten (640 
mal 200) benötigt in so einem Fall allein 
das Bild 128 KByte. Auch diese Idee ist 
damit auf einem Schneider CPC nicht 
zu realisieren. 

Dennoch hilft dieser Ansatz weiter. 
Wenn der Computer das Bild zeilen- 
weise aufbaut, dann ist pro Grafikspalte 
nurnoch ein Tiefenwert nötig. Das Fluß- 
diagramm in den Bildern 1 bis 6 erklärt 
die Schattierungsroutine von CPC- 
Giga-CAD. 

Der Hauptteil der Routine ist vollstän- 
dig in Maschinensprache geschrieben. 
Als erstes müssen ein paar Vorberei- 
tungen getroffen werden. Wie bereits 
oben erwähnt, muß der Winkel zwi- 
schen dem Normalenvektor der Fläche 
und dem Lichtquellenvektor berechnet 
werden. Hierbei ist natürlich prinzipiell 
der Unterschied zum Ortsvektor zu 
bedenken; in der Mathematik aber nur 


eine Sache der Definition. Wie berech- 
net man nun den Winkel zwischen den 
beiden Vektoren? Folgende Formel 
ergibt sich aus der Definition des Ska- 
larprodukts: 


u: v= lul-Ivl-cos 
-cosp= UN 
lul-IvI 


Das Skalarprodukt ist im dreidimen- 
sionalen Raum folgendermaßen defi- 
niert: 


Vi 
Fi % = u Vi tup'VatUg'Va 


Va 


Us! 


In unserem Fall interessiert nicht der 
Winkel zwischen zwei Vektoren, son- 
dern der zwischen Ebene und Vektor. 
Aus diesem Grund nimmt man den Nor- 
malenvektor zu Hilfe, der auf der Ebene 
senkrecht steht und somit mit dieser 
einen Winkel von 90 Grad bildet. Der 
Winkel zwischen Normalen- und Licht- 
quellenvektor ist also 90 Grad minus 
den gesuchten Winkel. Um nun den 
Normalenvektor zu berechnen, brau- 
chen Sie zwei linear unabhängige Vek- 
toren, die die Ebene aufspannen. Drei 
Eckpunkte der gegebenen Fläche 
legen diese beiden Vektoren schon ein- 
deutig fest. 


EX=A+k-U+L-V 
X=B+tr:w 


Verschieben Sie nun die Ebene in 
den Ursprung (durch Subtraktion des 
Vektors A), so erhalten Sie eine paral- 
lele Ebene, die durch die Vektoren und 
Vaufgespannt wird. Der Normalenvek- 
tor läßt sich nun als Vektorprodukt von 
@’und V’berechnen. 


U; Vz 
det (% vs 
U} Vi 
= u, V 
= e|: v| = -det (& v) 
Us! va 


det (u; v.) 


Die jeweilige Koordinate berechnet 
sich aus der Determinante der Rest- 
koordinaten. Der zweiten Determinante 
muß ein Minuszeichen vorangestellt 
werden. 


SE zz 


m 


Den so berechneten Vektor brau- 
chen Sie nur noch in die bereits herge- 
leitete Formel einzusetzen: 


cos p = UxXM ıw 
Ku x v)I » Iwl 
Schließlich bleibt noch zu klären, wie 


man den Betrag eines Vektors ermittelt. 
Dazu nehmen Sie folgende Formel: 


N en 
u=[w| =sVyutu+tu 
Us 


Die Schattierungsroutine multipiziert 
den Cosinus dieses Winkels mit 64. 
Dadurch liegt der berechnete Wert 
immer zwischen O und 64. Der Wert 
wird als 1-Byte-Zahl im Speicher abge- 
legt und der ganze Prozeß mit jeder ein- 
zelnen Fläche wiederholt. 

Um die Wartezeiten so kurz wie mög- 
lich zu halten, bestimmt das Programm 
anschließend die absoluten Extrema 
des Objektes und die relativen Extrema 
jeder Fläche. Damit arbeitet der Com- 
puter immer nur im für die Ausgabe 


Beschränkung auf 
das Wesentliche 


interessanten Bereich. Alle diese Werte 
werden in einem Feld abgelegt. Die 3D- 
Koordinaten der Eckpunkte müssen 
nun in Bildschirmkoordinaten umge- 
rechnet und codiert im Speicher gesi- 
chert werden. 


___ 


Nun kann endlich die Schattierung 
beginnen. Die Variablen für das Pro- 
gramm finden Sie in Tabelle 1. Alles wei- 
tere erklärt sich aus dem Flußdia- 
gramm. 

Als letztes nehmen wir die einzelnen 
Komponenten der eigentlichen Schat- 
tierungsroutine unter die Lupe. Da sich 
das Bild zeilenweise aufbaut, startet die 
Routine mit einer Schleife (Bild 1) beim 
Minimum ED. Alle folgenden Grafikspal- 
ten, in denen gezeichnet wird, erfahren 
die gleiche Behandlung. 

‚Jeder gesetzte Punkt wird auf seine 
räumliche Tiefe hin überprüft. Daher 
muß zuerst das Feld mit den Werten für 
jede einzelne Grafikspalte auf den Wert 
der hinteren Schnittebene x gesetzt 
werden. 

Dadurch ist gewährleistet, daß der 
erste Punkt in einer bestimmten Grafik- 
spalte nicht übergangen wird. Die Tiefe 
istan der entsprechenden Stelle garan- 
tiert gespeichert. 

In einer weiteren Schleife werden alle 
Flächen des Gebildes für jede Grafik- 
spalte neu bearbeitet. Das mutet sehr 
umständlich an, ist aber die weitaus 
schnellste Methode. 

Ein Vergleich der Grafikzeile LA mit 
den im Feld gespeicherten Extrema 
prüft, ob die Zeile innerhalb dieser 
Grenzen liegt. 

Schneidet die Grafikzeile die Fläche 
nicht, so wird diese übergangen und 
die nächste Fläche behandelt. Diese 
Methode reduziert die Wartezeiten auf 
ein Minimum. 

Die folgende Schleife ermittelt von 
allen Randlinien der aktuellen Fläche 


EC: Minimum (Zeile, ab der schattiert wird) 

LA: ‚Aktuelle Line 

GG: Grafikspalten (x-Auflösung = 640 Punkte) 

SD: ‚Zählvariable für die Eckpunkte der Fläche 
T-Feld: ‚640 mal 2 Byte Tiefe für jeden Punkt einer Linie 
xC: erster Eckpunkt 

XD: letzter Eckpunkt 

XA, YA, ZA: ‚Anfangspunkt 

XB, YB, ZB: Endpunkt 

I ‚Zähler 

uv: Flag für unsichtbare Kanten 

PA bis PF; y-Koordinaten (in Integer) 

wi: Verbindungsvorschrift 

MI: Minimum 

ZN: Flag für Randlinien 

SE: Flag für Schnitt-Vorne 

KE: Tiefe von Schnitt-Vorne 

DF: ‚Anzahl der Flächen 

GR: ‚Auflösung = 0,5/1/2/4 Schnittvariable 

WE: Tiefensteigung 

TR: Tiefe (Laufvariable) 

ISR: ‚SR-Anfangswert/Increment 

ITR: TR-Anfangswert/Increment 

Bl: x-Position des Punktes in der Schattierungstabelle 
BD: y-Position des Punktes in der Schattierungstabelle 
ZM: Punkt = Schwarz, wenn ZM=1 


Tabelle 1. Die Variablen der Schattierungsroutine verschaffen Ihnen Übersicht 


die Anfangs- und die Endkoordinaten. 
Diese Koordinaten werden am Punkt 1 
einem Unterprogramm (Bild 2) überge- 
ben. Dieses hat allein die Aufgabe, die 
Schnittpunkte der Fläche mit der Zeile 
LA zu bestimmen. 

Ein weiteres Unterprogramm (Bild 3) 
berücksichtigt die Fälle, bei denen der 
Schnittpunkt außerhalb des Bild- 
schirms liegt. Ob diese Schnittpunkte 
eingezeichnet werden müssen, ent- 
scheidet die Verbindungsvorschrift. 
Um zu testen, ob der gezeichnete 
Punkt sichtbar ist oder nicht, wird mit 
Hilfe des Strahlensatzes die Tiefe der 
Schnittpunkte über die Eckpunkte der 
Linie berechnet und gegebenenfalls 
gezeichnet. 

Dazu wird ein weiteres Unterpro- 
gramm aufgerufen. Da einige Eok- 
punkte zu doppelten Schnittpunkten 
führen, werden die überflüssigen Werte 
zuerst herausgefiltert. Ist der Test mit 
allen Randlinien durchgeführt und die 
Anzahl der Schnittpunkte ausreichend, 
so ruft das Programm über die Verbin- 
dungsstelle 11 eine weitere Routine 
(Bild 4) auf. 

Diese Routine sortiert als erstes die 
Schnittpunkte der Größe nach. Als 
zweites werden die erste und zweite, 
die dritte und vierte Linie im Schattie- 
rungsraster miteinander verbunden. 
Deshalb muß wiederum eine Schleife 
(Bild 5) die Tiefen sämtlicher Punkte 
dieser Linie berechnen. 

Liegt ein Punkt vor einem bereits 
gezeichneten Punkt, so wird in die Rou- 
tine verzweigt, die endlich diesen Punkt 
setzt. 


Nun wird es sehr 
kompliziert 


Da alle Sonderfälle wie beispiels- 
weise die Darstellung der vorderen 
Schnittebene zu berücksichtigen sind, 
ist die Routine aus Bild 6 sehr kompli- 
ziert. 

Gegebenenfalls muß der zuvor be- 
rechnete Winkel der Fläche aus dem 
Feld geholt und damit das Schattie- 
rungsraster berechnet werden. 

Die gleiche Routine dient auch dazu, 
die Randlinien einer Fläche einzuzeich- 
nen. 

Die ganze Prozedur wiederholt sich 
dabei pro Zeile mit jeder Fläche. Mit die- 
ser Routine erhalten Sie eine Grafik, 
deren unsichtbare Linien und Flächen 
realitätsnah ausgeblendet sind. Und 
dabei ist das Programm noch außeror- 
dentlich schnell. 

Eine Schattierung in einfacher Auflö- 
sung brauchtimmerhin weniger als eine 
Minute Rechenzeit. 

(Marcus Hutter/Stefan Groll/hg) 
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‚Anfangszeile LA: EC — LA 
‚Anzahl der Grafikspalten: GG=640 


Gesamtes T-Feld (= Tiefe des Spaltenpunktes x der Zeile LA) 
durch Extremwerte markieren: T (x) = y (Schnitt - Hinten) 


Schleifenvarlable 1:1 = 


z- 


Minimum < LA 
und Maximum > LA 
? 


‚Zählvarlable für Eckpunkte: SD = 0 
‚Anfang (XC), Ende (XD) der Fläche | lesen 


‚Schleifenvariable für die Eckpunkte der Fläche: Q = XC 


‚Anfangs- und Endkoordinaten einer Linie lesen 
(festgelegt durch die Eckpunkte Q und Q +1) 
Anfangspunkt: XA, YA, ZA / Endpunkt: XB, YB, ZB 


Flag für die letzte Linie einer Fläche: UB = 0 
Nummer der Linie: QU = Q- XC 


vertauschen 


Koordinaten der Linie 
vom ersten (XC) bis zum 
letzten Eckpunkt (XD-1) 

lesen. 

Nummer der letzten Linie: 

QU=QU+1 
Flag für die 
letzte Linie: 1 UB 


Zeilen: LA=LA +1 


Bild 1. Das Flußdiagramm für die Hauptschleife 
der Schattierungsroutine 


»LINETESTe: Ermittelt die Schnittpunkte der Linie, 
XAIYA - XB/YB mit der Grafikzeile LA 


Anfang und Ende des 
Schnitts lesen: 
nach X 


Ya=> YBund 1 
YA < LA oder YA > 
? 


Flag für 
Zeichnen 


Yi= ZA +WE x (K1-XA) 
Y2= ZA +WE x (X2-XA) 


WE = (ZA - zB) 7 
Yı = ZAHWE x (LA-YA) 


X1 &.X2 im D-Array 
an der Stelle SD ablegen 
Flächenzahl: SD= SD+1 


Bild 2. In dieser Routine wird der 
Schnittpunkt zwischen Rand und 
Bildschirmzeile berechnet 
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PC = INT (YA):PD = INT (YB) 


Erste Linie merken: 
PE = PC: PF = PD 


Erste Linie aktivieren 
PA = PE: PB = PF:UB=0 


PB = QU:PA= PC 
PB=PD 


PB = QU:PA=PC 
PB=PD 


Bild 3. Auch Schnittpunkte außerhalb 
des Bildschirms müssen ermittelt werden 


MI = 8000: W=0:22=0 
M=0 


M=1:X1 = Q(ME, 1) 
Yi = Q (ME, 2) 


Y2 =Q (ME, 1) 
Y2 = Q (ME. 2) 
M=0 


Bild 4. Die Schnittpunkte werden sortiert und 
durch Linien im Schattierungsraster verbunden 
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- 
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Steigung: WE = (Y2 - Yı)/T 


Startwert der Tiefe: TR = Y1-WE 
Startwert der Schleife: S = X1 


Tiefe des Punktes in Spalte $: 
TA = TR + WE 

X-Koordinate des Punktes; 
SR=ISR 


nein > 
Be 2 
(TR- TIER) 

= ? 


TR > T(SR)+2-4x ZN 


Bild 5. Diese Routine verbindet 
die Schnittpunkte miteinander 


T(SR) = TR 
(Tiefe merken!) 


Bit-Nummer: 
BI=SRAND7 
BO=LAANDT 


Helligkeit der Fläche | 
aus dem Feld 
lesen — FA 


BS = INT (SR/640 + 1) 


; ja 
SR = SR -640 


Ein Punkt wird gesetzt | 


wenn ZM = 1 


Bild 6. Jeder Punkt wird in Abhängigkeit von den 
Schattierungsparametern gesetzt 


BOWWW.HOMESOMPUTER 


Kurzanleitung 


Eingabeeinheit 
Programmaufruf: TS CREATE 

[F] Flaeche - Eingabe von Flächen 

linkes oberes Feld - xz-Ebene 

rechtes oberes Feld - yz-Ebene 

linkes unteres Feld - xy-Ebene 

<Pfeil rechts> und <Pfeil links> 
bewegen den Cursor auf der x-Achse 

<Pfeil hoch> und <Pfeil runter> 
bewegen den Cursor auf der z-Achse 

<Pfeil rechts> und <Pfeil links> 
gemeinsam mit <Shift> bewegen den 
Cursor auf der z-Achse 

[P] Punkt fixieren - Punkt an der 
Stelle des Fadenkreuzes einzeichnen 
‚A] Anfangspunkt - Cursor auf den 
ersten eingezeichneten Punkt 
M] Mittelpunkt - Cursor 
Ursprung des Koordinatensystems 
[L] Punkt loeschen - Letzten einge- 
zeichneten Punkt löschen 
U] Unsichtbar - Wie Punkt fixieren, 
jedoch unsichtbar 
R] Restobjekt (EIN/AUS) - Flächen, 
die nicht bearbeitet werden, nicht 
anzeigen 
K] Hilfskreis - Hilfskreisfunktion auf- 
rufen als Konstruktionshilfe 

’IK] Kreismittelpunkt - Kreismittel- 
punkt an Cursorposition fixieren 

'[K] Kreisline - Kreislinie an Cursor- 
position fixieren 

'IK] Kreis loeschen - Hilfskreisfunk- 
tion verlassen 
Beim Verlassen von Fläche: 

Achse (J/N) ? - Definition einer Flä- 
che mit zwei Punkten als Achse/Linie 
Lichtquelle (J/N) ? - Definition einer Flä- 
che mit zwei Punkten als Achse/Linie 

[U] Uebernehmen - Blinkende Flä- 
chen/Makros werden in das Objekt 
übernommen 

[A] Achse - Einzeichnen von Achsen 
Horizontal-Achse - x-Achse 
Vertikal-Achse - z-Achse 
Tiefen-Achse - y-Achse 
Loeschen - Aktuelle Achse wird 
gelöscht 
[IV] Verformen 
Auffuehren(Joy) - Verformung zu 
Testzwecken ohne Eintragung 
A] Ausfuehren(Para) - Verformung 
mit Eintragung 
L] Werte loeschen - Alle Parameter 
auf neutralen Anfangswert setzen 
R] Rotieren - Rotation von Objekt, 
Makro, Fläche um Achse 
S] Schieben - Schieben von Objekt, 
Makro, Fläche in allen drei Ebenen 
D] Dehnen - Vergrößern von Objekt, 
Makro, Fläche in einer Dimension 
V] Vergroessern - Vergrößern von 
Objekt, Makro, Fläche in drei Dimensio- 


auf 


a 


DÄASE 


= 


nen 


[P] Form-Parameter 

A] Ausgangsflaeche (N) - Aus- 
gangsfläche wird gelöscht 

E] Endflaeche (N) - Endfläche wird 
gelöscht 

'V] Verbinden (J) - Flächen mit ihren 
Bildern verbinden 

'S] Geschlossen (N) - Die ersten und 
letzten Punkte der Flächen werden mit 
ihren Bildern nicht verbunden. 

1] .P verbinden (J) - 1. Punkt der 
Ausgangsfläche und dessen Bilder ver- 
binden 

L] .P verbinden (J) - letzten Punkt 
der Ausgangsfläche und dessen Bilder 
verbinden 

N] Neues Makro (J) - Alle neu 
erzeugten Flächen werden ein Makro 
Z] Wiederholung - Anzahl der Wie- 
derholungen 


[Z] Zoomen 
Darstellung 640 mal 200 Punkte 
L] Links oben - Vorderansicht 
R] Rechts oben - linke Ansicht 
U] Links unten - Aufsicht 
©] Originalgroesse - Speicherung 
s ursprünglichen Ausschnittes/Ver- 
größerung 

N] Neu zeichnen - Objekt wird neu 
zeichnet 
G] Uebernehmen - Vergrößerter 
Ausschnitt wird zur Bearbeitung über- 
nommen 
Im Zoom-Modus: 
'O] - optimales Ausnutzen des Bild- 
schirms 


[E] Editieren 

L] Loeschen - Löschen von blinken- 
der Fläche/Makros 

— ]Vorherige Flaeche - Durchblät- 
tern der Flächen rückwärts 

— ]Naechste Flaeche - Durchblät- 
tern der Flächen vorwärts 

! ]Vorheriges Makro - Durchblättern 
der Makros rückwärts 

I]Naechstes Makro - Durchblättern 
der Makros vorwärts 

Sh--]Erstes Makro - Anwählen des 
ersten Makros 

Sh— ]Letztes Makro - Anwählen des 
letzten Makros 

[D] Diskette 

A] Objekt speichern - Objekt auf Dis- 
kette ablegen 

B] Objekt laden - Objekt von Dis- 
kette laden 

C] Makro laden - Makro von Diskette 
laden 

D] Directory - Wie CP/M-Funktion 
»DIR *.*« 

E] Einzel-Save - Wahlweises 
Abspeichern einzelner Makros auf Dis- 
kette 


F] M. speichern - Blinkende(s) 
Makro/Fläche auf Diskette ablegen 

G] M. auf Diskette - Wie CP/M- 
Funktion »DIR +. OBJ« 

[S] Sonstiges 

U] Unsichtbar (EIN/AUS) - Unsicht- 
bare Linien darstellen 

Alles loeschen - Den ganzen Bild- 
schirm löschen 

N] Neues Makro - Zusammenfas- 
sung der nachfolgenden Flächen zu 
einem Makro 

Z] Alles ein Makro - Gesamtes 
Objekt zu einem Makro zusammenfas- 
sen 
E] Letztes Makro - Anwählen des 
zuletzt definierten Makros 

F] Fast-Mode (EIN/AUS) - (EIN) bei 
Verformungen wird nicht neu gezeich- 
net 


= 


Ausgabeeinheit 

Programmaufruf: TS PAINT 

[D] Darstellen: 

L] Objekt laden - Name des Objek- 
tes, das gezeichnet werden soll 

H] Hintergrund - Name des Hinter- 
grundbildes 

D] Bild darstellen - Name des Bildes, 
Ss gezeichnet werden soll 

B] Bild berechnen - Name, unter 
m das berechnete Bild auf Diskette 
gespeichert werden soll oder leere Ein- 
gabe 


da: 


u) 


Film abspielen - Name der Bild- 
sequenz, die als Film gezeigt werden 
soll 

<Pfeil hoch> - Beschleunigt den 
Ablauf 

<Pfeilrunter> - Der Ablauf wird ver- 
langsamt 

<Pfeil rechts> - Der Film läuft vor- 
wärts ab 

<Pfeil links> - Der Film läuft rück- 
wärts ab 

<Shift> und <Pfeil rechts> oder 
<Pfeil links> - Film läuft im Wechsel 
vorwärts und rückwärts 

<Shift> und <Pfeil hoch> - Stan- 
dardgeschwindigkeit 25 Bilder pro 
Sekunde 

<Shift> und <Pfeil runter> - Der 
Film wird angehalten 

<Pfeil rechts> - Ein Bild vorwärts 

<Pfeil links> - Ein Bild rückwärts 

<Shift> und <Pfeil hoch> - Film 
wieder starten 

<Esc> - Film abbrechen 

<]> bis <z> - Ändertdie Farbe der 
Bildpunkte. 3 

<\> bis <Z> - Ändert die Farbe 
des Hintergrundes 

<Cirl> gemeinsam mit <]> bis 
<z> - Ändert die Ranmenfarbe 
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[M] Modi einstellen 

[L] Variable Lichtgelle (N/J) - (J) 
Lichtquelle bewegt sich 

[0] Variables Objekt (J/N) - (J) Objekt 
wird verformt 

[P] Sichtbare Linien (EIN/AUS) - (EIN) 
sichtbare Linien werden gezeichnet 

[U] Unsichtbare Linien (AUS/EIN) - 
(EIN) unsichtbare Linien werden 
gezeichnet 

[A] Objekt erhalten (J/N) - (J) Objekt 
auf der Diskette nicht verändern 


Aus Platzgründen ist in diesem 
Heft eine vollständige Dokumenta- 
tion des Programmpaketes nicht 
möglich. Sie finden aber alle Informa- 
tionen, um CPC-Giga-CAD zu benut- 
zen. Für all jene Unermüdlichen, die 
die erzeugten Objekt-Dateien für 
andere Zwecke verwenden wollen, 
hier das Dateiformat der Daten. 

Die Dateien mit der Extension 
»OBJ« sind wie folgt aufgebaut: 

2 Byte - Länge der Datei-4 

2 Byte - immer 0001 hex 

10 Byte - x-Reihe der Matrize 

10 Byte - y-Reihe der Matrize 

10 Byte - z-Reihe der Matrize 

6 Byte - Koordinaten der Lichtquelle 
(x, y, 2) 

6 Byte - Koordinaten des Anfangs- 
Punktes der Achse (x, y, z) 

6 Byte - Koordinaten des Endpunk- 
tes der Achse (x, y, z) 

Jede Reihe einer Matrize: 

2 Byte - x-Spalte 

2 Byte - y-Spalte 

2 Byte - z-Spalte 

2 Byte - Verschiebungsvektor 

.2 Byte - Faktor 

Darauf folgen die einzelnen Flä- 
‚chen mit folgendem Format. 


Baom .E7,25,81,08,C3,02,43, 
7 


8050, 00,02,22,20,00, 
8038,00,20,22,20,00, 
112 DATA 8048,00,28, 22,00 TEE Ze 20. 
113 DATA 8048,88,00,28,28,20,20, 00 

BSB,FF,7F,2B,00,00, 


er 121 
1@1 ‘= CREATEI.DAT - DATA-Lader von 


102. 


115 DATA BeSS,a0, 20,28, 20,FF,7F,BR, 
gn&2, FJOBJIF,BB.IF, 


[D] Durchsichtig (N/J) - (J) Transpa- 
rentes Bild zeichnen 

[H] Hardcopy (AUS/EIN) - (EIN) Hard- 
copy bei Darstellen und Berechnen 

[W] Nach Bild warten (J/N) - (J) Nach 
jedem Bild auf Tastendruck warten 


[P] Parameter einstellen 

[H] Helligkeit - Helligkeitsbereich bei 
der Berechnung (0 bis 100) 

[F] Fluchtpunkt - Grad der Flucht- 
punktdarstellung (0 bis 100) 


Darstellung einer Fläche: 

1 Byte - Eckenzahl (Bit 0-5) 

6 mal n Byte - Eckenx,y, z 

(2 Byte x, 2 Byte y und 2 Byte z) 

1 Byte - Eckenzahl 

und so weiter 

FF hex - Makrotrennung (zwischen 
zwei Flächen) 

00 hex - Ende der Datei (nach der 
letzten Fläche) 

Jede Koordinatenangabe setzt sich 
aus 2 Byte zusammen: 

Bit 1 ist das Vorzeichen. Dann folgen 
10 Bit Mantisse (Vorkommastellen) 
und 

4 Bit für die Nachkommastellen. 
Zuletzt 

1 Bit, das die Eigenschaft (sichtbar 
oder unsichtbar) festlegt. 

Aufbau von Filmbildern mit der 
Extension »PIA« bis »PIZ«: 

72 Byte mal 28 Zeilen Punkte 
(1 Byte (= 8 Punkte) entspricht 224 
Punkten pro Zeile) 

Der Bildschirmspeicher reicht von 
0C00 bis OFFFF hex. Berechnete 
Bilder mit 1-, 2- oder 4-facher Auflö- 
sung stehen auf der Diskette ledig- 
lich als Dump des Bildschirmspei- 
chers 


[E] Schnitt-Vorne - Wahl der vorderen 
Schnittebene (0 bis 100) 

[B] Schnitt-Hinten - Wahl der hin- 
teren Schnittebene (0 bis 100) 

[Z] Bilderanzahl - Anzahl der zu 
berechnenden/darzustellenden Bilder 


[A] Aufloesung einstellen 
[F] Filmbilder (224 mal 72) 
[1] Einfach (640 mal 200) 

[2] Doppelt (640 mal 400) 
[3] Vierfach (640 mal 800) 


In den Dateien »CREATE.CMD« 
und »PAINT.CMD« haben folgende 
‚Adressen folgende Bedeutung: 

Ab Startadresse plus 1A hex: 

Byte 1A hex, 1B hex - Farbe des 
Rahmens 

Byte 1C hex, 1D hex - Farbe der 
Punkte 

Byte 1E hex, 1F hex - Farben, in 
denen die Punkte blinken 

Byte 20 hex, 21 hex - Farbe des 
Hintergrundes 

Adressen für Druckeranpassung 
in dem Programm »PAINT.CMD«. 
Jeweils das erste Byte bezeichnet 
die Zahl der nachfolgenden gültigen 
Codebytes: 

84 hex - Druckerinitialisierung 

8A hex - Verlassen des Grafikmo- 
dus des Druckers 

90 hex - Druckerinitialisierung für 
anschließendes Senden von 639 
Grafikzeichen 

96 hex - 1 Halbzeile Vorschub 

9C hex - 3 Halbzeilen Vorschub 
A2 hex - 7 Halbzeilen Vorschub 
AB hex - 1 Ganzzeile Vorschub 

AE hex - 4 Ganzzeilen Vorschub 
B4 hex - 7 Ganzzeilen Vorschub 
Die Adressen beziehen sich auf den Datelanfang. 


’CPC’ * 
@8,79F6 
‚2200 
‚oe; MC 


‚aaao 
@2,6040 
20, 2624 


[15841 


Data 2008,00, 08,08,B0,FF ,7E „Bi FF SBerS 


„E ’ 
8149,32,F4,68,21,AB,62,11,4B,2FA9 


L795A1 


‚68,18, 0888 
7,2A,F8, 68, 7E,FE,FF,28, 1ESE 
D,AB,53,4B37 


8148,64,01,1@,2@,ED,B®,21,AD,3387 
8158,63,CD,D1,51,CD,CE,52,3E,183A 
8158,83,CD,67,68,CD}41,5F,3E,7FCC 
8160,81,CD,67,60,2A,F8,68,7E,7BSE 
8168, E6,3F,77,3E,82,86,8@,C4,718C 
817@,EB,54,CD,19,46,2A,F8,68,7BBB 
8178, 7E,EB,CD, 1C,57,17,2B,22,1F78 
8188,00,69,2A,FB,68,7E,E6,3F ‚13CB 
8188,F5,28,89,23,11 

8199,14,58,1 
8198, FF,32,F@,68 


81B8,3D,28,2E,2 
81B8,52,20, 
S1CQ,5B,BC, 
81C8,2A,F8, 
81D8,59,3E, 
81D8,57,CD,AB 
S1E8,24,30,20 
B1EB,96,52,2@,1 
B1FQ,ED,SB,BA,& 


8210,83,CD,47,61 
8218,F8,68,CD,1 


8228,54, 19,84, AF 
8230, ‚26, ’cD, 11,64 
8238, FC,62, Cs, D: 


8288,58,C9, 2A, Fi 
8288,C8,2A,2E,43,2: 5 H 
8290,30,43,22,2A,43,2A,32,43,0CB7 
8298, 22,2C,43,2A,80,69,2B,2B,1119 
B2AQ,2B,2B,2B,2B,01 ,86,88,CD,184D 
82A8,92,59,22,00,69, 3E,FF,32,597C 
8250, N ‚ea: Yan es 


ee 
82D8, 2B,2B, 21 
B2E0,68,23,1 
82E8,CD,AB,Si 


SHDuNNamE 


8318, 3E,87,CD,7C,5: 
8320,B7,3E,01,CA,1 
8328,C3,11,68,3A,F. 
8339,03,32,F4,68,2 
8338,44, 3D,28,5A,21,D 
8349,B1,46,21,28,43,1 
8348, 86,86, CD,EA,S 
8359, 21,AB,62,CD,B 
8358, 5C,21,28,43,1 ‚26, 
8360,86 ,CD,EA,5B,@1,02,88,CD,287D 
8368, 37,5E,2A,3A,43,22,28,43, 0863 
8370,2A,3C,43,22,2A,43,2A,SE,107& 
8378, 45,22,2C,43,C9,21,BB,62,2F68 
838@,CD,B1,46,24,28,43,22,34,489C 
8388,45, 2A,2A,43,22,36,43,2N,2B14 
8390, 2C,43,22,38,43,C9,81,02,0@sc 
8398, 00,CD,37,5E,21,CB,62,CD,326D 
BSAQ,B1,46,24,28,43,22,3A,43,4067 
83A8, 2A, 2A,43,22,3C,43,2A,2C,1554 
83B8,45,22,3E,43,C9,11,4B,44,2CBE 
83B8,01,10,@0,ED,B@,3E,88,C3,BFFB 
8SCQ,F1,51,CB,C&,SA,EF,68,B7,7BCB 
83C8,00,CB,86,C9,2A,F8,68/E6,4C16 
83D8,3F ,47,7E,E6,C8,B0,77,2A,@BE4 
8308,20, 49,78,C9,3€,83,CD}67,18D1 
83EB,60,3A,F5,68,FE,02,D8,2A,20C2 
83E8,F8, 48,96, 81 ‚CD,EB,54, 3E,6382 
B3F@,01,32,F5,68,3E,83,CD,67,1621 
83F8,6@,C3,AA,SF,21,5B,64, 63, 1Q1F 
8400, 3E,51.21,C0,61,18,8D,21,B@33 
8408, CC,61,18,@8,21,D8,61,18,7F72 
8410,03, 21,E4,61,D1,ED,SB,BA,1668 
8418, 61,01 ,0C,80,ED,BQ,2E,@5,34B1 
8420, CD,AB,61,C3,9C,57,CD.36,48E8 
8428, 4B,21,CA,64,C3,3E,51,CD,344F 
8450,D1,68,CB,7F ‚CB,32,17,69,8DF 
8438, 3A,CF,64,D6,05,38,F@,87,2E8F 
8440,87 ,5F,87,83,16,88,5F ‚21 ,ACBF 
8448,FQ,61,17,3E,FF,32,88,43,66F3 
8459, CD,2A,4A, 18,DA,SA,FS,68,637A 
8458, FE,92,DA,6C,48,CD,CA,49,62A9 
8468, 3A,7F ,43,32,14,69,2A,F8,8828 
8448, 68, 22,84, 69, 22,00,69,5A,358 
8478,F5,68,CD,26,54,2@,91,2B,7949 
8478, 22,FC,68,ED,5B,F8,68,B7,2C8F 
8490, ED,52,22,0E,69,3A,FB.62,6494 
8488, B7, 28, 15,CD,97,58,22,FC,5A9@ 
8498,68, 22,82,69,CD,24,4A,28,3DDC 
8498,87, 2A,BE,67,23,22,0E,69,BFBs 


[6626] 
L2CCAI 
E26FEI 
£28£21 
[BBSEI 
[62021 
133021 
LESACI 
183581 
[397E1 
£5DB21 
LACS2I 
EDA141 
[32443 
E54B8]1 
LABBA] 
CAF641 
[BEEBI 
ES8FAJ 
C5FSAl 
[2346] 
198021 
LE@FZI 
LIFDRI 
[CB48] 
[E2D41 
ECSCAI 
LAS7CI 
CDBB&I 
LAB7aJ 
LFAFBI 
LEB2CI 
1A496] 
LECBBI 
E3SBE) 
[23A63 
EF618) 
CCBEB] 
[8846] 
[76F4] 
£898C3 
19816] 
LSEZEI 
(60821 
LAA9GI 
(82F@] 
[2896] 
LASEBI 
tEF@B) 
CCccB] 
175123 
15888) 
184981 
1787C3 
t@DaB] 
C4C88] 
[2DE2] 
CF818] 
L466C) 
tE652] 
£19C23 
[E62C1 
EDACBI 
199861 
19488] 
EDEDCI 
LABESI 
LaABAl 
CBS1A] 
£8D2C3 
[BA68] 
[B94A] 
EFF1EI 
EDAFBI 
[28BEJ 
19634] 
[6748] 
[D456] 
LEDA&] 
18936] 
L2CFEI 
CBBD6E] 
LEBSEI 
LFSBB] 
[53681 
[41581 
CEEABI 
622043 
EiF4A] 
ECD6EI 
198421 
EBSCEI 
C48B6] 
L&SBC1 
ESACCI 
15368] 
[28721 
CESD41 
67912] 
LFEACI 
LEBS8] 
612541 
132221 
15996] 
[&7B4] 
[3C9@1 
189661 


252 DATA 84AB,CD,11,4A,C4,D5,49,2A,F8,6BE8 
253 DATA 84AB,68,3A,F8,62,FE,FF,7E,DE,278E 
254 DATA 84B8,@0,E6,5F,32,15,67,11,1A,3074 
255 DATA 84B8,02@,CD,B1,5B,22,19,69,3A,2168 
256 DATA 84C0,7F,43,3C,CD,1C,59,22,12,2502 
257 DATA 8408,49, 2A,84,69,23,CD,18,4A,3A46 
258 DATA 84D8,C4,6B,49,ED,53,88,69,CD,7D97 
259 DATA 84D8,01,4A,CD, 1F,4A,C4,6B,49} @Bar 
268 DATA B4E0,ED)53,2A,69,CD,AE,A8)CD}611D 
261 DATA B4EB,18,4A,28,BF ,2A,84,69,23,1AC1 
262 DATA 84F@,ED,5B,88,69,CD,75,49,ED,6393 
263 DATA 84F8,53,28,67,CD,1F,4A,28,BE,2BFE 
264 DATA 8580,CD,01,4A,ED,5B,@A,69,CD,6SBF 
265 DATA 8588,95,49,ED,53,84,69,21,14,41F2 
266 DATA 851@,69,35,20,D9,2A,04,69,22,317@ 
267 DATA 8518,FE,68,3A,F5,62,B7,28,13,6C8F 
268 DATA 8528,E3,2A,F8,6 

B,BE,67,77@1 


269 DATA 

27@ DATA 68, 3A,F6,4D52 

271 DATA B,DE,69, 1E61 

272 DATA 22,F8,68,49AB 
A,BE,61,02A5 


273 DATA 


274 DATA B,54,3E,1522 
275 DATA AA,SF CD, 7095 
276 DATA „3A,F5,68,312A 
277 DATA 8568,FE,@2,D8,96,90,C3,EB,54,666E 
278 DATA 8578,CD,CA,49,3A,7F,43,32,14,5004 
279 DATA 8578,69,CD,3E,56,21,14,49,35,Q4DF 
28@ DATA CD,AB,61,3465 
281 DATA E,07,CD,AB,447E 
282 DATA E,08,3D7C 
283 DATA 16,52,45BA 
284 DATA 18, CD,05D5 
285 DATA 1,03,4629 
286 DATA 16,0D,6921 
287 DATA A, 04 ,6EAC 
288 DATA 7,CA,Q4AB 
289 DATA 'C,68,2FD@ 
298 DATA cı 9,36,6698 
291 DATA ® 3,E5, 1427 
292 DATA D: D,SB,4B4D 
293 DATA 1 B,1B,6649 
294 DATA 3 2,DD,2D87 
295 DATA 7 1,D1,54@B 
29& DATA ‚cD, 2C 5,13,46CD 
297 DATA 86@8,13,13,13,13,1 2,49, 0091 
298 DATA 8610,3£,84,12,13,1 1,65, 1C8B 


DATA 8618,CD,95,49,DD,E1,DD,ES}D5,4253 
DATA 8628,CD,7E,56,D1,E1,ES,CD,AC,7B7A 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 8648,CD,B2,47,DD,E 
DATA 8668, 7E,56,E1,D1,C: 
DATA 8678,74 ,43,2A,FC,6B 
DATA 8678,12,69,CD,29,5 
312 DATA 
313 DATA 
314 DATA 
315 DATA 
31& DATA 
317 DATA B6AB, 
318 DATA „Ba,C9, 
319 DATA B,2B,2B,2B,2B,7E,E1 
328 DATA 1,46, CB,8@,BQ,12,23 
321 DATA 
322 DATA 
323 DATA 
324 DATA 
325 DATA 
326 DATA 
327 DATA 
328 DATA 
329 DATA 
332 DATA 
331 DATA 8718,B7,C8,18,8C,3A,F9,62,B7,6887 
332 DATA 8728,C8,18,05,3A,FA,62,B7,CB,66FE 
333 DATA 8728, 3A,F5,68,FE,85,C9,E5,CD,209B 
334 DATA 8738,87 ,5B,E1,3A,17,69,CB,47,0AGD 
335 DATA 8738,C4,5A,44,23,23,CB,4F,C4} 7D9E 
336 DATA 8748,50,44,23,23,CB,67,28,04,3E40 
337 DATA 8748, 23,23,23,23,CB,57,C4,5A,19C6 
338 DATA 8750,4A,23,23,CB,5F,C4,54,4A, 2406 
337 DATA 8758,CD,3E,56,C3,CA,51,E5,7E,6950 
34@ DATA 8760,23,66,4F,CD,84,50,E1,3R,0998 
341 DATA 8768,17,69,C7,CD,BC,4A, 11 

342 DATA 877@,CD,BC,4A,EB,ED,43,41 
343 DATA 8778,ED,53,4E,43,22,56,43,ED,6F93 
344 DATA 8788,43,58,43,CD,58,56,03,07,3169 
345 DATA 8788,5B,CD,BC,4A,18,@ 
34& DATA 8798,4A,EB,ED,43,40 
347 DATA 

348 DATA 
347 DATA »4A,EB, 18,05, CD,, ’ 
35@ DATA 87B0,ED,45,40,43,22,44,43,ED,sA1B 
351 DATA 8788,53,54,43,ED,43,58,43,09,3987 
352 DATA 87C0,24,96,43,54,5D,CD,FC,SB,3DDF 


883 


SBSEREER 


su 
Es 


ıg 1. Mit diesem Programm erzeugen Sie 
die Binärdatei »CREATE1.BIN« 


L59C61 
L7ESEI 
[5A441 
133641 
141981 
[59983 
CBSF6] 
LEAB&I 
CCE18I 
[BS&EI 
LAAFZI 
L&QF6] 
E2F@BJ 
EFCS21 
L&CEB] 
L23C21 
L&CDB] 
EC7DEI 
LAFD4]J 
CAEBBI 
[E768] 
CE492] 
LA6B2J 
LE7281 
CCD981 
EADBAI 
[55421 
LE794] 
12261 
C49043 
EB9Aq] 
LaDcal 
L92BE] 
LAEE6] 
[85A63 
13480] 
ESDCEI 
198021 
LABAEI 
£995C1 
[3018] 
ESCE@I 
CFAD21 
E7asAl 
LBIE6I 
[692E1 
c9B401 
CBD141 
681301 
E2B1A] 
CAFICI 
cOr84] 
L9DC41 
L629A1 
C64DEI 
CBIE6I 
[24681 
Ca5AR] 
LF798] 
E1Cc4] 
ECB4EI 
L7536] 
CACSA1 
E2A783 
LACF61 
E1SF@] 
CASBBI 
E2DD61 
CAna21 
[8856] 
[B6F41 
L9FFAI 
L67FcI 
CDIEAI 
LAAgEI 
CB9SE] 
[E692] 
EF9B6I 
EF2DAI 
EBF9CI 
CB9CCH 
EFOFAI 
CBFBCI 
E9DECI 
EFS4C1 
EDE&6] 
CBBBAI 
E1BEAI 
CC38C9 
[56041 
17248) 
ECAACI 
165341 
E2318] 
c12c01 
EC84AJ 
EBCF&I 
EBESEI 
127883 
[50661 
LBAZA1 


‚HOMESOMPUTER 


63 


= = — 
353 DATA 87C8,ED,4B,98,43,09,2A,94,43,74FB L[AEF®@I 458 DATA 8B18,3D,3D,28,14,3D,C8,E5,3E,169C L@DBCI 
354 DATA 87D8,18, ’86, ’2a, K} # D,F4, ’SB, @iiF L[D5961 459 DATA 8B18,83, co, 7e, 4E, CD, ar, 53, CD,SFiF [&B2A1 
355 DATA 8708,22, Sa, 43,09,2 T2F9C] 468 DATA 8B2@, JEB, 54,3E,83,E1,C3,9F,54,621E I[BEB2] 
356 DATA 87EB, MU 5B,18, ’e: +2A,94,45, E22% 6C54 IF264] 461 DATA 8B28,CD, a6, 4E, EB, 2A, Fe, &B) Es, 4AFS [C158] 
357 DATA 87E8, 46), 43,09, 2a, EIH 43,CD,F4,2C82 [54CA] 462 DATA 8B30, 87, ED, ‚s2, ‚22, @1,AF,EB,CD,6&B2F [16281 
358 DATA 87F@,5B,18, ‚as, 2A, ‚9, 43,22, !se; 2CF8 IES62] 463 DATA 8B38, ar, 53,D4,EB,54, SE, @2,E1,25CD LB9IEBI 
359 DATA B7FB, a3, .c9, 2A, 88, 45, 3A, BA, 25, 1DA7 LFFC4] 464 DATA 8B48, cz, I, 54) ‚2a, ‚FB, „ag, 3A, MH ‚assı [26061 
3568 DATA 8880,18,86,2A, SB, 43, 3A} ‚aD, 43, "@3D7 [DD52J 465 DATA EITEM &8, FE, a5, 28, LEM FE, a2, 28, B@AFA LF6B6] 
361 DATA 8808, 22, sa, a3, 32,5C, a3, c9, 2A,GEi4 [&43A] 466 DATA 8B58,33,2A, sF6; 68, 2B, CD, iF, MH "2946 LAZACI 
362 DATA 8818, ‚eg 43,34, s St 18 MT BETH Sage [486C) 467 DATA 8B58, 2B, 7E, 23, B7, 20, 26, 23), Ar} 8461 L[L147A] 
363 DATA {3D1AJ 468 DATA 8B68,C9,2A, !FB, 68,3A,F5,68, ‘FE, 175AA £C132] 
364 DATA IF@4E] 469 DATA BB, 05, 28,89, FE, 02, 28, 15, 2A, @SF@ [B964) 
365 DATA £1682] 478 DATA 8B78,BE,61,18,85,CD,26,54,CD,42Es LBIB6J 
366 DATA [DABEI 471 DATA 8B78, 1A, 54, 7E, B7, SE, 85,00, 2A, iCE& L[CID6] 
367 DATA [12B6) 472 DATA 8B8@, !BE} 61, Jar, ’c9} SE} ‚as, ’cD, 37,5E61 [5686] 
368 DATA [B13A] 473 DATA EEE 54, SE, as, C9,2A, Fa, 68,7E,2B6E LB4FB] 
369 DATA LAFE6) 474 DATA 8B98, Sc MH ‚a2, ’cD, 37, ‚ss, ‚20, 2DDC tE6&DB] 
378 DATA £[31F2] 475 DATA BB98, @E,B7,28, ab, SE, 03, co, 26,2F38 [89C8] 
371 DATA [7EDEI 476 DATA 8BAB,S4,2B, SE} ‚a2, ‚co, 37, M-TH ‚SE, ‚2182 [8188] 
372 DATA [8192] 477 DATA BBAB, e2, c9, 2A,FB, 68, 3E,82, CD, SAFi [0608] 
373 DATA LAITEI 478 DATA BBBQ,26, ‚54, 3E,82,C8,3C, 2B, ’co, Mr L6ECAI 
374 DATA EDDDCI 477 DATA 86B8,37,54,3E,02,C9,21,8D,67,@EDI LF7BAI 
375 DATA 18682) 488 DATA BBC®,C3,SE,S1,2A,BE,61,3E,04,628C LIYFCKI 
376 DATA 15638] 481 DATA BBC8,CD,4F,54,2A,BE,61,22,82,7902 LBYEEI 
377 DATA c@D82) 482 DATA 8BD@,43,2A,F6,68,2B,22,84,43,33DB LEEIAI 
378 DATA CB29@1 483 DATA 8BD8,C3,A2,5@,CD,7E,50,C0,SE,ACDE L7ES8] 
379 DATA L6B9AI 484 DATA SBE@,83,CD,67,40,24,82,43,3E,SBC® LBBACI 
388 DATA EBSSA1 485 DATA BBEB,@1,06,08,CD,EB,54,C3,CE,OA9® LFBEBI 
381 DATA A778] 486 DATA BBF@,52,CD,7E,58,C8,24,82,43,176F LIFC4] 
382 DATA LAF6AI 487 DATA BBFE,CD,19,51,2A,82,43,3E,03,6D23 L6FACI 
383 DATA [BESC) 488 DATA BCOQ,BE, au; CD, ’B9} 54,2A,82, 143) N167F [C39A] 
384 DATA L7@6C1 489 DATA 8C98,3E,83,CD,08,55,C5,EB,54,@6F6 L59D@] 
385 DATA . t@pce) 498 DATA BC1 6 [75AB] 
386 DATA BEDB,AB}61,CD,CE 3: 42081 491 DATA 8C18,CD,95,88,21,5C,@ es15A1 
387 DATA 8808, 7D,B7,C8,22,47, tDepe] 492 DATA 8C28,23,11,3E,B8,36,3F, CAS2CI 
388 DATA 8BEB,CS, ‚Fi, ‚si, Ar, 32, 1 LES88J 473 DATA TE4AB] 
389 DATA EES:H 49, 66, CD, D1,51,CD,4 1,28C3 L[C@F2] 494 DATA 8C30,CD,85,80,FE,FF,CB,F‘' [SE92] 
39@ DATA SBF@,CD,AA,AD,21,FC,62,C3,D1,ABBF LC&14) 495 DATA 8C38,E7,5F,F1,86,0A,C5,F5,3E,7890 LAAECI 
391 DATA BaF8,51,21,67,58,3E,01,18,BC,29A8 LABSE) 476 DATA 8C49,0C,90,26,84,6F,CD,75,BB,269D [56081 
392 DATA 8990, ‚21, 76, SB, SE,82,1: 1,85BB L[C28C] 497 DATA 1,87,87, 87, 87, 87,21,81, y4737 [BE68] 
393 DATA 8908,85,58, SE 83, 22,E 1,528D L[433A1 498 DATA 8C5@,42,16,00,5F,19,06,08,CD,217D [BE6B] 
394 DATA 8918,27,45,BE,77,C4,24,4D,21,15FB [3886] 499 DATA 8C58,F3,52,E5,SE,2E,CD,SD,BB}7885 [C21A1 
335 DATA 8918,3C,58,22,E4,68,21,BE,5SE,B@86 [DS6E] 5@@ DATA SC6B,E1,CB,BE,23,CB,BE,2B)@6,5548 [@ZERI 
396 DATA 8920,22,DE,68,21,98,3E 1,2C8D LB@IEI 5@1 DATA 8C68,@5,CD,F3,52,8E,12,CD,85,2827 LSCBCI 
397 DATA 8928,68,3E,FF,32,18,6 2F,2791 L[CSCAI 5@2 DATA 8C78,08,C1,FE,FF,CA,61,50,18,2714 [48921 
398 DATA 8930,5F,3E,81,ED,4B,18,4 D,2C83 LCFD®] 583 DATA 4, FS, 21, BE, 62, CD} 96, 52, 52DA L[3FD61 
399 DATA 8938,32,BC,3E,@2,CD,97,6@,3E,3512 L[2B9A1 584 DATA 8,B5,F1,C3,70,58,2N,BE.297A L[34B21 
300 DATA 8940,83,CD,67,68,3E,81,CD,DE,3898 [1892] 585 DATA SE,@1,CD,4F,54,CD,C0,3182 LB1BA] 
401 DATA 8948, BB,2A,25,43,ED,5B,23,45,5191 LAB72I 586 DATA D,B6,52,21,7A,62,CD,86£C9 L1SDEI 
482 DATA 8950,CD,C9,BB,2A,BE,61,3E,84,45@C L1BES] 587 DATA ;2,2A,F8,68,22,82,43,6E4F TLAABBI 
405 DATA 8958,06,88,CD,EB,54,21,C8,00,17A4 L[B7663 5@8 DATA SCAB,SE,03,CD,26,54,2B,22.84.B6Cc L22N41 
484 DATA 8960,11,40,81,CD,C9,BB,SE,B1,1849 L726E1 589 DATA SCAS,43,CD}AD,52,28/@A,FE,AS)0291 LB@DAI 
405 DATA 8768,CD)57,BC,CD}F6,58,CD,@B,6CDi L@Ssel 518 DATA BCB@,CA,CE,52,FE,65,CA,CE,52,52EE [66601 
486 DATA 897@,5A,FE,AD,28,F&,FE,BD, "28,1DDA LFD341 511 DATA SCBB,CC,A2,58,2,84,43), 23,CD,4387 LEBBB] 
407 DATA 8978,74,FE, ab, 28, 70, FE,8A,28,8624 L[AS98] 512 DATA 4 ,7E, 87, scA, ‘CE, ‚52, SE, 1942 LF7EE]I 
408 DATA 8980,47,FE,4F,28,43,FE,09,20,16B2 LAD9AI 513 DATA E@AC2I 
487 DATA B988,E5,24,28,43,22,2E,45,23,783D LCASEI 514 DATA 5,68, FE,82,D8,2A,7002 L[BEEEI 
a1B DATA 8990,23,25,23,22,28,43,2A,2C,1Fs4 L7AFEI 515 DATA D,4F,54,2A,F8,68,78C8 [2AIEI 
411 DATA 8998,45,22,32,43,2B,2B}22,2C,2AEC LF7621 518 DATA "68)22,82.43.CD,26,2BC@ TBEBA] 
412 DATA B9AB,43,CD,F5,59,FE,0D,28.45.8E21 LAACD) 517 DATA ,@1,2B,22,84,43,C3,23D5 I[C64C9 
415 DATA B9AB,FE,@B,28,41,FE,8A,28,04,7552 L&CD6) 518 DATA 'CD,B9,50,11,80.42,54B4 L[CSBAI 
414 DATA B9BB,FE,AC,28,86,FE,99,28,2D,6EC9 LZFFEI 519 DATA \CD,@5,0@,21,5C,@8,184C L@A9B1 
415 DATA 89B8,18,E7,2A,2E,43,22,28,43,3@ES LSF621 528 DATA 2,23,11,5E,80,36,3F.1CDS [89201 
416 DATA 8900,2A,32,43,22,2C,43, 18,A6,135A [5438] 521 DATA 8088,81 \a7,ao, ED, B@,21,4F,42,0A48 L374A] 
417 DATA 89C8,CD,24,4D,2A,BE,61,3E,04,6@8C LFIEZI 522 DATA 8D18,22,65,90,3E,4N,52,67,00,09F&6 LZBIEI 
418 DATA 890@,CD,DE,55,21,34,43,11,28,3916 [43681 523 DATA aDıe,ı @@,2E,11,CD,95,00,1CD&6 LaAsB] 
419 DATA 8908, as, CD,3C, se, 21,3A, 43, 1 12B7A] 524 DATA C8,FS,CD,E7,5F,F1,532B L987A] 
428 DATA B9EB,ZE, a3} ‚co, MICH MM :2E: 1 EFAD2] 525 DATA 5,F5,3E,18,9@0,26,1166 CACACI 
421 DATA B9EB,AB,61,C3,36,4C,21,1 tAS7@1 526 DATA 3F,30,02,26,@C,6F,37DF L6&BA4] 
422 DATA B9F@,22,E4,68,21 137,5E} .2 74a 17284] 527 DATA BB, F1,87,87, 87, 87, 641D L21E8] 
423 DATA 89F8,68,21,EC,5D,22,E1,48,3E,266 LADBEI 528 DATA 1,42,16,00,5F,19,5FD7 [9850] 
424 DATA BABQ, ’a1 co) MH 60,21, 0D,14,1 7ES [D834] 529 DATA 8048,86, EM en M FS, 52, BE,12, CD, 15D1 LEDBA] 
425 DATA BABB, 18,27,CD,66,BB,SE,B8,CD,1FED L@214] 53® DATA 8D5@,@5,20,C1,FE,FF,28,0E,10,1214 [946E1 
426 DATA BA10,67,60,3E,03,CD,67,60/3E,2B7A LCB9B1 531 DATA 8058,D1,F5,21,8E,62,CD}96,52,585A LICC®l 
427 DATA BA18,86,CD,11,68,CD,41,5F,CD,3S7F LDFD6] 532 DATA 8D4,28,C2,F1,18,@F,CD,B6,52,3952 L[BBAgI 
428 DATA BA2@,CE,52,21,49,66,C3.D1,51,72FF LASABI 533 DATA 98,62,CD,E5,52,CD,18,31F2 LD4B6] 
429 DATA 8A28,21,00,04,22,20,45,5€,@1,1251 L&7BCI 534 DATA E.52,11,00, ‚FF,GE CAZFEI 
430 DATA 8AS@,32,22,43,21,48,01,22,23,1993 TASABI 535 DATA E5@B41 
431 DATA 8A38,43,21,C8,80,22,25,43,09,31@B LEC16] 536 DATA tABD6] 
432 DATA B8A40,SE, sFr, MH 88,43,CD,87,5B, I2FF9 [88E8] 537 DATA [4884] 
433 DATA 8A48,24,2@,43,3A,22,43,3D,C@,1666 LASSA] 538 DATA E7D9E] 
434 DATA 8A5@,29,CB,7C,C0,SE,05.CD,43,25FD LEDF@I 539 DATA [44921 
435 DATA BA! AB, 2A,23, 43, @1,48,81,B7,2EED L9578] 548 DATA [7444] 
436 DATA BAsQ,ED, a2) EB,2A,25, ya, ‚ai, C8,792E L[4BB8] 541 DATA 19776] 
437 DATA BASB, ao, B7,ED,42, 3A, 27, 43, 3D, 35B7 TBC9E) 542 DATA [BAB6] 
438 DATA BA7O, 28, Or ,SsD, ’28) 15, ED, 53, = 1877A] 543 DATA E3CBC] 
439 DATA 8A78, 43, ‚CD,F4,5B, 22, 50, a3, 18,893E LIEBE) 544 DATA LAAERI 
448 DATA EI: 18, ED, 53,46,43,22,5A, 143) 3F27 C@814A1 545 DATA [1838] 
441 DATA BABB, 18,87, ED, 53,58,43, 22, sa, 16C2 [C856] 546 DATA [D66E] 
442 DATA 8490, MICH ‚2a, ’BE} 61, MH ‚as, ‚co, 156, SAFC L99EA] 547 DATA [D264] 
443 DATA BA9B, 56, co, 24, aD, co, AF,4D,21,1C7F [292A] 548 DATA 'D,7C,52,CD,BE,S49C L[7F32] 
444 DATA BAAQ, ICH 66, ’c3 ’dı} si, co) Yan} aD, 2805 [B6F4] 547 DATA B,54,CD, B6, 52, @9FA LaF42] 
445 DATA BAAB, 21,49, &6, cs, D1,51, \sa, 18,8598 L9CSA] 558 DATA D,ES,52,CD,AD,1B@7 LAADE] 
446 DATA BABB,69)B7,CB,AF,S2,18,69,CD,@BSF [9014] 551 DATA BDF8,52,28,@B,2A,BE,61,3E,01,2609 [93AB1 
447 DATA BABB, BE) 53, De, C3, EB, 54, 21,D7,SA&D L4S2E) 552 DATA D,BE,53,03.CE,42E4 [1842] 
448 DATA BACQ,46,C3,3E,51,0D,4B,4E/CD,B68S L7F@BI 553 DATA 97,58, 3E,83,03,@8,0D52 [@&BE] 
449 DATA BACB, Li: 53, DB, c3, EB, 54, cD, 4D,B82F [aABB] 554 DATA BE1®@, 53, ZA,BE,61.18,27,2B,81,325B [L&D58] 
458 DATA BADQ, TH ‚co, M-=M ‚53, De, ’c3, 'EB, 54,143E I[BSF6J 555 DATA ESCH 21,88,CD,972 2, SE, 2, CD, 12FB L[C&B2] 
451 DATA BAD, cd, IF, 4E,CD,88,53,D8, c3, sC2F [8758] 556 DATA BE2@, 26, 54} 7E,B7,28,F@, c9, ‚21, @1C3 L&872] 
452 DATA BAEB, vEB, 54} CD, ’SD, se, CD, ME 53, 7DF7 LCB4E] 557 DATA BE28, F2, 22 11,D8 8, SE} @7, co, $DDB LAAFB] 
453 DATA BAEB, DEM C3, EB, 54, ED, E:H 4E, CD,48F9 [A368] 558 DATA 8E3B. 176,5 3A, F3,62,B7, M==M Jar, 22083 [&4CQ] 
454 DATA BAFB,BB, MH D8,C3, jEB, 54,CD,A6, ‚Baca EBBF2)J 559 DATA 8E38,32,F: &2, ‚CD,BE, s3, DB, C3,209F [7208] 
455 DATA BAFB, 4E, ‚CD,88,53, Ds, C3,EB, 54, 143E I[5D14] 568 DATA BE4B,EB, 5 CD,D1,51,CD,4F, ‚si, 7543 LAFDEI 
456 DATA 8B2Q, ’2a, FB, veB, 7E,SC, JER, EI, ‚se, 22AAR L14FA] 561 DATA BE48, SE, B6, ED, 11, &2, 21, FC, 62} @42E L7ABEI 
457 DATA 8588,34, FS, «8, FE, a2, DA, ea, 58,285A I[EEE4] 562 DATA BES@,C3, ’D1, ’s D,2A,F2,68,DD}5BA5 [B6F4] 


563 DATA 8E58,7E,05,32,F1,68,DD,2A,F2,3782 
8,DD,66,83,DD,6E,82,CD,0829 
14,50, DD, 2A,F2, 68, FE,89,@BCS 
566 DATA BE7@,28,48,FE,BA,28,18,FE,QB, 1897 
567 DATA BE7B,28,22,FE,@D,28,4F,AF,CD,@SBF 
1,52,20,D9,18,33,DD,7E,0458 
569 DATA BEBB,@5,DD,BE,@0,28,37,DD,35,222B 
578 DATA 8E90,05,F5,CD,F1,51,F1,3D,CD,288B 

DATA 8E78,F1,51,18,C1,DD}7E,85,DD}6417 
572 DATA SEAQ,BE,Q1,28,25,DD,34,05,F5,3EB7 
573 DATA BEAB,CD,F1,S1,F1,3C,CD,F1,51,5097 
574 DATA SEB@,18,AB,DD,7E,85,CD,4A,52,395A 
575 DATA BEBB,23,23,7E,23,66,@F,CD,84,17A2 
376 DATA BECB.SC,CD, D,Ca,S1, ESräg 31, SArBEAC 

15,C° 


564 DATA 
565 DATA 


568 DATA BEER, 


577 DATA 
578 DATA 
579 DATA 
588 DATA 


589 DATA 
590 DATA 
DATA 
592 DATA 
593 DATA 
594 DATA 
595 DATA 


604 DATA 2,CD,E5,32,&11C 
605 DATA '5,CD,CE,52,F1,4DDS 
606 DATA B,FEJAA,CB,FEISECh 
687 DATA IC, @1,CD, 75, BB,Q8CD 


608 DATA 
609 DATA 


616 DATA #END! 

617 adr=#8000: zeile=104:MEMORY KIFFF 
618 READ d4: IF d#="#ENDER"THEN 629 
r=0 

620 FOR i=1 TO 8 

READ af: a=vAL("K"+as) 

622 POKE adr=adr +1 


1,CD,46C3 
JE7,5F ,2A)F2,68,46,23,4E,607@ 
DATA 8EEB,2C,C5,78,CD,F1,51,C1,84,33DA 
582 DATA BEFB,79,58,20,F5,C9,F5,26,D1,1c01 
583 DATA BEF8,6F,2C,CD,75,BB,F1,4F ‚CD,245F 
584 DATA 8F®0,4A,52,C5,54,5D,26,00,4E ,2EDE 
585 DATA 8F@8,07,13,13,13,13,1A,71,C6,0204 
586 DATA BF10,04,47,AF,D1,7B,B7,28,03,1667 
587 DATA BF1B,BA,20,@D,E5,C5,CD,9C,BB,SE6F 
528 DATA BF20, ‚ch Eich, ‚2a 2 SH ICJBRBJASSE 
8, 


6, FF,C9,2A,F2,741A 
105,96,23, 23,23, 1809 
123,23,46,CB,27,3C,CB,27,1049 
596 DATA BF6B,SC,16,00,5F,19,C9,F5,01,1077 
597 DATA 8F&B, 01,00, 7E,B7,28,07,36,00, 0500 
598 DATA 8F70,21,21,62,18,05,36, FF ,21,142F 
599 DATA 8F78,20,62,ED,BQ,F1,C3,F1,51,1B17 
400 DATA BFaQ,FS,Q1,05,00,7E,B7,28,87,7BDB 

DATA BF8B,36,08,21,25,62, 18,05, 36, 1ESC 
682 DATA BF9O,FF,21,22,62,ED,B@,F1,C3,7129 
603 DATA BF9B,, Ei sSIHESSED,BE, 52,E1,CD, 7947 

EM 


1,28,14,CD,FF,S6C5 
IB, 21,0C,91,C03,0397 
618 DATA BFDR,75,BB,21,0C,01,CD,75,BB,1SCD 

DATA 8FDB,21,65,62,C3,E5,52,E5,CD,QED7 
642 DATA BFEQ,SD,BBJE1,23,7E,B7,20,F&,1FCA 
613 DATA BFEB,C?,ES,CD,9C,BB,E1,CD,EQ,AnB& 
614 DATA BFF@,52,E5,CD,9C,BB,E1,C9,E3,070B 
615 DATA SEFB,CH, ‚7E,CD,SD,BB,C1,E1,25,664D 


623 preprrzu ir Br>6553S THEN prepr-65535 


624 praUnT(pr>x 

625 NEXT i 

626 READ pr&tpr2=VAL ( 
pr Zupr 2165536 


in Zeile";zeile:STOr 
628 zeile=zeile+1:G0TO 618 
629 SAVE"CREATE1.BIN" ‚B,&B000,%1000 
630 PRINT d$:END 


IR asIF pr<® THEN pr=pr+6553 


+pr$)sIF pr2<® THEN 
pr<>pr2 THEN PRINT"Pruefsummenfehler 


Listing 1. Mit diesem Programm erzeugen Sie 


die Binärdatei »CREATE1.BIN« (Schluß) 


LSBC9] 
[DSD81 
[B318] 
TBECQI 
L73221 
[97781 
C42D2] 
L148A] 
EB7DC1 
LBFD&I 
tE138] 
[@B1E] 
LIEAEI 
L832AJ 
E3C4@1 
[86941 
C1634] 
CaaDA] 
EFDFEI 
[47A83 
13488] 
[&7B4] 
189841 
LE9721 
LAE721 
LFIFEI 
[54C8] 
L7CAEI 
L&D6AI 
£D5323 
L842E1 
199481 
L2CBB] 
174941 
ECB18] 
153443 
t46c81 
EB48C9 
£D2121 
L7BB&J 
EDD@&] 
15998) 
L7C88] 
£319C3 
CC1861 
LF@34J 
EC6DAI 
CDBF@I 
ECBECI 
[95383 
L&99A1 
[89441 
£C5521 
LEOCEI 
E184E1 
EFFAAI 
ESFIEI 
[16623 
EF148] 
C2AICI 
CB59C1 


LSEB41 
CAsaRI 


142961 


L6B1EI 
C1E7AI 
EF1761 
[BiFEI 


‘« CREATE2.DAT - DATA-Lader von 


103 ' 


184 DATA 9000,18,F5,C9,C5,77,CD,5D,BB,20CD 
105 DATA 9098,C1,1@,F8,C9,22,72,43,32,777C 
186 DATA 9010,74,43,ED,5B,F8,68,B7,ED,3533 
187 DATA 9018,52,20,97,21,F5,68,BE,CA,244E 

53,3D,3D,28 ;CD2 


118 DATA 9030,FE,02,20,62,2A,F8,68,ED,7F2D 


128 DATA 9028, Fı 
197 DATA 9028,56, 3A,F5,68,Ft 


DATA 9038,5B,72,43,CD,05,54,D2,9: 


112 DATA 9040,53,C3,80,53,2A,72,43,46,0C28 

DATA 9848,C5,CB,FE,CD,80,53,C1,78,47EE 
DATA 9850,06,80,09,22,72,43,32,74,1ABC 
DATA 9058,43,2A,FB,68,3A,F5,68,FE,3QAA 
DATA 9060,02,DA,972,53,CD,CE,54,CB,2503 
DATA 9068,49,28,2B,2A,F8,68,3A,FS,2FAl 
DATA 9070,68,22,FA,68,32,EE,62,CD,2761 
DATA 9878, 97A,53,CD,AB,53,F5,AF ‚32, 4AF® 
DATA 908@,EE,62,F1,09,3E,83,CD,67,7D31 


Neesecon 
SIauerunau 


re E 
"CPC* 


RBRHRHHRRRRBRESRRRRRRSRRESSR 


172281 
c1asaı 


LEA2CI 
EDEB6] 
LEDE21 
137341 
CABAAI 
ED46C1 
EDBFEI 
CD7B41 
ESBACI 
L3D7A3 
CFZFEI 
LBsFE] 
[DaFAI 
EEBECI 
1B7C21 
LA7B21 
Las8A 
LB7FEI 
[34BA] 


121 
122 
123 
124 
125 
126 
127 
128 
129 
138 
131 
132 
133 
134 
135 
136 
137 
138 
139 
148 
141 
142 
143 
144 
145 
146 
147 
148 
149 
158 
151 
152 
153 
154 
155 
156 
157 
158 
159 
168 
161 
162 
163 
164 
165 
166 
167 
168 
169 
178 
171 
172 
173 
174 
175 
176 
177 
178 
179 
188 
181 
182 
183 
184 
185 
186 
187 
188 
189 
198 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
2@1 
202 
203 
204 
285 
206 
287 
228 
207 
218 
211 


212: 


213 
213 
215 
215 
217 
218 
219 
228 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


97088,60,2A,F8,68,3A,F5,68,86,21D2 
729@,@1,FE,02,D4,EB,54,3E,83,34F7 


JBBR,F2,62,B7,28,0D,32,F3,62,74C4 
FOBR,3E,83,CD,67,6@,CD,AA,SF ‚212F 
98C9,18,3C,CD,@C,6@,3E,01,CD, 1957 
9@C8,11,60,3E,03,CD,67,60,CD,1089 
JODR ,AA,SF,CD,41,5F ,2A,BE,61,5C35D 
9@D8,3E,01,06,00,CD,EB,54,3E,1AD2 
BER ,FF,32,F1,62,3E,84,CD,11,&B6B 
FGEB, 6Q, SE ,@8,CD,67,60,CD,CE ,S@BC 
JOFB,52,3E,83,CD,67,60,CD,AA,39BB 
IQFB,SF,SE,86,CD,11,68,2 

9180,68,3A,F5,68,86, 08, Fi 
9188,C9,E5,B7,ED,52,38,@ 
9110, 3E.03,CD,26,54,D1,37,ED,0567 
9118,52,EB,C9,E1,09,23,7E,3C,Q2F4 
9120,28, FB,C9,2B,7E,3C,28,FB,S2FB 
9128,25,07,E5,21,31,54,22,D8,3D34 
9130,68,E1,C3,26,57,EB,CD,1C,16D2 
9138,59,19,C9,E5,21,46,54,22,3D2A 
9140,D8,68,E1,2B,CD,26,57,08,6E06 
9148,23,C9,EB,CD,1C,59,EB,B7,3295 
9150,ED,52,09,E5,21,54, ‚54 122,759 


1,28, 20, 68,69, 23, CD} 78BF 
9180,88,54,2N,76,43,7E ,E6,3F ,5133 
9188, EB,77,23,C9,D5,E5,CD,CA,&4DC 
9190,58,30,03,F1,F1,C9,2A,76,2BFE 
97198,43,35,E1,01,06,@0,CD,92,31C8 
91AQ,59,D1,C9,E5,21,31,54,22,BEF& 
91AB,D8,68,E1,E5,CD,26,57,D1 ,62FF 
91B0,37,28,81,3F ,ED,52,EB,C8,156E 
9188, 42,4B,C3,92,59,E5,21,04,235A 
91C0,54,22,D8,68,E1,03,26,57,3BiF 
F1CB,CB,FE,CB,A1, 20,17» ER BE 18750 
91D8,18,15,E5 


F1F8,GE ‚00, 2A,F8,68,5A,FS,4B,DFEA 
9200 ,FE ,02,D4,B9,54,2A,FA,68, 6D04 
7208, 3A,EE,62,FE,82,D4,B9,54,2746 
921@,CD,EA,57,CD,BC,57,3E,@1,5EFi 
9218,21,1E,55,22,D8,68,E1,C3,19E1 
9220 ,26,57,32,70,45,28,0D,3A,0518 
9228,EF ,62,B7,28,07,7E,EB,CD, 7BBB 
9230, 1C,59,19,C9,3A,ED,68,CB, 1S8F 
9238. 7F,20,02,CB.FE.7E.23.E6.SDDB 
FZAR SR CAN9Av37 78 132,71 195, 30R9 
1134,45, 
5,30,32,70,43, Hi 
"2A, 34,43, 22,2E,43,2A,36,12SE 
9260,43,22,30,43,24,38,43,22,2N24 
9268, 32,43,EB,46,11,28,43,CD, 10AS 
9270,E3,68,E5,CD,09,55,04,E0,7D84 
9278,68, 2A,28,43,22,2E,43,2A,SEB4 
9260,2A,43,22,30,43,2A,2C,43,002B 
9288,22,32,43,21,70,43,35,E1,15F7 
9290 ,20,D9 ,E5,2A,34,43,22,28, 3880 
9298,43,2A,36,43,22,24,43,2A,2BE4 
97240 ,38,45,22,2C,43,CD,C9,55,8AAB 
972A8,C4,EQ,68,E1,23,09,E5,2A,SACC 
9250,34,43,22,28,43,24,36,43,BE9F 


3,09,3A,71,43,6091 
92D0,CB,47,78,32,71,43,00,3A,7B5E 
92D8,F@,62,B7,C8,3A,ED,&8,CB, 7B1F 
92E0,7F ‚09 ,E5,21,00,40,22,34, 1208 
92E8,45,22,36,43,22,38,43,21,2AA7 
92F0,00,C0,22,5R,43,22,50,43,354B 
92F8,22,3E,43,21,01,56,22,DB,153C 
9300 ‚68, E1,03,26,57,4F ‚25,65, 1567 
9308,11,34,43,06,03,1A,96,23,BCFF 
9318,13, 1A,9E,FA, 1A, ‚56, ‚28 IB. 12R5 
9318,7E,12,23,13 


9330,56,2B, 1B,7E,12,2 
9338, 12,23,13,1@0,EB,@l 


9348, 3A,F5,68,CD,4F,53,D2,EB,23EB 
9350,54,03,BE,53,2A,F8,6B, 3A, BA&A 
9358,F5,68,E5,21,61,56,22,D8,7CFC 
9368,68,E1,03,26,57,23,E5,DD, 1563 
9368,E1,F5,CD, 7E,56,DD,23,DD, 52DF 
9378,23,DD,23,DD,23,DD,23,DD,2D87 
9378,23,F1,3D,2@,EC,DD,ES,E1 ,2DSF 
9380,23,C9,FD,E3,FD,21,49,43,359F 
9388,CD,CC,56,CB,C5,DD,CB,88,573SA 
939@,46,20,02,0B,85,E5,FD,21,2197 
9398,4A,43,CD,CC,56,CB,C5,DD,2064B 
9SAB,CB,02,46,20,02,CB,85,E5,6D13 


Listing 2. Mit diesem Programm erzeugen Sie 
die Binärdatei »CREATE2.BIN« 


12968 
180941 
LD7@61 
LASQ&I 
EDE72I 
EBE72] 
E9QFEI 
[57A4] 
cA778] 
[93161 
E75ACI 
ESDBEI 
LESE4] 
CDIEBI 
L44D61 
LBASRI 
EBADBI 
CAD74] 
[81CA] 
L&FFA1 
[6432] 
CASAEI 
Cca4A] 
[SQB8] 
[B&F4] 
c98841 
EC5721 
[31141 
[39881 
CB7BBJ 
EOBEQ] 
147581 
EBDSCH 
LEEIEI 
[36329 
[2576] 
LABBBI 
ESBC29 
104861 
LaD7Al 
139201 
LAF6AI 
EB966] 
ESSCEI 
LEB16] 
EFSACI 
E72F2) 
ECFBEI 
EA6B6] 
[a2an] 
EDF6BI 
TADEBI 
16034] 
EC6D8J 
ECOFZI 
EFF96] 
ED66C9 
CF16AJ 
[Q636] 
ECBCEI 
E294A1 
CAZEGI 
[76623 
cop@21 
E1192] 
LDC281 
[07481 
ESAACI 
E7Facı 
[222E] 
EFESAI 
[235C9 
E70B8] 
LABAB] 
E17181 
EcFic9 
CB31C9 
19234) 
C@B401 
L7335C9 
C2F16] 
EFS7EI 
caF1cı 
ED2161 
ESF7CI 
C151cı 
E342A1 
[&8Aa1 
taA1B] 
L&BA6] 
L999C1 
LEC&21 
[32361 
CBCD21 
LAIFEI 
LSCAEI 
EiFSC9 
149681 
LAF241 
LA36C1 
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221 DATA 93AB,FD,21,54,4; „7D4E 

222 DATA sspa.cs!np/cH.ae er ss: FH Br en 326 DATA 96F@,2A,70,43,09,2E,85,C3,AB,QFBA LBSDEI 
223 DATA 93B8,85,DD,74,05.DD/751@4E17C5 tpeDes 327 DATA 96F8,61,21,AC,5E,22,D5,68,21,2A15S [41701 
224 DATA 93C0,DD,74,@3,DD,75,@2)E1.DD,7CaF ICSFEI S2B DATA SINBSDE-SA,22:DE6B,CD.17,5A,736E EBZCEI 
225 DATA 9308, 74,01,DD,75,08 Erz: 329 DATA 97@8,21,8C,5A,22,DB,68,09,21,3C2B L2FAZI 
226 DATA 93D0.DD!e& See 33@ DATA 9718,DD,48,22,05,68,18,86,21,7E9D L&D721 
227 DATA 93D8,FD5& er 331 DATA 9718,E0,68,22,D5,68,3E,9B,32,698C [A768] 
228 DATA Ban 332 DATA 9720,EA,68,01,06,08,CD,5A,5 LABA2I 
229 DATA ke>ına 333 DATA 9728,CB,7F ‚28,2C,32,73,43,3 LF@BAI 
238 DATA 93F0,92,CD,46,5B,E3,19,EB,C1,395B [32ZCEJ Sr ERS IRB Be 
231 DATA 93F8,E1,ED,4A,E5,D5,DD,66,85,49C5 [9616] SE LEcoe 
232 DATA 9408,DD,6E,@4,CB,85,FD,56,05,7E43 [33041 336 DATA 9748, 5C,5C,E6,FE,52,72,45,0D,0233 18398] 
233 DATA 9408,FD,SE,@4,CD,46,5B,E3,19,67D3 L[77D2] 337 DATA 7749,88,58,5A,72,43,06,80,4F,54AF [E662] 
254 DATA 9410,EB,C1,E1,ED,4A,FD,46,97,561F LAFFZI 338 DATA 9758, 5R.75,35,CD,DA,68,18.C5,02F5 LBIACI 
235 DATA 9418,FD,4E,06,89,FD,46,@8,CB,&B7B LEIF4] A EHER EB SR EIER ES, SA S37E LD7121 
236 DATA 9420, 13,CB,12,CB,15,CB,14,18, zeec L2ASCI 33@ DATA 9760,ER,68,5C,FE,906,28,0B,D6,6738 L9BAB] 
237 DATA 9428,F6,C9,3D,28)19,3D,28,.5DJac5ı razacı 341 DATA 9768,80,28,87,C6,8C,32,EA,68,0194 [FB66J 
238 DATA 9430,3D,28,54.3D.28.28 Lasezı 342 DATA 9778,18,86,32,ER,68,CD,D4,48,04D4 L[DABE] 
239 DATA Leabcı 343 DATA 9778,CD,73,5C,CD,DA,68,E1,C0,4342 ISAE41 
249 DATA L7anaı 344 DATA 9788,44,4D,18,DA,SA,EA,&B,FE,SDB6 [DB12] 
241 DATA Loraaı 345 DATA 152441 
242 DATA Lecenı 34& DATA [DA6E1 
243 DATA 7458, CD,648,57,D1,CD,89,57,D5,7F47 [2288] ale a z 
244 DATA 9440, 7E,B7,20,E3,2B,7E,23,3C.182A [43921 EmalE ESP7B] 
245 DATA 9468, 20,DD,D1,C9,FE,@2,D8,EB,3753 LCFF21 Se .Bele es 
246 DATA 9470,87 ,ED,52,EB,C0,C5,ED.4B,A@B5s L181AJ 35@ DATA 97B8,2A,24,43,89,22,2A,45,CB,1683 LCFSAI 
247 DATA 9478,D8,68,C5,CD,26,54,C1,ED,637F LAFFBJ 351 DATA 9788,57,C8,28,20,43,87,ED,42,1FsC SAERI 
248 DATA 9480,43,D8,48,C1,D1,18,D9.CD,1187 [57921 352 DATA 97C0,22.2A.43.C9.CB,5F,28,07,1885 [@A7al 
249 DATA 9488,89,57,20,FB,C9,7E,FE,FF,SCAS LSFZEI 335 DATA 97C8,24,28,45,99,22,28,45,CB,16@D TE&SCI 
258 DATA 9498,28,@C,CB,7F,CB,BF,CB,B7,@C1S [7@2C1 354 DATA 970@,57,C8,24,28,43,B7,ED,42,1FIC C2ACBI 
251 DATA 9498,CD,D7,68,7E,3C,C8,23,C9,SECF [18243 355 DATA 9708,22,28,45,09,2A,28,43,E6,1E60 [36761 
252 DATA 94AQ,2E,@5,CD,AB,61,3A,F2,62,8706 LSC821 35% DATA 97E0,05,28,05,B7,ED,42,18,01,0501 LB72A] 
253 DATA 94AB,B7,28,8E,32,F3,62,3E,83,5S@F LES7EI 357 DATA LE@CE] 
254 DATA 94B@,CD,67,60,CD,EA,57,C3,BC,78A6 [E2281 338 DATA EFCFEI 
255 DATA 94B8.57.CD.BE,55,D8,C3,EB,54,@E7E [165C) 359 DATA LE4621 
256 DATA 94CQ,2A,BA,61,11,2E,43,CD,E3,378B5 [86081 36@ DATA CAE44] 
257 DATA 94C8,68,11,28,43,CD,ES,68,3A,547E [L11A2] 361 DATA L1D361 
258 DATA 94D0,4F,BB,FE,78,28,8F,SE,FB,1@F8 [18263 362 DATA [74243 
259 DATA 94D8,CD,4C,BD,CD,E®,68,3E,FF,68D3 [DF@CI 365 DATA [7E421 
260 DATA 94EQ,CD,4C,BD,18,83,CD,E@,68,4124 LCACEI 364 DATA tcgaAı 
261 DATA 94E8,01,04,0@,C3,DD,68,2A,BC,@n1® [30881 SPSrDBIR 17658] 
262 DATA 94F0,61,11,28,43,CD,ES,48,91,30C5 [L7CAC] BEBSDSTE, ta7ası 
263 DATA 94F8,02,00,C3,DD,68,CD,FF,57,156D [53F2] SE BaIa L2FBZ] 
264 DATA 95@0,CD,FF,S57, a5: 23 7E»23,1E,57E9 LCIEBI Saar LAsAeı 
265 DATA 9508, BER F, L62EE1 369 DATA £C7A21 
2e& DATA t7escı 378 DATA [79781 
367 DATA EDıraı 371 DATA L436A1 
268 DATA 9520,4E,23,CB,29,1 ECBCCI SEHR c2ca] 
269 DATA 9528,CB,29,1F,CB,29,1F,CB,29,601B [DBECI SEE LASCZ] 
270 DATA 9538, 1F ,CB,29,1F,3C,29,@1,0C.SSFE [SCABI STA DATE EDSE6I 
271 DATA 9558,E6,FE,12,13,79,12,13,C9,AC9F [SD9EI 375 DATA [9A201 
272 DATA 9540,DD,E5,C5,D5,DD,E1,CD,E6,462@ LF2241 376 DATA [38821 
273 DATA 9548,68,E5,DD,66,01,DD,6E,08,1528 taras] S77:DATR 0, 28,09,65,0D,4963 [6FFOl 
274 DATA 9550,CD,2C,5B,DD,74,@1,DD,75,695B LB9EEI SIB:DATA 7,6D,2,09,D5,4B37 LS7EC1 
275 DATA 9558,00,DD,66,05,DD,6E,84,CD,SC45 LE@CAI STIDAER "ED, Bi SBJESJEB,67,2B15 LE7261 
276 DATA 9548,2C,5B,DD,74,05.DD,75,.84,1F92 CAFAEI SaB DATA 3C,CD,B1,98,97,9C,7D,5E71 LEBF41 
277 DATA 9568,E1,C1,DD,E1,C9,ED,AB,ED,5121 168241 Sa1" DATA £3,47,06,00,09,C1,06,03EB [66601 
278 DATA 9570,A0,23,23,13,13,ED,AB,ED,SFI1 [337E3 382 DATA JEBJED,4A,C9}21,08,00,250C ragaB) 
279 DATA 9578,A0,C9,23,23,ED,AQ,ED,AB [8608] 385 DATA @6,00,87,30,85,62,6B,29,118F L[912A] 
280 DATA 9580,13,13,ED.AB/ED.AB.CH.E CADF&I 384 DATA ,17,30,@2,19,88,29,17,30,02AA L[SF14] 
281 DATA 9588) AQJE) 4 LADBAI 395 DATA 98C8,82,19,88,29,17,38,02,19,14B5 LACI8] 
282 DATA 9590,23,13,3E,00,9E,12,23,23,165D LEBBAI en 3:88,27 ,4EED [80761 
285 DATA 9598,23,13,C9,2A,F6,68,2B,2B,@BAD LA7BZI Ser. DaTe 2,19,88,29,17,50,02AA [22201 
284 DATA 95AQ,2B,7E,23,3C,C8,21,01,00,0BE6 [&D78J Shan 88,29,17, 2: 19, BEN 1792 L2ASE] 
285 DATA 95AB,CD,29,57,36,FF,23,09,B7,62D1 CAFF@I 383 DATA he, L7DE21 
286 DATA 95B0,2A,28,43,ED,5B,2E,43,ED,1BBB [6218J Sm DAR L&BBc] 
287 DATA 95B8,52,C0,2A,2A,43,ED,SB,S®, IFCA LCBEBI 371 Data [662A1 
288 DATA 95C0,43,ED,52,C0,2A,2C,43,ED,1DGB LEDEAI 392 DATA 127001 
287 DATA 95C08,5B,32,45,ED,52,C9,CD,DF,2741 [28081 395 DATA, EBarZ1 
29@ DATA 9500,58,38,@7,CD,DF,58,38,@6,29DE L[32CA) S94DATa ESDACı 
291 DATA 95D8,18,09,25,23,13,13,23,23,88A1 [SIEB] 395 DATA L6ER4] 
292 DATA 95E0,13,13,C9,1A,96,4F,23,13,1819 [A6S21 335 DATA 9928,88,CD,67,68,ED,4B,16,43,3F8B LIFACI 
295 DATA 9568, 1A,9E,23,13,28,08,30,37,2EFF IBEBAI 337 DATA 9928,CD,58,BC,21,16,16,CD,3E,7CSC I[BSFCI 
293 DATA 95FQ,CB,3E,08,81,3F,09,3E,F8,84C8 LFFERI 398 DATA 9958,5C,3€,86,CD,11,60,CD,BE,SDBC [8730] 
295 DATA 95F8,81,C9,21,08,80,22,28,43,767B LCFZAI 399. DATA ESDEAI 
296 DATA 9600,22,2A,43,22,2C,43,09,@1,1@3F LSF161 Auen DATA, Ea96E1 
297 DATA 9608,02,0@,CD,29,59,36,B@,23,.1885 LF4F&) ART DRIN TASACı 
298 DATA 9610,36,00,2B,C9,7E,E6,3F,C0,1226 [56801 “02 DATA, LAEB4I 
299 DATA 9618,01,02,00,CD,92,59,BF,C9,0893 [947a1 ARZIDATR. EBE461 
308 DATA 9620,66, 5F,26,88,6F,29,44,4D,7B19 [74681 aBRDAIR LRFAAI 
301 DATA 9628,29,99,23,23,09,22,7@,43,16F3 LB6FEI 493 DATA, 133621 
302 DATA 9630,6D,43,72,43,2A,F6,68,09,6E61 [556A1 A865 ;DATA 170981 
393 DATA 9638,ED,5B,06,00,135,70,93,7C,6@B& LCF7EI sur. DATA 123841 
304 DATA 9640,9A,30,3A,EB,2A,F6,68,ED,4AsS TASDEI BE EDSIN, LF4SB] 
305 DATA 9648,4B,70,43,03,37,ED,42,38,336B LCC2B1 307 DATE) L79EC1 
306 DATA 97650,40,44,4D,03,03,2A,F6,68,39A4 [14361 410 DATA 9998,01,CD,9@,BB,C5,85,BB.CD,2DDF LACIEI 
387 DATA 9658,2B,1P)ED.BB.21.F6,68/06.076& LBasE1 411 DATA 9998,19,ED,CD,19,ED,CD,19/BD,SDAS LECS@] 
398 DATA 9660,86,ED,5B,7@,43,7E,23,93,3715 LSB4EI 412 DATA 99AB,CD,19)BD,CD,17,8D,C3,19,7813 L[E4B2] 
307 DATA 9668,7E,9A,38,00,2B,3A,72,43,1F57 TEA9CI 413 DATA 99AG,ED, 2E,@2,CD,AB,61 ‚ED: DE,SCIB LDB301 
318 DATA 9670,86,77,23,34,73,43,8E,77,5SAFF [3E86] 314 DATA 99BQ,5E,01,9E,00,24,3A,43,09 186861 
311 DATA 9678,23, 1B,EA,EB,C9,SE.@S.CD,BBEB LBEBSI #15 DATA 99BBS,EB,D1, LAA7&] 
312 DATA 9688,67,60,2A,BE,61,3E,81.06,26D4 L7AAC) 416 DATA 99C0,CD,C9,BB,CD,FC,SC,2E,® [59881 
313 DATA 9688,@1,CD,EB,54,2E,81,03,A8,29BA [B84£23 417 DATA 99C8,CD,AB,61, 132521 
314 DATA 9690,61,2E,94,03,A8,61,22,7@,2348 LF2121 418 DATA 99DB,81,2A,SC,43,89,EB,@1,2C,BA7A [11921 
315 DATA 9698,43,ED,43,72,43,09,22,74,178C LF9421 419 DATA 9908,21, ESAFAI 
31& DATA 96AB)43,EB,2A,F&, '68,13,37,ED,12EF [B8E@1 42@ DATA 99EB,CD,FC,SC,2E,84,CD,AB,61,52C5 [B118] 
317 DATA 96AB,52,38,49,44, 4D,03,03,24,.2828 [&42A1 421 DATA 99E8,CD,14,5F,21,9E,00,2A,SA,sCEE [DSFBI 
318 DATA 96B@}74,43,ED,5B, 7@,43,ED,B®,31536 [6696] 422 DATA 99F@,43,09,EB,21,64,8@,ED,4B,3EB1 [8184] 
319 DATA 9658, 21,F6,68,06), @6,ED,SB,7@,2322 IL2CAA1 425 DATA 99F8,3C,45,B7,ED,42,CD,C9,BB,16FD L[D9581 
32@ DATA 94C0)43,7E,AF ‚23.93, 7E/34,38,31BC L6EAAI 424 DATA FA@B,2A,70,45,ED,5B,7A,43,CD,@CCB [@FF2] 
321 DATA 96C8,24,ED,5B,74,43,79,93,7E,27C4 TBCACI 425 DATA 9AQB,74,5B,ES,DS,2A,72,45,ED,SDCs [94E21 
322 DATA 96D8,9A,38,10,C5,ED,4B,72,45,4BBS L[C5BBI #26 DATA 9A10,5B,78,45,CD,74,5B,E3,B7,348D L[S9CE] 
323 DATA 96DB,2B,7E,91,77,23,7E,98,77,1EF7 LBECBI 427 DATA 9A18,ED,52,EB,C1,E1,ED,42,CB,7785 L9F281 
324 DATA 96E0,C1,18,2A,2B,ED,SB,F6,68,62F@ [D4DA] 428 DATA 9A28,12,CB,15,CB,14,CB,12,30,3648 [9778] 
325 DATA 96E8,1B,1B,73,23,72,25,1@,CD,@4E1 [50621 429 DATA 9A28,01,23,22,74,43,24,72,43,0957 L9DFAI 
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9A32,ED,5B,7A,43,CD,74,5B,ES,6CDB 
9A38,D5,2A,7@,435,ED,5B,78,43,4087 
9A42,CD,74,5B,E3,19,EB,C1,E1,7CD7 
9A48,ED,4A,CB,12,CB,15,CB,14,7BCE 
9AS®,CB,12,30,01,23,22,76,43,662F 
9A58,3A,7C,43,1F,38,1D,2A,78,BAQG 
9A6B,A3,CD,F4,5B,22,70,43,2A,@98C 
9A68,74,43,CD,F4,58,22,74,43,3EDB 
9A70,CD,88,5D,2A,74,43,CD,F4,4E42 
9A7B,5B,18,86,CD,88,5D,2A,74,2284 
JABB,43,22,70,43,21,7C,43,35,237B 
9ABB,C2,FC,SC,C9,ED,5B,78,43,5FB7 
9698, 2A,72,43,CD,C@,BB,ED,SB,@8SD 
9A98,74,43,2A,76,43,CD,F&,BB,289B 
JAAB,ED,5B,78,43,2A,72,43,CD,6AAS 
9AAB,FC,SB,CD,F4,5B,D5,E5,CD, 7EAB 
JABQ,C@,BB,ED,5B,74,43,20,76,545E 
9ABB,43,CD,FC,5B,CD,F4,5B,CD,@D35 
JACQ,F6,BB,2A,70,43,D1,CD,C0,5786 
JACB, BB, 2A, 74,43, ED,5B,76,43,5B1B 
9ADB,CD,FC,SB,CD,F6,BB,E1,ED,5A43 
JADB,5B,72,43,CD,C®,BB,2A, 74, 3517C 
9AEB,43,CD,F4,5B,ED,5B,76,43,BFSB 
JAEB,ED,53,72,43,CD,F6,BB,C9,603F 
9AF@,CD,DE,SE,2A,2C,43,ED,5B,398D 


JAFB,28,43,CD,C®,BB,2A,32,43,1437 
9BOR ED, SB,2E,43,CD,F6,BB,CD,65BB 
9608, F9,3E,2A,2C,43,ED,5B,2A, 6DB@ 
9810,43,CD,C0,BB,24,32,43,ED,0085 
9818,5B,38,43,CD,F6,BB,CD,14,21E2 
9B20 ,5F „2A,2A,43,CD,F4,5B,ED,2195 
9828,5B,28,45,CD,C@,BB,2A,3@,27B8 


9830,45,CD,F4,5B,ED,SB,2E,43,@FEB 
9838, C3,F6,BB,ED,43,78,43,CD,4623 
9840 ,DE ‚SE ,2A,2C,43,ED,5B,28,7E32 
9B48,43,ED,4B,7@,43,CD,6E,SE, 15@E 
9858,CD,F9,5E,2A,2C,43,ED,5B,5@4D 
9858, 2A,43,ED,4B,78,43,CD,&E,1FAB 
9B6B,5E,CD,14,5F ,2A,2A,43,CD,1ABS 
9B68,F4,5B,ED,5B,28,43,ED,4B,750D 
9878, 78,43,E5,D5,C5,EB,B7 ,ED,3D57 
9B78,42,EB,CD,C®,BB,EB,89, 89, B80F 
9B8@,EB,CD,F6,BB,C1,D1,E1,B7,5789 
9888, ED,42,CD,C®,BB,29,89,C3,768D 
9B98,F6,BB,2A,2C,45,ED,5B,28,5372 
9B98,43,C3,6E,SE,2A,2C,43,ED,1BEB 
9BAR,5B,28,43,C0,C@,BB,2A,32,27BA 
9BAB,43,ED,SB,2E,43,C3,F6,BB, 1383 
9BEQ,2A,2C,45,ED,5B,28,45,CD,1ABS 
9BB8,C0,BB,2A,2C,45,ED,SB,2E,4874 
9BCB,43,CD,F6,BB,2A,32,43,ED,8643 
98C8,5B,2E,45,CD,F6,BB,2A, 52,278A 
96D8,43,ED,5B,28,43,CD,F6,BB,135B 
9BD8,2A,2C,43,ED,SB,28,43,C3,1A8D 
9BEQ,F6,BB,21,35A,01,11,00,00,52@C 


9BEB,CD,CF,BB,21,CA,@®,11,8E,46CC 
JBF@,@1,CD,D2,BB,21 
JBFB,9E,88,C3,C9, BB 
9C@®,11,42,@1,CD,CF 
9C28,20,11,8E,81,CD 
9C18,2C,91,11,DE,@1 
9C18,21,3A,81,11,0@ 
9C20,BB,21,20,0@,11 
9C28,D2,BB,21,64,0@ 
9C39,C3,C9,BB,21,7F 
9C38,80,CD,CF,BB,21 
9C4B,8E,@1,C3,D2,BB 
9C48,81,C7,08,11,9F 
9C58,68,CD,62,BC,21 
9C58,C7,9@,11,9E,0@ 
9C6B,CD,62,BC,11,0@ 
9C68,91,21,64,00,3A 
9C78,5F,BC,11,00,0@ 
9C78,21,63,8@,3A,EE 
9C88,BC,11,AQ,00,@1 
9C88,62,00,35A,EE,68 
9C90,11,AQ,0@,01,3F 
9C98,90,5A,EE,68,CD 
FCAB,AD,DB,01,3F,@1 
FCAB,SA,EE,68,C3,5F 
9CB®,BD,CD,19,BD,CD. 
9CBB,EE,68,2F ‚47,21 
ICCR,A@,77,23,7C,B5 


21 

a 
@e. 
ED. 
D9 
34 
85 
a3 
ED 
EB 
‚CD 
56 
EB 
E73 
3B 
43 
32 


PETERS ESS ITHI 


E11361 
EIFB6] 
TEBICI 
[36441 
EDB1AI 
LFEBBI 
LF996] 
EC4D41 
L7EF6] 
C82A61 
[8186] 
E3ESAI 
CaaBAı 
L46E21 
ED6EBI 
ECECEI 
LCaF8I 
[B188] 
EBIFAI 
[3686] 
EDAAEI 
LADEEI 
[4528] 
CD7SE] 
[D26C3 
[84821 
[3B761 
EDF2@3 
CE6B6] 
CBFF4] 
[BFEAI 
L32CAI 
[85341 
L99E6] 
CD1881 
E2BEE] 
[33241 
EFF18] 
CBSF6] 
L4F261 
CADBCI 
EFSICI 
[8252] 
ESE1A] 
[9DE6I 
[D8181 
L73FA] 
LAEFCI 
ECEF4I 
L8C26] 
LSSE61 
E191EI] 
CSF1AI 
CBF@BI 
176541 
641521 
CBBACı 
EDSFBI 
CAFES] 
cA1A2I 
L13E81 
189681 
15446] 
L776E1 
[3F62] 
E1D663 
£297C1 
13A7@1 
L695EI 
EBFBCI 
c99801 
CABEA) 
15941 
c@2E2] 
151443 
12C18] 
CBIF6I 
taBıcı 
147123 
CB152] 
CDB12] 
£24CA] 
CAACCI 
tB94E1 
CD7F2I 
L9B5@1 
[D5D21 
[32861 
195143 
L65E4] 
19483 
C3B521 
EDECEI 
La9F@I 
[A494] 
EBAS4] 
[86281 
115881 
[DFCAI 
ECE1AI 
[44781 
L4E1E] 
LF1EB1 
E3AC4] 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


READ 
r=d 


READ 
POKE 


NEXT 


9D78,62,06 ,B@,CB,7F ‚28,01 ,04,3F6E 
9D78,CB,46,28,01,04,E6,03,28,728& 
9D82, 15,F5,CD,57,BC,F1,FE,@2,202A 
9088, 20,01,04,CB,88,84,78,CD,181D 
9D9@,DE,BB,32,EE,68,C9,CB,88,481A 
9098,94, 78,C3,7@,BB,E6,83,47,QB61 
FDAB,SA,1E,43,E6,FC,B@,32,1E,19DA 
FDAB,43,1E,04,E,92,CD, 85,00, 254E 
IDBB,SA,1E,43,E6,03,5F ‚@E,@2,1DFA 
9DB8,CD,25,00,D9,ED,4B,1E,45,6C4B 
9DC@,D9,C9,CD,D1,68,CB,7F,CB,AA6A 
IDC8,CB,47,20,86,CB,AF ‚CB, SE,76EA 
9DD9,9B,C9,3E,8A,C9,CD,9F ,5C,S4BE 
9DDB,CD,DA, 68, 28,F8,C7,CD,66,5B78 
9DEB,61,21,EB,62,47,4E,EE,1@,214C 
9DEB,77,21,EC,62,28,34,2F ‚B1,291F 
9DF@,2F,B7,28,12,FE,10,20,09,3999 
9DFB,SE,Q@, BE, 20,4F ,SE,09,18,884A 
JEOB,63,36,FF,78,18,4A,78,B7 ,2SCF 
JEBB, 28,16, E6,EF 28,14, 3A,E9,823D 
9E19,68,30,28,83,52,E9,68,21,3CB5 
9E18,B8,61,BE,30,2F,78,18,30,5018 
9E20,36,00,3A,B9,61,32,E9,68,15AA 
9E28,CD, 1B,BB,3@,1F,FE,@D,38,7782 
9ESB, 1B,FE,58,28,17,21,EC,62,3A06 
9E38,36,FF,CB,7F ,2@0,BE,FE,60,SAF4 
9E40,38,02,D6,20,FE,28,28,1C,@S6C 
JE48,3E,27,18,18,AF,86,88,09,1A69 
gES@,FE,11,20,04,3E,0A,18,8C,7EE4 
gES8,FE,12,20,04,3E,@B,18,84,7E28 
gE6R,CB,FF,18,EB,21,E7,68,46,557A 
9E68,B7,C9,DD,ES,DD,21,EB,B4,7BSE 
9E78,SA,4F ‚BB,FE,78,28,84 ,DD, 15F5 
9E78,21,35,B6,DD,7E,@9,DD,CB,8475 
9E80,02,6E,28,02,CB,E7,DD,CB,1B15 
9E88, 01 ,46,28,@2,CB,D7,DD,CB, 1855 
9E9B, 00,46, 28,@2,CB,C7,DD,CB, 1895 
9E98,00,56,28,@2,CB,CF,DD,CB,14B5 
JEAD,OB,4E,28,@2,CB,DF,DD,E1,12DF 
JEAB,B7,C9,2E,8@,ED,73,1B,69,62FB 
9EBQ,ED,7B,17,69,26,00,C9,ED,&DBF 
JEBB,7B,1B,69,C9,1E,23,64,43,3A07 
JECQ,SE,AS,6F ‚69, FF ,D97,00,08,3@2C 
JECB, 20,00, 81,26,00,00,00,00,0240 
JEDB,20,20,20,00,7F ‚EB,B8,00,D858 
9EDB,20,20,81,17,00,00,FF,E8,1046 
JEED,00,00,00,00,01,17,00,00,0054 
gEEB,ES,FF ‚38,00, 00,00, 1F ,00,4E7E 
JEFO,00,00,00,00,67,4A,6C,4A, 0282 
JEFB,85,4A,8R,4A,A35,4,A9,4A,40C8 
JFBB,C9,4A,CE„4A,DB,4A,EB,4A,6D82 
FFOB,ET,AA,EF‚AA,F6,AA,FE,AA,7F&E 
JF1Q,0B,4B,13,4B,28,4B,28,4B,11A7 
9F18,35,4B,3D,4B,3D,4B,35,4B, @BBS 
9F20,3D,4B,35,4B,4A,4E,45,49,BDFB 
9F28,4E,41,55,33,20,28,4A,2F ,S9CB 
IFSQ,4E,29,20,3F ‚88,41,60,6C,2B88 
9F38,65,73,2@,6C,6F ‚65, 73,63, 2EE9 
9FAD,68,65,6E ,28,28,4A,2F ‚4E,22F8 


9F48, 27,08, 20,20,28,41,63,68,122A 
9F50,73,65,08,29,4C,69,63,68,21AA 
9F58,74,71,75,65,6C,60,45,9@,2CAA 
9F6B,20,20,20,45,6E ‚64 ,65,20, 1A5A 
IF6B,B0,43,5@,43,2D,47,69,67,1ES1 
9E7@,61 ,2D,43,41,44,28,62,79,35AD 
9F78,20,4D,2E,48,2E ,28,53,70,03A& 


9FBB,65,69,65,68,65,72,8E ‚20, 203C 
9F88,28,4A,2F ,4E,2F ,45,29,20,079E 
IF70,SF ‚00,20,20,20,57,65,67,197F 
9F98,74,65,72,00,20,20,54,61,2C49 
IFAB,73,74 EEE 


9FAB,20,4D,45,6E, 75,65 
9FBB,69,6C,66,73,6B,72,65,69,2643 
9FBB, 73,28, 28,20, 20,28,20,4B,360B 
9FCR,72,65,69,73,60,69,74,74, 2800 
9FCB,65,6C,78,75,6E,6B,74,4B,22AF 
9FDB,72,65,69,73,6C,67 ,6E,69,2821 
9FDB,65,20,20,20,20,20,20,4B,3DOB 
JFEB,72,65,67,73,28,6C,6F „65, 2A5B 
JFEB, 73,65,68,65,6E ‚20,20, 10, 2958 
IFFO,20,00,00,20,20,20,00,00,0000 
IFFB,FF,BOB,FF,FF,88,00,00,00,6F90 
#ENDE* 


adr=%90@0:zeile=184: MEMORY adr-1 


d$: IF d$="#ENDE="THEN 629 


OR i=1 TO 8 


af:a=VAL("E"+a$) 
adr ‚asadr=adr+1 


pr=pr#2: IF pr>65535 THEN pr=pr-65535 
pr=UNT(pr)XOR a:IF pr<® THEN pr=pr+6553 
& 


i 


READ pr$:pr2=VAL("&"+pr$)sIF pr2<@ THEN 


pr2=pr 2465536 


IF pr<>pr2 THEN PRINT"Pruefsummenfehler 


in Zeile";zeile:STOP 


Listing 2. 


zeile=zeile+1:60T0 &18 
SAVE"CREATE2. BIN" ‚B,29000,21208 
PRINT d$:END 


Mit diesem Programm erzeugen Sie 


die Binärdatei »CREATE2.BIN« (Schluß) 


CD8723 
EFESB1 
[38201 
ta78C1 
Lasanı 
LE97AI 
LFIFCI 
68174] 
L77DA] 
E2C1E1 
L916E1 
L7F321 
LaB6A1 
£D4601 
LBEB6I 
ECAC2] 
EFCaCI 
E7BBCI 
EDEC6&I 
L9@B4) 
CEBSCI 
£C878] 
£577C3 
LEBB2] 
E12A6] 
LASSE] 
[13561 
EDE921 
CCAAsI 
[78881 
ECCE6] 
L&D84] 
LBAIEI 
CAFBA] 
L12FEI 
EDACEI 
CBSB4] 
L7Da@1 
110243 
L&c2A] 
168403 
ECABA] 
LBscc 
E51A2] 
[87061 
LE&S41 
LEB9B1 
EBB9EI 
L7B2A] 
ca@12] 
[42161 
E1F92] 
£C77A3 
LESEZ] 
ES6EEI 
L789E1 
[25681 
L639C1 
L97A21 
CBBEAI 
cananı 
E41A6] 
c9D3@1 
182441 
152541 
CBB7@] 
1473A1 
EZEIEI 
138241 
E35808] 
C4C443 
£18721 
E3A761 
[76861 
E1858] 
CESEAI 
[8E78] 
ECDIEI 
[97968] 
CDB4A] 
EDC6CI 
C41D8) 
LEBCEI 
t251C] 
EFFARI 
ESFIEI 
616621 
EF1483 
t2A1Cı 
EB59C9 


LSEB4]J 
CAsBAI 


142961 


L&B1E] 
E1E7AI 
LFS7AJ 
EB1FEI 


67 


a EP PPPPPEUPPERPERPPEPE 


‘* CREATES.DAT — DATA-Lader von 


Me er reen 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


’CPC" = 


AUBD,02,BA,BE,60,27,82,00,00, 1308 
ABQB, 57,46,DE, 43, 3E,55,D8)46,12A2 
AB10,49,41,F0,46,4€,56,22,47)2C8B 
AQ18,57,50,6F,4B,65,5A,DF,4B,3565 
AB20,6B,45,BA,4D,74,44,B9}4E)34DC 
AQ28, 7C, 53,D1 ‚50,85, 28,45, 20, 51E2 
ABS®,52,20,53,20,54,20,45,2@,2BEA 
ABSB,AC, Ei E! a 45, 28, AE,5B,27EF 

2 3,63, 366D 
2 55,65,21D7 


N 6 ,5D,20,56,65,2061 
AQ68, 72,66, 6F ,72,6D,65,6E,3B,283B 
AB70,50,5D,20,46 ,6F /72,6D}2D}3D67 
AQ78,50,61,72,61,6D,65, 74,65, 3A61 
ABBO,72,5B,5A,5D,20,5A,6F ‚ar ,2189 
ABGB, 6D, 65, 66, 5B,45,5D} 20} 45,249 
AQ90,64,69,74,69,65,72,65,6E,2214 
AB98,5B,44,5D, 20,44, 69,73, 6B, 3629 
ABAU,65,74,74,65, SB '53/5D, 20, 245€ 
ABAB,SS,6F ,6E,73 


ABOCQ,45,44,55,B7,45,4E,50/B3/3153 
ABCB,45,5C,AC, 7E,45,6A,52,@E,S8CA 
ABDD,46,7A,4B,27,46,8A,20,20,36E8 
AQDB, 20,46, 28, 4C,20,41,20,45, 0141 
ABEO,20,43,20,48,20,45,5B,4D,@GAF 
AQEB,5D,28,4D,69,74,74,65,6C,2B&& 
AUF@,70,75,6E,6B,74,5B,41,9D,2C23 
ABF8,20,41,6E,66,61,6E,67)73,09ED 
A198, 70,75,6E,6B,74,5B,55,5D,2C0B 
A1Q8, 20,55, 6E ,73,69,63,68}74,@DDa 
A118,62,61,72,5B,50,50,20,50,2154 
A118,75,6E,6B, 74, 20,66,69)78,2B12 
A120,69,65,72,65,6E,5B,4C,5D,2707 
A128, 20,50,75,6E,&B,74,20,6C,BEE4 


Aızı 

75D,20,52,65,73,7. 
A149,62,6N,65,6B,74,20,28,45,22A5 
A148,49,4E,27,55,4B,5D, 20,48, 344 
A159,69,60,66,73,6B,72,65,69)2643 
A158, 73, 20,20, 20, 20,20,20,02, 3642 
A168,05,BE,60,15,22,00,08, 1F ‚205F 
A16B,48,FE,46,2F,56,83,47,3D,1SBF 
A170,54,08,47,49,4C,0D,47)57,26FD 
A178, 20,20,20,20,20,41,20,3,1E07 
A180, 20,48,20,53,20,45,5B,48,03DA 
A188, 50, 20,48,6F ‚72,67, 7A,6F,2BDF 
A19Q,6E,74,61,60,2D,41,63.68)2@22 
A198, 73, 65,5B,56,5D, 28,56, 65,2C61 
A1AQ,72,74,69,6B,61,6C,2D,41,2D33 
A1AB, 63,68, 73,65,5B,54}5D, 
A1BQ,54,69,65,66,55,6E,2D,41,380B 
5: 373,65, 5B,4C,5D, 28, 2@C2 
AICD,41,63,68,73,45,20,40,6F ,SI6F 
AIC8, 65, 73,63,68,65,6E,02,@8,263C 
A1DQ,2B,47,21,05,20,08,30,41,0011 
A1DS, 51,47,48, 4A, 6C, 48,50) 4C,374C 
AIEQ, 7F,48,5E,52,85,48,66)53,26F7 
ALEB,BF,4B, 6E,44,97,48,74,56,3956 
AIF®,AS,48,88,56,20,45,20,52,56E6 
A1FB, 20,46, 20, AF, 2, = ER 4D,8135 
A200, 20,55, 20,4 
A208,5D,20,41,7 
A210,68,72,65, 61 


A240, 5B,52,5D,20,52,6F ‚74,69, 330D 
A248, 65,72,65,6E,5B,53,5D,28,274E 
A250,53,63,68,49,65,62,65,6E,38D4 
A258, 5B,44,5D, 20,44, 65,68) 6E,362A 
A260 65, 6E,5B,56,50,20,56, e5.25A1 
A268,72,67,72,6F,65, 75:25" 
A270,72,6E,02,09)BE 
N u, vadı 33,41, 7° 


‘83,4C, 

a B,AS,5A,57C8 
A298, C2,4B,B3,20,50,20,41,28,65@2 
AZAQ,52,20,41,20,40,20,45,20,2962 
AZAB, 54, 20,45, 20,52,5B,41,50,2BBS 
AZBQ,20,41,75,73,67,61,6E,67,8BD7 
AZBB, 73, 66, 6C,2E, 20,28) 28, 4E)2EFE 
A2C0,29,5B,45,5D,20,45,6E,64,BF9C 
A2CR, 66,60, 61,45,63, 68,65, 20, 2022 
A2D@,20,20,28,4A,29,5B,56,5D,1975 
A2D8, 20,56, 65,72,62,69, 6E,64,QC0C 
AZEB,65,6E, 20, Sn ,20,20,28 


A308, 69,6E,64,65,6E, 28, 28,4E,263E 
AS10,29,5B,4C,5D,20,2E,58,2@,8F28 
A318,76,65,72,62,69,6E,64,65,287D 
A320, 6E,28,28,4E,29,5B,4E,9D,3E8S 
A329, 20, 4,65, 75,&5,73,20,4D,8499 
AS30,61}6B}72,6F ‚28,20, 28)4E,234E 


172281 
£735C3 


LEA2CI 
EDEB&] 
COBBAI 
£67721 
L9ASBI 
Lac9E] 
LEAC6I 
11518] 
EFFDEI 
1286C3 
ECD2A3 
£C5481 
CBEACI 
£C1781 
CB4321 
£589C9 
L9E763 
C1D261 
LaFBAI 
LEAB6I 
CCB16] 
L1B4A] 
LEAAAI 
EDESCI 
c1208] 
{8868 
E7F42] 
E16DAJ 
EF1S5AJ 
LEICAI 
120341 
E7DBEI 
(75843 
C&BBEI 
128883 
CA14Al 
EDCEAI 
15556] 
EDE&2I 
[1664] 
[8666] 
LaA341 
£BD221 
102881 
Ec9481 
16998] 
EDE123 
LE&B2] 
119641 
LACAG] 
LACDCI 
LAaDCI 
1D9321 
[78581 
L9DLEI 
[3554] 
[8Q6A3 
£D27AJ 
120541 
E3F4AI 
E21ACI 
154741 
L1EBBI 
[B696] 
[13381 
c51101 
19386] 
LAFS6] 
CDIF2J 
L1ESCI 
c48723 
EBE&6] 
EFFIEI 
1578A1 
158563 
14374) 
L&D58J 
160721 
19454] 
13442] 
1592C3 
L85D61 
CB3401 
LC7A&I 
ccaaaı 
LA7BEI 
EB6E6I 
C5D4AJ 
12756] 
EDBBAI 
LD69CJ 
147243 
[5A54J 
T@46E1 
[C558] 
E3F741 
[80763 
ESAASI 
CASB6I 
£1D683 
130421 
ED14A] 
EA&B6] 
LEBSEI 
170481 


387 
318 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


adr=wABOg:zeil 


READ 
pr=@ 


AS38,27,5B,5A,5D,20,57,69,645,@C3B 
AS40,64,65,72,88,6F ,6C)75,6E321CC 
A348,67, 34,20, 31,20,02),07) BE, Bad 
ASS5B,60,1D,82,00,80,28,AC,F5,37CD 
A358, 4B,32,52,FC,4B, 3D,55,03,2E85 
A360,AC,48,4F ‚24,4D,57 ,4E ,A1,SCA9 
A368, 4D,63,47,3C,4D}6E} 20,20), 36D0 
A370,20,20,54,20,4F ,28,4F,20,1306 
A378, 4D, 28,45, 20, 4E,5B} 4C} 1 

A388, 20,AC,69,6E,6) 
A388, 62,65, 6E,5B}5 


8,4D,56,746C 
ASF@,B1,D4,4D,66,8 DE1aD, ‚75,7007 
ASFB, 94,Cı 
AABR, 20,4 


‚20,4D,2049 
F\SB,53,68,F2,2146 
;D,2@ ‚ze: 72,73,74,65,73,2FF1 
12@,4D,61,6B,72,6F,5B,53,0B17 
A480,68,F3,5D,20,40,65)74,74,0306 
A488, 74,65, 73,20,4D}61,6B}72,2C68 
A490, 6F ,02,08,BE,60,21,03.00,3E62 
A498, 0@,2E,41,BF,4E,3E,42,D7,@ABB 
ASAD,4E,AA,43,ED,AE,55,44,00,3098 
ASAB,AF,SE,45,82,4F ,69,46,CD,331D 
ASBQ,4F ‚75,47 ‚EE,4F ,84,20,20,3008 
ABB, 44, 20,49, 20,553, 20),4B, 20, 230€ 
AACD,45,20,54,20,54,20,45,5B,2@F1 
A4C8,41,5D,20,4F 62, 6A} 65,4B} 3529 
A4D0,74,20,73,70,65,69,63.68,3942 
A4D8, 65, 72,6E,5B,42,5D}20,4F,251B 
AAEB}62,6A,65,6B,74,20,6C.61,2209 
A4EB, 64,65, 6E,5B,43,5D} 20,40, 2051 
AF@,61,6B,72,6F ,28,6C,61,64,22E6 
A4FB,65,6E,5B,44,5D,28,44,69) 2449 
ASOB,72,65,63,74,6F ,72,79,5B,2979 
AS5@8,45,5D,20,45,69,6E ,7A,65,37F1 
AS1Q,4C,2D}53,61,76,65,5B,46,33E4 
A518, 5D,28,4D, 2E,20,73,70,65,2D89 
AS2B,69,63,68,65,72,6E,5B,47,2509 
A528,5D,28,4D,2E,20,61,75,66,2DC8 
A530, 20,44,69,73,6B,65}74,74,0740 
A538, 65,22,07,B 


,20,33,20,4F,20,4E,3642 
AS6B,20,53,20,54,20,49,20,47,05A3 
A568, 20,45, 20,53,5B, 55,50} 20,034& 
AS70,55,6E,73,69,63,68,74,62,3BC2 
A578, 61,72,20,28,41,55,53,29,2953 
AS80,5B,4C,5D, 20,41 ,40,60,45,3425 
ASB8, 73, 20,6C,6F,65,73,63,68)38BA 
A590 ,65, 6E ,5B,4E,5D,20,4E,65,2411 
A598, 75,65, 73,20,4D,61}6B}72,2CE8 
ASAG}6F ,5B,5A,5D,20,41,6C,4C,2F60 
ASAB, 65,73,20,65,69,4E, Ei 4D, Ka 


=104: MEMORY adr-1 
ds: IF d4="#ENDEX"THEN 309 


FOR i=1 TO 8 


READ 
POKE 


asza=vAL( 
adr ‚aradr- 


"+a8) 
adr+i 


pr=pr*2: IF pr>65535 THEN pr=pr-65535 


pr=UNT (pr) XOR F pr<® THEN pr=pr+6553 
Nexr 3 
READ pr$:pr2=VAL("&"+pr#)sIF pr2<@ THEN 


pr 2=pr 2465536 


IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
in Zeile" 


eile:STOP 


zeile=zeile+1:G0T0 298 


SAVE"CREATES. BIN" 


„B,LADDD ‚608 


PRINT d$:END 
Listing 3. Mit diesem Programm erzeugen Sie 
die Binärdatei »CREATE3.BIN« 


LaS7E] 
CB8921 
L8C5@1 
[58381 
c4988] 
EZEAEI 
[69681 
ESFECI 
£899C1 
LFAFBI 
[6E6B1 
L392AJ 
EDFABI 
CBOGEI 
CE1BBI 
[4874] 
CA3703 
19536] 
LESCOI 
CAS7a] 
14768] 
L7FABDI 
EB6DC) 
EBEECI 
C15D41 
[538A1 
E4BCB1 
CEDD2] 
E5A64] 
CDB341 
EB21EI 
EBBCAI 
E114@1 
L&ESCH 
LD9241 
C9B481 
caapcı 
L39@AJ 
683741 
EFAACI 
ED8881 
L2C&&3 
E9ESEI 
LAB281 
ES9CAI 
C649A1 
EB8D4]J 
LAFBCI 
ESp1C9 
c31BA1 
TECB6] 
LaDIEI 
EF7AI 
L1Ag] 
E12741 
LFE741 
177961 
LAC4EI 
ESE78I 
CAF621 
[94661 
CED7@1 
E3C861 
C65021 
Lac52] 
EDE9AIJ 
[8546] 
C653AJ 
[6734] 
L63D61 
L78141 
L156C3 
CABFCI 
ESE&EI 
[B6841 
CB87C1 
LAQTEI 
623C83 
C2BB4] 
LAFBEI 
LBF6BI 
CEEB2] 
E7A7AI 
car123 
ECAFAI 
LESaB] 
EDDS61 
EFD&21 
EC9743 
CC8D61 
[51341 
L79A81 
16326) 
[29581 
CB7361 
CE3121 
CAE921 


LS3AAI 
[310801 


LBAacı 


615141 
LAS78] 
193201 
LA6F41 


68 WWW.HOMECOMPUTE! 


108 
11B 
120 
138 
180 
158 
168 
170 
188 
190 
200 
218 
228 


EEE na a ELLE EEG 
CREATE. BIN-Umwand. in CREATE.CMD= 
UNKRUEKEERKEEEEERREEREEEEREEEE Eee 


MEMORY_&IFFF 
LOAD"CREATE1.BIN" ‚LEQBO 
LOAD"CREATE2. BIN" ‚9080 
LOAD"CREATES. BIN" ‚LAQ®O 
OPENODUT "CREATE. CMD" 
FOR i=&9000 TO &As0D 
PRINT #9 „CHR$ (PEEK(I) 
NEXT i 

CLOSEOUT 


LA2841 
E1868]1 
C1AB81 
EDFB&J 
CAEBAI 
[67401 
CACA&I1 
ECB5AI 
CaDFAI 
[786A] 
[54661 
[34F6] 
193441 


Listing 4. Diese Routine macht aus den Binärdateien 
»CREATE1.BIN«, »CREATE2.BIN« und »CREATE3.BIN« 
das Programm »CREATE.CMD« 


BE ee 
= FILM.BAS — Umwand.in FILM.COM 
ren 


MEMORY &7FFF 
LOAD"FILM. BIN" ‚28008 
OPENOUT "FILM. COM" 

FOR i=LB00@ TO &8208 
PRINT #7 ,CHR$(PEEK (12335 
NEXT i 

CLOSEOUT 


CA2841 
[58981 
LLABBI 
EDFB61 
CAEBAI 
EDBC&] 
L78F41 
L994C1 
c98741 
ESC@41 
©1348] 


Listing 6. Ein paar Anweisungen, und schon wird aus 
»FILM.BIN« »FILM.COM« 


RRRRRRRRRERERERSRR 


‘* FILM.DAT - DATA-Lader von 


"CPC' * 


ee ee ee rer 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATI 

DAT, 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


8000,00,00,00,08,CD,18,01,21,862B 


8920,67,00,3C,32,67,00,3A,B1,34DD 
8028,02, 3C,32,B1,@2,FE,15,20,B8BE 
8050 ,EA,C9,ES,21,68,00, 11,69, 5AFB 
8038,00,01,17,00,36,@0,ED,B8,827A 
8049, 11,5C,00,2E OF ,CD,85,20, 1026 
8048, E1,3C,C8,86, 10,05, E5,EB, 6455 
8050,0E,1A,CD,85,08,11,5C,08, 188C 
8858, 8E,14,CD,85,@@,E1,11,8@,18D6 
8268,08,19,C1.18, ‚EB, 11,E0,Fi 

8068, 19,3E,FF,B7,C9,3 
8870,CD,F3,81,E5,3A, ‚nz: 
8878,87,92,E1,CD,A2,@ 
8080, BB,30,1 
8088,02, CD,51,02,CD,0@,82,21,3E@D 
8090,B5,02,CB,7E,28,07,21,B4,456A 
8078,02, CB, 76,20,E1,CD,C2,@1,5AB7 
S0AB, 18,CB,CD,99,02,06,48,11,2E77 
80A8, 7A,C2,C5,81,1C,80,ED,B®,64BA 
SGBD,EB,B1,E4,07,09,30,04,01,69B1 
808, 50, C0,89,EB,C1,1@,EB,C3,18CD 
80C8,90,02,21,B3,02,5A,B1,02,4608 
80C8,47,3A,B4,02,4F ,7E,CB,41,39F7 
8008,28,11,88,28,02,34, 23 EB, ‚8459 
80D8,79,28,@5,21,B4,02 


BBEB,CB, 77,28, 
SOF@,C9,78,C9,11 
80F8,82,47,18,01,17,18,FD,C9,124B 
8100, 3A,B5,@2,D6,F@,D8,FE,@8,3874 
8108,D0,87,21,A1,02,16,88,5F ,47E7 
8118, 19,7E,23,66,6F ,E9,3A,B2,111A 
8118,82, 3D,C8,32,B2,82,09,3A, 1050 
8120,B2,82,3C,FE,1E,C8,32,B2,52E6 
8128,02,C9,21,B4,02,CB,86,CB, SEDB 
8138, BE,C9,21,B4,@2,CB,C6,CB, sBSB 
8138, BE,C9,3E,82,32,B2,82,21 ,69DD 
8148, ‚Ba ‚22, EB Be, c2 21, ‚Ba ‚22: "AF26 
22, 


8170,C3,32,BC, 1E,04,8E,82,CD, 7BBi 
8178,85,08, 1E,82,0E,82,CD,05,0887 
8180, 00,D9,01,86,7F ,D9,C9,FS,SFFB 
8188,CD, 19,BD,F1,3D,2@,F8,C9,7821 
8198,F3,D9,CB,99,ED,49,D9,FB,5835 
8198,C9,F3,D9,CB,D7,ED,47,D9,4AE7 
81AB,C9,16,@2,1F,@2,2A,@2,32,sQ3E 
81A8,82,3A,@2,45,02,4B,82,4B,B@AES 
81B0,02,28,@2,@1,21,CA, 56: CB, ‚8337 
81B8,BE,C9, ES @2,32,B2,82 
81C0,B4,82 


S1EB,CA,S8,BC,FE,49,28,08,FE,712E 
B1EB,68,CB,3E,B1,03,32,BC,AF ‚8807 
S1F@,C3,32,BC,1E,84,0E,82,CD,7BBi 
81F8, 05,80, 1E,82,@E,82,CD,@5,2887 
#ENDE* 


adr=&BQRG: zeile=1B4:MEMORY LIFFF 


READ 
pr=® 


d$sı IF d 


*ENDE*"THEN 181 


FOR i=1 TO 8 


READ 
POKE 


a$:a=VAL ("&"+a$) 
adr ‚aradr=adr+1 


pr=pr#2:1F pr>65535 THEN pr=pr-65535 
pr=UNT(pr)XOR a:IF pr<@ THEN pr=pr+6553 
& 


NEXT 
ED 


i 
Ppr$spr2=VAL( 


IF prespr2 THEN PRINT"Pruefsummenfehler 


in Zeil 


L722C1 
CA8DEI 
[DC3@1 
EDEB&]J 
C@BA2] 
673041 
C8B34] 
CAF&4] 
[82281 
[2E38] 
[2B7E1 
L41E6] 
[36261 
[89943 
CDC343 
EDC36] 
c11583 
E3E9AI 
CSABAI 
[2296] 
1349C3 
[QBS6] 
CBFS@] 
CAAFAI 
183743 
LACC6] 
C10283 
taDc8J 
CACFBI 
EDaCAI 
(31441 
£D12C3 
C7a3A1 
EFA64] 
tacsc) 
[5058] 
183961 
LAF2AJ 
c8D723 
195341 
167921 
LAZBCI 
C16CEI 
E1C88] 
C8A741 
EFIFCI 
[63E6] 
17498] 
[SBE2] 
LBFFEI 
C9FABI 
E3F@8] 
CA1DAaJ 
[84061 
Ca11E] 
[3366] 
C8C243 
ESFSEI 
[FB28] 
[E@BA] 
C&CBE] 
EBC16] 
[7CaB] 
EDSAAI 
EFSFCI 
L9DBBI 
Ca9CCı 
EDF34] 
CAFD2] 
£D3521 
[948E1 
[58181 
[3166] 
[E244] 
[B9283 
TasAB] 


LASBSIJ 
tZ1aE1 


L2B9AJ 


LE7221 
[a35E1 
LBE9B] 
195821 


ern 


= PAINT1.DAT — DATA-Lader von 
EPePPI Free Fee rT 


DATA 


DATA 88 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"CPC' * 
ee Fr 


8@00,BC,19,01,88,C3,D8,7D,28,5DE2 
'08,11,20,47,69,67,61,2D,43, 0055 
891@,41,44,2D,5@,61,69,6E,74,3324 
8218, 2@,20,1A,1A,1A,1A,18,@B,1A65 
8020,20,20,86,7F ,02,80,00,00,1738 
8028, 00,20,20, 20,20, BD, 20,020, Dana 
8052,20,20,20,02,20,20,20,20, 0008 
8038,00, 08, 00,08, 00, ee, gm, 20, 0000 
Bea 00,00, 00 ,Da,Fr ‚Ir ‚a 


2868, E3,FF,@0,00,00,00, 1F,@@,4E7E 
8070,08, ‚ao, MH 00 ,00,00,00,00, 0000 
8278, 00,20, 00, 20,00, 20, 20,20, vaun 
8080, 00,20,00,01,00,20.00,00,0010 
8088, 00,00,20,20,20,00,00,00, 0008 
8090,804,1B,4C,7F ,02,08,05,0A,0AAB 
8098,0D,1B,33,801,05,04,@0D,1B,0631 
B0AB,33,835,05,04,0D,1B,33,07,1925 
80A8,05,0A,0D0,1B,353,02,05,04,0180 
ee 1B,06A1 


8@D8,A2,91,AB,71,D1,E1,D5,ED,6D7B 
80E8,73,9C,7E,7C,B5,28,03,31,OFBF 
SBEB,F®,9E,29,11,D8,7D, 17, 7E,5CBB 
BOFB, 23,66, 6F ‚CD)FS,7D,C3,72,0E98 
SaF8, 92,E5,D9,ED,4B, 1E,7D,D9,67B3 
8180,C9,21,A1,93,CD,F7,7F CD, 7457 
8108,75, 7F ,CD,@3,BB,21,E1,92,38DC 
811@,CD,BE,8@,29,EC,C3,AB,71,5EAB 
8118,21,28,94,C3,69,7F,21,D2,0414 
8120,92, 11,7F ,93,C3,3D,85,21 ,4057 
BIDB Da, 72,11 1EBLSS ICH  SDJESNASER 


8148,96,CD,F®,85,21,DB,96, 
8158,CD,38,81,C1,18,EF,21,CC, 7502 
8158,96, 35, 20,E6,CD,B3,91,CD,496B 
8168,69,91,CD,F6,88,21,A1,93,07D5 
8168,C3,F7,7F ,21,D5,92,11,D8,55A2 
817@,96,CD,3D,85,CD,61,87,CD,719F 
8178,7C,8A,21,7F,93,CD,89,87,1869 
8188,CD,69,85,C3,29,@1,21,D5,68C3 
8188,92, 11,D8,76,CD,3D,85,CD,577B 
8198,77,91,21,8B,93,CD,F@,85,1299 
8198,CD,87,85,21, EIER 


9, 21,A1,93, 1695 
81C8,C3,F7,7F,21,98,93,11,F&,57E8 
81C8,94,3E,82,C3,84,80,21,97,4F7B 
8108,93, 11,0E,95,3E,83,03,8R,45AD 
8108,80,21,74,73,11,24,99,3E,333C 
B1E8,94,C3,A4,88,21,98,93,11,2C13 
S1E8,3C,75,3E,05,03,A4,80,21,3977 
B1F@,9C,73,11,56,95,3E,96,03,691F 
81F8,8A,88,21,9D,73,11,6E,95,6065 
B2B0,3E,87, ‚c3 ‚eB, N ‚2i, :9F ,93, 0529 


‚DE,88,2E,1A,A4E6 
8238,CD,74,92,18,12,CD,DE,BQ,sADB 
8238,2€,1B,CD,74,92,18,88,CD,@BaD 
824@,DE,88,2E,1F ,CD,74,92,C3,4D6F 
8248,F6,8@,AF,32,71,7D,CD,DE,4EFB 
8250,88,2E,1C,CD,74,92,CD,F6,4454 


Listing 7. »PAINT1.BIN« ist wichtig 


C31D41 
EZAEBI 
CASDBI 
EDEB&J 
C3F6R1 
L25F@] 
CC7ECI 
EBB22] 
CAD7E] 
EDA24] 
16786] 
EDA1B] 
CAFB2] 
LACIEI 
C2BB8] 
ESAcAl 
c9D181 
EcE4AI 
C9FLEI 
[6230] 
[69161 
EC6241 
£C8221 
caD141 
Lasr4) 
£7C061 
[55461 
ECAIEI 
EF988] 
E3E4A] 
ESFEAI 
£38121 
[B7BAI 
13200] 
E12D6] 
6692C1 
L&scA) 
CE4BE] 
[3918] 
CC716] 
[36383 
tEDBB] 
[&F88] 
L3C88] 
[5784] 
L6SCQ1 
cac721 
C25BC] 
C345C9 
ED9BA1 
CagE2] 
[7196] 
CAS423 
EFSC2] 
L4B68] 
L735E] 
L2F46] 
[74341 
£D77C1 
LASCAI 
CacaBı 
[67981 
187623 
[A244] 
EF836] 
EC476] 
L727E1 
LESBEI 
c9968J 
E3B46] 
166221 
ECATEI 
1A924] 
L87C21 
CEIC6I 
ECSBAI 
CSDF@I 
EBC2AI 
La9B21 


= Listing 5. Damit erzeugen 


»FILM.BIN« 


69 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


8258,80,2A,71,7D,7D,B7,08,22,43F6& 
8260,24,96,3E,86,C3,17,80,21,3745 
8268, 26,96,[3,69, 7F,CD}F7,7F}272D 
8270,CD,75,7F ,21,A1,93,C3,F7,7085 
8278, 7F ‚DD, 2A,BE,96,DD,7E,@5,@15D 
8280,32,BD,96,DD,2A,BE}96,DD}2B89 
8288, 46, 93,DD, 6E,@2,CD,48}91,2DAS 
8290,DD,2A,BE,96,FE,89)28,40)7D64 
8298, FE, BA, 28, 1Q,FE,0B} 28} 22, 7E2E 
82AQ,FE ‚0D,28,4F ‚4F ‚CD,59,80,7CCE 
82A8, 20,09, 18,33,DD, 7E,@5,DD,21B7 
82B0,BE,90,28,39,DD,35,85,F5,5F53 
82B8,CD, 17,8@,F1,3D,CD} 17,88, 7E22 
82C8, 18,C1,DD,7E,85,DD,BE,@1,2221 
828, 28,23,DD, 34,05,F5,CD, 17,8651 
82D8,8@,F1,3C,CD,17,88,18,AB}7533 
82D8, DD} 7E,@! 2,80, 23,23, 7C85 
B2E®, 76 ,23,66,6F ‚CD,48,91,CD,3B57 
82E8, FO, 7F,C3, 7; 


14,79 ,B8,83F2 
1,6F,CB,3A11 
1,AF,CD,OISF 
16,00, 4E ‚D&SE 
A,91,C6,0284 
7,28,03, 1667 
D,9C,BB,SE6F 
0, C3,9C,BB, AS2F 
8,91,C8,47,70D5 
Are 2 195A 


ae 
8330,09,13,13,13, 
8338, 04,47, AF ‚D1,7, 
8340, BA, 20, @D,ES,C: 
8348, C1,E1,CD,4 


Be 


8390,01 ,00,7E,B7,2ı 
8398, 21,CB, 92,1 


83A8, F5, 81,83, 00, 7E,B7,28)@7,7BDB 
83B0,36,90,21,CF ,92,18,05,36,171C 
8SB8, FF, 21,CC,92,ED,BB}F1,C3,63E9 
83C0, 17,80,E5,CD,DE‚8@,E1/CD)SEOF 
83C8,@D,81,21,D8,92,CD,@D,81}285F 
8300, CD,D5,80)FS,ci 
83D8,C7,CD, 18, BB}Fi 
B3E0,6A,C9,21,11,0 
83E8, CD, 9C,BB, 01,20, 1 
8SFo, Bein ‚cr ‚2 Dans ai a. 


D,88,4AGE- 
52 N sEBB 


8418,81,E5,CD,7C,BB,E 
Ber scH, "78: EB ‚SD, ‚DB, j: 


1,60, 7D,CD,84,82,11,59FD 
8448, 80, 20,CD, 1E,85,11,58,82,141E 
8470,ED,53,BA,96,11,B0}7D,CD,7EIF 
8478,84,82,11,8@,18,CD) 1E,85,23ED 
8480,10,D8,3E,40,32,C3,96,11,3E61 
8488, 68, 82,ED,53,BA,96,11,A4,@B1E 
8490, 7D,C3,04,82,21,79,82,22,872A 
8498, BA, 96, 3E, 7F ‚32,03, 96,86, 7BB6 
B4AB, 1C,21,00,C0,11,B0,7D,CD,@BSF 
84A8, 04,82, 


84C8, 21,28,C0,11,92,7D,CD,® 
8400, 82,11,00,08,CD, 1E,85, 51 
B4D8,7F,32,C3,76,@6,1B, 11, 9E,22E0 
84E0,7D,CD,94,82,11,00,38,CD,0555 
84ER, 1E,85, 10, F2,3E,7C,32,03,2307 
84F0,96,11,9E,7D,CD,84,82,11,5C3D 
B4F8, 00,38, CD, 1E,85,3E,68)32, 1262 
8500,C3,96,11,98,7D,C3,04/B2,4FCE 
8508, E5,C5,D5,CD} SE,82,CD} 14,57C6 
8510,82,E1,CD,AS,82,C1 ,E1,C9.ACCF 
8518,21, 1C,9C, 11, 7F,02,7E,B7)@6AB 
8520,20,87,23,1B,7A,B3,20,F6,15BA 
8528,C9,21,8C,7D,CD,A3,82,21,7F51 
8538, 1C,9C, 11,7F,@2,D5,7E,CD}2FAS 
8558, B1,82,D1,23, 1B,7A,B3}20,6Q6& 
8540, F4,C9,CD,E6,91,11,1C,9C,5BEB 
8548, 86, 50,C5,E5,D5,CD,B9}96,@588 
8550,D1,CD,25,85,E1,23,C1,10,5126 
8558, F1,C3,DD, 91,86,83,11,78,5A9E 
8562, 7D,7E,12,13,CD,98,82,18,274C 
8568, F8,C3,97,82,86,85}11,7@,5646E 
8578, 7D,CD,97,82,7E,12,13,CD.1453 
8579, 98,82, 10,F8,C9,06,87}11,674F 
8580,70, 7D.CD,97,82,1@,FB/C9}S2FF 
8588, 86,87, 11,70, 7D,7E,12}13,@507 
8598,D5,11,@0,10,CD,1E,85,D1,688B 
8598, 18,F3,C9,7E,12,13,D5,11,2B67 
BS5AQ,Q0,08,CD, 1E,85,D1,09,46,1CFB 
8548, 24,05,C8, 23, 7E,C5,CD}Bi,19BF 
85B0,82,C1,1@,F7,C9,E5,CD,2B,785D 


[7ARA4I 
LEBFCI 
L12E6] 
[9184] 
15218] 
[CDBAI 
[B1B6] 
LABEB] 
LA9CCI 
[8ESCI 
LEICCI 
[B3981 
1@9C23 
CAsBBI 
L7A823 
[4898] 
[SFBA] 
[BEEsI 
L[FS28] 
tEIFAI 
LBSAcı 
[A564] 
[OFCAI 
[6052] 
16786) 
L61Dc] 
tac38] 
£11C@3 
L254C1 
[DS2E3 
LB1FA] 
1C9761 
TAA62] 
[DE26) 
LABaCı 
t1SFa] 
t5@2C1 
[FD74] 
[756E] 
CF3D4] 
B5821 
C2Dac3 
LZAB6I 
[C618] 
190221 
15112] 
LAFAAI 
TE48A] 
[69883 
[2498] 
L99DE1 
CDCBAJ 
LF694]J 
[72AEI 
LBFF@] 
LECSCI 
[31481 
LiBFA] 
LAABAI 
13798] 
[D8988] 
[7EB@] 
L6sra] 
Lıcaal 
18082] 
[DE7EI 
ECC36] 
EB6BZI 
L615E] 
[6E38] 
L4QB6] 
[BA18] 
LFFA2] 
CA27A1 
C6F6EI 
tDASB1 
LDD943 
[Q@&BR] 
EBATE] 
17274] 
EFBBEI 
[7F64] 
tacaBı 
LEEA4] 
EBASC1 
19398] 
LöFFA]J 
L[C9FEI 
LAAFAI 
[3054] 
TEBBCI 
£2CD4] 
LAE46] 
L[SAF4] 
[61AE] 
[CD46] 
£D786] 
17B76] 
TSA4EI 
£ca9C3 
[9168] 
ED3DCI 
18A22] 
[F866]1 
[966061 
£[B9C21 
EBSEB] 
L12F4]J 


85B8,BD,E1,D8,18,F8,21,90,49,7B44 
85C8,22,CC,7D,21,00,C0,22,CE,2C3A 
85C8,7D,21,CE,82,22,B1,96,C3,251B 
8509,80, 84,DD,66,03,DD,6E,02,7F72 
858, 54, CC, 7D, 95, 3A, CD, 7D}9C, 2472 
8SEB,FAJE2,82,22)CC,7D,3A/CE,SacE 
8568, 7D,95,3A,CF ‚70, 3C,F@,22, 1024 
8SF@,CE,7D,C9,DD,2A,86,92,CD,6E11 
85F8, 14,83, DD, 21,44, 7D,CD}52,317C 
860@,83,DD,21,58,7D,CD,52,83,771B 
8608, DD, 21,54, 7D,CD, 52,83, 216057 
8610, 14,83,22,B1,96,C3,88,84/23AB 
8618,DD,66,81,DD, #E,08, CD} 42,7858 
8620,83,DD,74,@1,DD,75,00,DD}7FBi 
8628, 46, 83,DD, 6E,02,CD,42)83) 2DA3 
8650,DD,74,03,DD,75,@2,DD,66,7CaC 
8638,05, DD, 4 ,04,CD, 42,83} DD} SEFB 
8640, 74,@5,DD,75,04,C9,11,82,2414 
8648, 5A, CB, 45,F5,CD}A8,98,CB}1D13 
8658,85, F1,C8,CB,C5,C9,DD}66,4FAQ 
8658,01 ,DD,6E, 0} 11,82,5A}CD})S8F? 
8660,A8,98,DD, 74,01 ,DD,75,00)4F7& 
8668,09, 22,79, 7D, 21,71,83,22)6438 
8670,B1 ,96,C3,80,84)2A}7070,6975 
8678, DD,56,03,DD, SE ‚02, CB} 2A} 75F4 
868@,CB, 1B,CB,2A,CB,1B)CB/2A,7FOB 
8688, CB, 1B,B7,ED, 52,22) 72, 7D,79F1 
8698, 2A,70,7D,DD,56,01,DD,5E,0928 
8698, 00, CB,83,CD, Ag, 90,42, 4B} 29BF 
B6AQ ‚ED, SB, 72,7D,CD,FS,8F,DD}&DB7 
B6AB, 7E,@@,E6, 81 ,CB,81}B1}DD}2655 
8650, 70,81 ,DD,77,00,2A,70,7D,24A5 
868, DD, 56,85, DD} 5E,84, CB} 83} 7585 
86C0,CD,AB,9@,42,4B,ED,SB,72,5BaB 
86C8, 7D,CD}FS,aF,DD} 78,85, DD} ICAF 
86D0,71,04,C9,21/D8,83,22/B1,2489 
8608, 76,C3,80,84/FD,ES}FD}21,6627 
8660,48, 7D,CD,26,84,CB)CS}DD}22DB 
86E8, CB, 20,46, 20,02, CB,85,E5,4093 
B6F@,FD,21,4A,7D)CD,26,84CB}7F63 
B6FB, = 2 CB, ve: Er 20, van) Es EFF 


EN He 
8758, 66,85, DD, 6E,@4,CB,85, FD} 2DFB 
8760,56,85,FD,SE ‚24 ,0D,7A,90,3378 
8768, E3, 197, EB,C1,E1,ED, AA/FD} 6265 
8770,46,87,FD,4E ‚06,09 )FD,46,3828 
8778,88,CB, 13,CB,12,CB, 15,CB}SBAD 
8780,14, 10,F6,C9,CD,E6,91,DD}185F 
8788, 24,88, 92, 18, 16,F5,CD, BO} 260E 
8790,36, DD,23,DD,23,DD}23,DD,7707 
8798, 23, DD, 23, DD} 23,F1}3D} 20, 2DF& 
87A@,EC,DD,23,DD,7E,20,DD,23,4n99 
87AB,FE,FF,28,F7,E6,3F,20,DD}4DE1 
87B8,C3,DD,71,23,C9,DD,21,@0}4SAE 
8788,01 ,21,88,40,DD, 7E, 08,66, 0834 
87C0,3F ,C8,DD,56,87 ,DD,SE ‚06, 30B6 
87C8, 7D,93,7C, 9A, FA,CC,B4,EB} 1963 
E5,CD,FS,84,E1,18,65,06,5184 
FF, 18,03,CD,F5,84,DD} 7E,714C 
'@8,CB,27,C8,38,F5,06, 00,588 
‚2A, ca, 96, 7D, DD, 96, a6, 7C,36D8 
87F0,DD,9E,97,FA,D7,84,C6,01,4365 
87F8,C7,DD, 7E,@@,CD, FF ‚84)EB}5877 


8890,DD,19,C9,E6,3F,87,87/26,7DAC 
8808, 00, &F ,54,50,29) 29,19, 11, 155F 
BB1B, 0. 9,09,3A,2B,96,04,0CE6 
8818,01 ,D6,04,D9,86,02,C8,06, 59AE 
8820,04,C9,19,D0,11,50,C0,19,3E31 
8828,C9,BE,08,21,70,70,06,07,666F 
8850,CB,26,17,23,10,FA,47\SA)6FOC 


12, 13,00, 20,EB,3127 
!DE,8@,2E, 1D,45@1 
1F6,80,21,71,6093 
77 ,E1,11,74,3054 
120, 05,01 ,05, 2405 
71,7D,D1,01,208F 
8,09, 21,6C,93,1627 
AY5B,87,21,00,ACE6 
1,CD,76,86,21,07CD 
0,00,01,07,00,12EA 


8888, ED, B8,C9,21,60,93,CD}DA,A1BC 
8890,86, CA,SB,87,21,00,01,91,739B 
8898,00, 82,03, 96,86, 3A, 7F} 7D, 15DB 
8B8AB,SD,C8,21,7F,93,C3,A4,85,2909 
88AB,CD,C0,86,CA 


en 87,21, Ei aasa 


EBAAAI 
CD7BBJ 
E7@REI 
LBCBB] 
E8CS8] 
[20361 
EDSF21 
CADSEI 
E&5Bal 
LF@BAI 
E53B6] 
CA32C3 
CODC4] 
LıaaB] 
£3D981 
C6ABAI] 
EBAQ2I 
CD2141 
EI7FCI 
LEB161 
146441 
LOF9B] 
EDDiE 
CB256] 
EBSE@) 
L922E] 
L6FD6I 
16294) 
E6ECCI 
[9378] 
ECDAEI 
L6E621 
[97E4] 
CSQE21 
L736A] 
L2F421 
L&DCEI 
[4516] 
ECAABI 
c9C1@1 
ED41A] 
EDBABI 
E17A61 
L6Sscc9 
CE6S@] 
E38B4J 
E46D61 
C13B61 
L9DB6] 
CADD6] 
LEDB&I 
L&D32] 
L9F26I 
C717E1 
EC812] 
CF7821 
E16E8] 
EF7DCI 
C70683 
L&9DCI 
E54CAl 
cC4241 
£D67@] 
LAacRı] 
CABS41 
L32E61 
ED132] 
EF9BCIH 
CSF2EI 
E14841 
LEIFAI 
c95E41 
EC26A] 
LEFD2I 
620321 
193523 
ED4621 
CAB26&] 
E7A621 
LE69B) 
CE154) 
LAIF@I 
EF792] 
CBDB61 
ECD441 
L7784]1 
154861 
L&6EB] 
672509 
123E8] 
[76121 
EC6461 
EB1AEI 
[91989 
120021 
L6176] 
12402] 
C67081 
L9F421 
CaDBAI 
L9BAEI 
LBSFEI 
63284] 
LA9DBI 
E17CC9 
c43D21 
ECB96] 
LaDsA3 


70: www.HOMSCOMPUTE 


395 DATA 8918,E4,87,17,38,94,11,58,C0,73E4 
396 DATA 8928,19,C1,1@,EC,C3,3B,87,0D,3737 
397 DATA 8928,DA,86,08,86,48,21,9A,C2,56D2 
398 DATA 8958,C5,01,1C,08,CD,76,86,11,646D 
399 DATA 8938,E4,87,19,38,84,11,58,[B,73E4 
400 DATA 8948,19,C1,18,EC,C3,4E,87,CD,S6E3 
481 DATA 8948,C0,86,C08,21,88,00,81,98,5992 
402 DATA 8958,4@,CD,63,86,C3,3B,87,CD,1877 
403 DATA 8958,DA,86,C8,21,88,C0,81,88,5492 
404 DATA 8768,48,CD,76,86,[03,4E,87,CD,@F8S 
405 DATA 8768,E6,91,3A,C0,96,16,7C,5F ,S84F 
406 DATA 8970,ED,AQ,CB,78,20,19,E3,05,403B 
407 DATA 8978,CD,DD,91,11,5C,88,@E,15,4819 
4B8 DATA 8988,CD,825,29,87,02,58,87,CD,sABF 
497 DATA 8988,E6,71,C1,E1,11,88,7C,78,4378 
418 DATA 8790,B1,20,DD,7B,32,C0,96,C3,4FEF 
411 DATA 8798,DD,71,EB,3A,C8, 76,26, 7C,5@68 
412 DATA S9AB,6F.CB,7D,28,13,D5,C5,11,BAB7 
413 DATA 89AB)SC,@Q, BE, 14,CD,95,88,B7,284B 
414 DATA 8960,C2,5B,87,C1,D1,21,88,7C,6C48 
415 DATA 87BR,ED,AB,78,B1,20,E3,7D,32,58D4 
416 DATA 89C0,C0,96,EB,C9,CD,EB,B6, 3,5886 
417 DATA 89C8,88,32,C8,96,11,5C,28,BE,5C1& 
418 DATA 89D8,13,CD,05,08,11,50,08,BE,3B96 
419 DATA 8908, 16,CD,05,@0,3C,C9,CD,EB,3B55 
420 DATA 89EB,86,AF,32,C0,96,11,5C,8@,66CC 
421 DATA 87E8,QE,@F ,‚CD,85,8@,3C,C9,7E,1C2C 
422 DATA 89F0,D6,0F,28,17,11,5C,@@,CD,6D85 
423 DATA 89F8,2B,87,11,88,7C,@E,1A,CD,SD41 
424 DATA BABQ,25,08,11,05,0@,@E,25,CD,@@2F 
425 DATA 8AQ8,05,00,C9,E1,C7,EB,21,87,1B1F 
426 DATA 8A10,00,19,3E,24,06,03,BE,C0,024@ 
427 DATA BA18,23,1@,FB,EB,11,5C,88,CD,@565 
#25 DATA BR2BL2B.B7 LI SEC BE SBESLSSCD.SSTE 


429 DATA 8A28,05,00,00,00,00 2@0,c#9 
438 DATA BASB,0C,@@,ED,Bi B,13 
431 DATA 8A38,00,01,17,80,ED,B8,C9 
432 DATA 8N40,C0,96,FE,80,28,0C,11 
433 DATA ana, ao, ae, 15,CD,85,80,B7 
434 DATA BASO, ’SB, ’87, 11,5C BE,18 
435 DATA ;B,87 
436 DATA 3E,82 
437 DATA 1,7, 
438 DATA 3,87, 
439 DATA 12,28,1A,B6A2 
440 DATA 'C,EF ‚82, 089C 


„SA,2B, 
DATA BABB,DD,21, 
442 DATA 8A90,09,DD, 
443 DATA 8A98,99,85, 
444 DATA BAAB,0B,32, 
445 DATA BAAB,BS, 21,86, 
446 DATA BABQ@,8C,22,B4,9 
447 DATA BABB,81,8C,B 
448 DATA BACQ,22,B7,96,C 
449 DATA BACB,CD,74,92,C9,3A,C9,7D,E6,67B8 
450 DATA BAD@,FE,28,27,21,64,90,81,00,70D2 
451 DATA BADB,BG,ED,SB,C 

452 DATA BAER,2A,CE,7D,C 
453 DATA BAEB,00,08,CB,SC 
454 DATA BAF@,CB,1D,CB 
455 DATA 
456 DATA 
457 DATA 8BQB,FD, 21,00 
458 DATA BB1Q,FD,22,C. 
459 DATA 8B18,23,3C,2 
460 DATA 8B20,77,00,C, 


7 ,8B,CD,SA6F 
D6,83,CE,6F1® 
BA,7D,7C,1FSE 


A,B8,92,6652 
22)C4,96,71AE 


461 DATA 8B28,98,3C,C \5B,C6,5AB4 
462 DATA 8B30,96,19,1 ED,52,47D4 
463 DATA 8B38,D2,32,8A ,CD} 12,7398 
464 DATA BBAQ,BD,FD,2 »77,81,774B 
465 DATA 8B48,FD, 74,8 ‚FD, 72,6EC® 
466 DATA 8850,03, FD, 7. N 

467 DATA 8B58,17,FD,22 ß 

468 DATA BB6B,7E,EA,SF , 

469 DATA 8B68,21,86,00 ‚26,08, 

470 DATA 8B78,ES,ED,Bo e) 


471 DATA 8B78,E1,3D,2 
472 DATA 
473 DATA 
478 DATA 


er 
SISIHNSITESNMELREFTSERER; 


475 DATA 46,FA,43D2 
476 DATA D,7E,2B2C 
477 DATA 115,FD,2147 
478 DATA »1E,14,FD,598D 
479 DATA 14, FD, 72,08, 267@ 
480 DATA SBCA,FD,77,14,FD,23,1D,2@,EF ,6FD3 
481 DATA BBC8,18,05,11,14,0@,FD,19,1@,BDF& 
482 DATA BBD®,DS,C1,12,CD,DD,2A,C4,96,534E 


483 DATA BBDB,FD,E1,C3,0C,88,11,88,88,5R74 
484 DATA 8BEB,DD,17,C3,28,88,3A,28,7D,74A5 
485 DATA BBES,FS,2A,2C,7D,ED,5B,32,7D,744D 
486 DATA EBF@,7D,93,7C,9A,F2,FE,B8,21,1939 
487 DATA 8BF8,28,7D,11,2E,7D,86,86,CD,@8B1 
488 DATA ECBB,16,71,2A,2C,7D,CD,CE,87,2989 
489 DATA BCBB,FD,74,@1,FD,75,@8,E5,2A,6E38 
438 DATA BC10,32,7D,CD,CE,87,D1,B7,ED,158F 
491 DATA 8C18,52,FD,74,83,FD,75,82,2A,1EE2 
492 DATA 8C20,28,7D,CD,BS,89,FD,74,87,1EES 
493 DATA 8028,FD,75,06,FD,36,85,28,FD,6D89 
494 DATA 8C30,36,84,D2,E5,2A,2E,7D,CD,1SaF 
495 DATA 8C38,B5,87,D1,B7,ED,52,81,8@,4FB2 
496 DATA 8C40,00,FD,56,03,FD,5E,22,7A,335E 
497 DATA 8C48,B3,20,0A,FD,36,03,4@,FD,SEDi 
498 DATA BCSB,36,82,21,18,83,CD,C2,8F,1887 
499 DATA 8C58,FD,74,@B,FD,75,@A,FD,78,6F3A 
500 DATA 8C60,29,FD,71,28,2A,2A,7D,SE,345C 
5@1 DATA 8C68,FB,CD,SB,8F,ES,FD,74,8F ,456B 
502 DATA 8C70,FD,75,@E,FD,36,@D,00,FD,6CA9 


[SB1EI 
TIEAEI 
LAZAEI 
TBEsAI 
1972AJ 
LSABBI 
LAABBI 
1B788J 
17128] 
LFiB&J 
{78883 
EC&CEI 
L2F7AJ 
CC4DEI 
EFA78] 
CE2DAI 
£27C41 
[9SBCI 
L657E1 
13898] 
C19CCI 
(03221 
[4B56] 
[F@56] 
L1CB6] 
[5F94] 
LBIFZI 
EDDIEI 
[SBBEI 
LAAFCI 
[6588] 
LAFIAI 
19796] 
CA758] 
EF7A2I 
CA954] 
c215A1 
67192] 
158781 
615743 
129841 
c497@1 
£7&B2] 
EFCA2I 
tB28C1 
CA1B4] 
[64F8] 
[E322] 
LADCEI 
CF186J 
18878) 
159423 
LFEB2] 
ECECAI 
13242) 
1642] 
£F716] 
CABF2J 
[63 
[F9723 
[88E4) 
[83E21 
LASACı 
[86881 
£15D8] 
CAADCI 
[375€] 
C&B98] 
L6FA4J 
[B480] 
LF7@@] 
[CD781 
L6QF4) 
C2DA41 
CaAs@] 
CBBSB] 
E326E] 
LAFERI 
L441C) 
LC2E8I 
CC85@1 
C1A46] 
CAEFAI 
LEBBBI 
EBEACI 
[E428) 
198641 
[95123 
ESCBEI 
[38DEI 
t@13E1 
LAgFEI 
L&DD81 
ECCDAI 
[SBDAI 
£2C343 
LIEBE] 
179881 
TABEBI 
c@DB8] 
ESCCAI 
EBEBCI 
cSADsı 
[c35A1 
[0546] 
CIBAEI 
C&85A1 
ED31C3 


525 DATA 8C78,36,8C,00,2A,38,7D,3E,FB,1AS3 
584 DATA SC88,CD,SB,8F ,D1,B7,ED,52,81,7219 
5@5 DATA 8C88,08,88,FD,56,85,FD,SE,02,1972 
52& DATA 8C9@,CB,B2,CD,C2,8F,FD,74,13,5BF7 
587 DATA 8C98,FD,75,12,FD,7@,11,FD,71,6C1F 
SB DATA SCAB,18,F1,CB,47,34,9B,73,28,2BE2 
527 DATA ECAB,@3,3A,7A,73,B7,28,84,FD,189D 
51® DATA SCBB,CB,@S,FE,11,14,80,FD,19,7ADS 
511 DATA 8CB8,C9,CB,2C,CB,1D,21,88,14,5F88 
512 DATA 8CC8,89,CB,2C,CB,1D,CB,2C,CB,3027 
513 DATA SCC8, 1D,CB,2C,CB, 1D,CB,2C0,CB,3627 
513 DATA SCDB,1D,C7,CB,2C,CB,1D,44,4D,2189 
515 DATA 8CD8,21,88,8C,B7,ED,42,SA,CF ,SCAB 
51& DATA BCEB,76,D6,86,2F ‚47 ,CB,2C,CB,7D37 
517 DATA ECEB, 1D,18,FA,C9,DD,ES,E1,46,1DAB 
518 DATA SCF@,@E,B8,11,06,80,19,3A,C8,8578 
519 DATA ECF8,96,96,3A,09,96,23,7E,FA,6QAA 
52@ DATA 8099,24,8A,23,5E,23,36,7A,E6,3152 
521 DATA 8D88,3F,B3,28,16,1B,72,2B,73,3615 
522 DATA 8D1@,23,23,FD,74,01,FD,75,00,82B& 
523 DATA 8D18,2B,FD,23,FD,23,8C,CB,69,21A7 
524 DATA 8029,28,0E,11,11,89,19,10,CE,103A 
525 DATA 8D28,79,B7,C0,DD,CB,88,FE,C9,OSFD 
526 DATA 8D39,21,46,93,03,64,92,21,51,1E2B 
527 DATA 8D38,93,C3,64,92,C5,FD,ES,FD,788B 
528 DATA 8D49,66,81,FD,6E,80,23,23,5E,2A94 
529 DATA 8D48,23,56,2B,2B,2B,ES,FD, 23,0@C5 
53@ DATA 8D5@,FD,23,FD,66,@1,FD,6E,80,6CAB 
531 DATA 8058,E5,23,23,7E,23,66,6F ,93,790D 
532 DATA 8D68,7C,9A,F2,71,8A,E1,FD,74,078A 
533 DATA 8D68,FF,FD,75,FE,E1,FD,74,01,4595 
534 DATA 8D78,FD,75,20,18,03,EB,E1,F1,68C7 
535 DATA 8078, 18,D3,FD,E1,C1,18,BD,C9,2ABB 
536 DATA 8D88,3A,7F,7D,32,CC,76,18,42,0ABA 
537 DATA 8088,CD,90,91,CD,19,BD,21,7F,5E71 
538 DATA 8D90,93,CD,C0,85,DD,2A,86,92,5D4E 
539 DATA 8D98,3A,98,93,B7,C4,D8,83,3A,266C 
548 DATA 8DAB,99,93,B7,C4,CF ,83,0D,99,7797 
541 DATA 8DAB,85,2A,CQ,7 
542 DATA 8DBB,19,22,C0,71 
543 DATA 8DB8,5B,C6,7D,1 
544 DATA B8DC9,C8,7D,ED,Si 
545 DATA 8DC8,C8,7D,CD,D® 


553 DATA SEB8,96,11,C8,08 


554 DATA BE1B,EB,22,CA,9 
555 DATA SE18,D8,96,CD,Ei 
556 DATA BE28,34,C1,10,Ct 


DATA BE48,64,8B,CD,F' 
562 DATA 8ES0,2@,DC,2A,Cı 


om 


D 
ED,52,55AC 
CE,96,2CCA 
1,34,45D0 


= 
rT-7 


= 5 
a 


EJeWET-TST HETSERET TRR 1er; Fer tefehlgtRTer Te 


'3,FD,72EB 
159,44 ,2C16 
1,83,CD,161F 


SF@B,CQ,CB,7A,28,F: 
585 DATA 8F@8,7B,D6,88,7A,DE 
7i 


595 DATA 8F58,5E,8C,21,85,02,EB,19,EB,QBaS 
596 DATA BF6B, ‘28, 19,1A,86,12, 23, 13,1A,18C8 
597 DATA BF&8,8E,12,23,13,1A,BE,12,23,443F 
598 DATA 8F70,13,1A, !sE} 12, ’c9, 2 
597 DATA 8F78,3A,C@, 7D,96,23,3 „7D, 
&2® DATA BFB@,9E,F8,C3,B6,96,D5,EB,29,641B 
&81 DATA 8F88,11, de: 97, 19,ED, SB, ‚32, 7D, 1AED 
682 DATA 8F98,7B, MT 23, 7A,9E,FA,A1,8C,1D16& 
683 DATA 8F98,72, 2B, 73, 21, ic, °C, Di, ECH 3C9B 
624 DATA BFAB,SA,CE,76,77,C9,D. 9121} SFBF 
685 DATA SFA8,1C,9C,19,3A,CE,9% BE, D8,2C04 
686 DATA BFBB »77,C9,24,C4,7D,22,1C 7,B830F 
1,1C,97,11,1E,97,81,FE,0628 


Listing 7. »PAINT1.BIN« (Fortsetzung) 


LASIEI 
EFDDCI 
LA77CI 
LAFaRı 
L&CF8l 
ECACEI 
E2DC81 
E1BCCH 
EBCESI 
C384E] 
LAASEI 
EFD1B1 
196281 
EDı1a1 
[91481 
CAB421 
L671A1 
LOBAAI 
153541 
[8658] 
ECDF2] 
[46041 
CB54A] 
LEES2I 
CEF121 
[77763 
LE6B6EI 
EBEEBI 
LD&BA] 
LF@F43 
13836] 
ESCB6] 
tES141 
LOABEI 
E19081 
LE7BAI 
ECBE2] 
LBBBAI 
EF11C9 
EBOE4I 
ESCD8] 
C1030) 
C1D5@1 
139241 
£57CA1 
CBCE21 
[26541 
t28AB1 
EDF@BI 
C11241 
[98829 
CB6EBI 
LEF2CI 
1339A1 
EBAAAI 
EF9D6] 
L49181 
18754] 
caaDal 
CAF921 
[79943 
coABAı 
EF9D&I 
[SEBE] 
[9164] 
c872C1 
[576A] 
L7D@41 
ECE18] 
CCAB21 
EDDF4J 
C1154] 
[4712] 
[87761 
E3AA4I 
LEACEI 
L409C1 
Lc1A21 
E36B8] 
LADD®] 
EAAaAI 
COBS61 
EBIF@I 
LOBFEI 
E16BE] 
L979E1 
EC3@21 
L2CD81 
LAFSAI 
LOEJEI 
LABEAI 
EB49AJ 
[81c01 
[B24C3 
180781 
EBF7@I 
£C92@1 
LBF@6] 
LECECI 
LE7F@I 
ED@BR] 
LAS1EI 
[56221 
L5ACA1 
ESE7CI 


Aw MoMEcomeuTE 


al 


628 DATA SFCQ,@4,ED,BB,21,1C,9C,11,1D,2FFF L[BSB41 
687 DATA SFcB, °C, B1,7F, 82,36, FF, ED, BB,42A& L[&DBEI 
618 DATA 8FD®,C9,CD, JE&S 91,29,7D, JE&, F@,4398 L7BFCI 
611 DATA 8FD8,54,5F, 70, &B, 29, 29, 19, E6,35E8 LE2DE] 
#12 DATA BFEB,BE,17,17,16,08,5F, M 7% ca, ‚2110 L[5C54] 
613 DATA BFEB,B4, 67, ES, 21,8A 2, 19, 11,5B4B [8AB®] 
614 DATA 8FF@,1C,9C, as) MH JES, E,ES,| M==H }2BES Ei2FA] 
615 DATA 8FFB,96,08, es, 1A, 3C,28, as, BE,1iDF4 Li1E6] 
616 DATA #ENDE* LEBCEI 
617 adr=%8088:zeile=184:MEMORY &7FFF L184E] 
618 READ d$: IF d$="#ENDE*"THEN 629 EFFAAJ 
619 pr=@ ESFiEI 
628 FOR i=1 TO 8 [1662] 
621 READ a =VAL("E"+a$) EF148] 
622 POKE adr ‚a:adr=adr+1 L2AIC] 
623 pr=pr*2:1F pr>45535 THEN pr=pr-65535 EB59C1 
624 ERS TIP IKOR a:IF pr<ß THEN pr=pr+6553 
E[SEB4] 
625 NExT i TASBAI 
624 READ pr$:pr2=VAL("&"+pr$): IF pr2<® THEN 
pr2=pr2+65536 [42961 
627 IF BeSSEe THEN PRINT"Pruefsummenfehler 
in Zeile";zeile:STOP L6B1E] 
628 zeile=zeile+1:60T0 618 L1E7A] 
629 SAVE"PAINT1.BIN" ,‚B,28090, 21208 [922861 
638 PRINT d$:END [SıFEl 
Listing 7. »PAINT1.BIN« (Schluß) 
120 rss [L31D4]J 
181 ‘* PAINT2.DAT - DATA-Lader von °CPC’ * L17EAI 
182 Ha  LASDBI 
1a ' EDEB6]J 
184 DATA 90R0,CB,11,18,82,CB,21,23,13,64E9 L[A31Al 
185 DATA 9908, 10,F1,79,E1,C1,E3,77,23,3839 [77321 
186 DATA ®,E3,E1,C3,DD,91,23,11,242B L9O3EI 
197 DATA 8,7D,01,06,@0,Ei 0,E5,0931 £813C] 
188 DATA 97820, }DD, £1,23,23,23,23,23,23,5161 L[4CE6] 
187 DATA 9928, == FD, E1,CD,CD, an, :# cs, 5837 [A956] 
118 DATA 983Q,ED,53,2E,7D)22,34,7D,CD,61A7 [16A61 
111 DATA 9938,14,8E,CB,C3,ED,53,30,7D,SAE9 L[34D61 
112 DATA 9@49,22,36,7D,CD,SB,8E,CB,C3,1E45 [6EC8] 
113 DATA 9048,ED,53,32,7D,22,38,7D,06,62DC L@BE@] 
114 DATA 9058,00,DD,21,2E,7D,CD,B1,8D,308B3 L[27AAI 
115 DATA 9058,DD,23,DD,23,CD,B1,8D,DD,7ABB LSF4E] 
116 DATA 9060,23,DD,23,CD,B1,9D,19,E7,298B L229E] 
117 DATA 9068,2A,34,7D,ED,4B,2E,7D,ED,1B87 LBEBEI 
118 DATA 9870,5B,36,7D, 7a, ’B3, ‚2 6,00, 2099 [B7B4]J 
117 DATA 9078,38,91,CD,C2, ar, ES,C5,DD,2B7B I[B8A1E] 
128 DATA 9882,21,34, 70} MH sF1, SE ’78, ’B1, 1B81 L9D88J 
121 DATA 9283, CA,@0,@0,C5,FD,21 LB&BCI 
122 DATA 7070,CD,FB,9E,42,4B,D1,CD,F3,4DD5 LF7361 
123 DATA 9098,8F,50,59,CB,7A,C4,38,91,5431 L[S5D7AI 
124 DATA 9BAB,SA,BF,7D,CD,DD,78,21,BE,35E4 LFE221 
125 DATA ?@AB,7D,86,D1,E1,09,21,00,08,BDFC L73AB1 
126 DATA 7@B2,21,22,09,18,C8,DD,CB,82,85A2 [2348] 
127 DATA JOBS, 26, DD,CB,@1, i6, DD, CB, a6, 3F64 ID2ECI 
128 DATA 98C0,15,DD, ’CB, ‚27, 15,DD,7E,@07, }266F L48DC] 
129 DATA 92C9,E6,EB, ca, FE, Eu, c8, 86,81,59CD LA11B1 
138 DATA 90D8,C9,DD,46,03,DD,6E,@2,ED,5887 LABECI 
131 DATA 7QD8,4B,2A,7D,B7,ED,42,54,5D,2D45 LD@DAJ 
132 DATA 9GEB,FD,66,85,FD,6E,@4,ED,4B,6A81 L17FA] 
133 DATA D,42,CD,A8,98,1194 I[BEEö] 
134 DATA IC, ,7D, DD,46,05,4855 L3CB@] 
135 DATA D,4E, as, B7, ED, 42, 54, SD, 7865 L94CE] 
136 DATA D,66,85, IFD} JE), @2,ED,4B,6A59 L87DC] 
137 DATA A, 7D,B7,ED}42,CD,AB,98,1294 [07041 
138 DATA „E3,19,EB,C1,E1,ED,4A4,C9,6251 L1AD@I 
139 DATA 9118,DD,66,05,DD,6E,84,ED,4B,7881 L9ADAI 
148 DATA 7129,2C,7D,B7,ED,42,54,5D,FD,1277 L7@BB1 
141 DATA 7128,66,81,FD,#E,00,ED,4B,28,250A LAABEI 
142 DATA 7138,7D,B7,ED,42,CD,A8,98,E5,8FCD LBS1AI 
143 DATA 71398,D5,2A,28,7D,DD,46,@1,DD,65FF L39EC] 
144 DATA 9149,4E,20,B7,ED,42,54,5D,FD,3C37 L[16B4] 
145 DATA 9148,66,85,FD,6E,84,ED,4B,2C,282E L[DICAJ 
146 DATA 9150,7D,B7,ED,42,CD,AB,9®,E3,BFCB [BDIEI 
147 DATA 9158, 19,EB,C1,E1,ED,4A,C9,DD,277F L[L9A381 
148 DATA [B1A6] 
149 DATA EDCDEI 
158 DATA 2,ED,4B,2A4,7D,354D LASCB]J 
151 DATA 9178, B7, ED, 42, CD, AB, 90, ES, DS,624F L25F8] 
152 DATA 9180, 2A} 2A,7D,DD,46,83,DD,4E,1ES8 L[C1DB] 
153 Dam 9188,82,B7,ED,42,54,5D,FD,66,3708 LA4E9A] 
154 DATA 9190,01,FD,6E,9®,ED,4B,28,7D,3469 [S3A61 
155 DATA 7199,B7,ED,42,CD,A8,98,E3,19,528F L[@FEAI 
156 DATA 91AB,EB,Ci,E1,ED,4A,C9,CD,F1,572F [83543 
157 DATA J1A8} SE, sa, 59, 13, DD, 66, oil, DD, SEBF LSFF2] 
158 DATA 91BQ,6E, MH CB, 326, CB,1D,81,00,2ABE TCACD] 
157 DATA 91B8, 28, CB, FCH co, F3, BF, DD, 78,397E [9418] 
188 DATA 91C0,@1,DD,71,00,DD,46,03,DD,3E4B £13B8J 
161 DATA 71C8,6E,02,CB,2C,CB,1D,21,Q2,2ABE [L97BAJ 
162 DATA 71D9,0@,CB,18,CD,F3,8F,DD,78,397E [25201 
163 DATA 5,DD,71,02,DD,66,85,DD,3F67 [AsC41 
164 DATA E,84,CB,2C,CB,1D,21,00,2BBSE L[BBCA] 
165 DATA B,CB,18,CD,F3,8F,DD,78,397E LAA18] 
166 DATA ‚25,DD,71,84,C9,DD,ES,FD,SFAB L[3F48] 
167 DATA F1F8,E1,CD,FB,8E,C3,59,8F,DD,52FF [8496] 
168 DATA 7200,65,81,DD,6E,08,FD,56,01,2D59 LCF741 
169 DATA 97208,FD,SE,@8,CD,A8,98,ES,D5,63SCF [3D161 
178 DATA 9210,DD,66,23,DD,4E,82,FD,56,7864 [81A8] 
171 DATA 9218,03,FD,5SE,822,CD,A8,90,E£3,3082B L[9CABI 
172 DATA 9220,19,EB, zer Ei,ED, san, ses, DS; 272F LCFF4J 
173 DATA 9228, DD, 66, a5, DD, &E, 24, ED, 56,78BC L[S6FE] 
174 DATA 9238,05,FD, ISE} 84,CD, MH MIT ES,334B [B7B4] 
175 DATA 9238, 19,EB,C1,E1,ED}4A,C9,FE,275C [3034] 
176 DATA 9240,00,C8,F2,4F ,8F,ED,44,47,2FB3 LFiCE] 
177 DATA 9248,CB,2C,CB,1D,CB,1A,CB,1B,718D [3546] 


9258, 18,F6,09,47,CB,23,CB,12,2F88 
9258,ED,6A,10,F8,C9,AF,4F,CB,6521 
9260,23,CB,12,ED,6A,CB,23,CB,2F21 
9268, 12,ED,6A, 06,96, CB,23,CB,SCF1 
9278,12,ED,6A,CB,17,CB,23,CB,32A9 
9278,12,ED,6A,CB,17,CB,31,71,3@D7 
9280,2C,30,03,0D,81,0D,10,E5,0E47 
9288,CB,22,ED,6A,17,CB,12,ED,755D 
9298,6A,17,CB,12,5F ,‚EB,86,00,29DB 
9298, 3E,28,18,@C,CB, 13,CB,12,1958 
92AB,ED,6A,CR,13,CB,12,ED,6A,73FB 
92A8,CB,31,CB, 18,B7,ED,42,93,772B 
92B0,30,03,@5,87,0B,3D,C2,98,1880 
92B8,8F,CB,38,CB,19,B7,ED,42,7D7C 
92C8,3F,CB,11,CB,18,C9,B7,08,2112 
92C8,FS,CB,7C,28,86,CD,28,71,4695 
92D8,08,35F,88,CB,7A,28,86,CD,@SC1 
9208,38, 71,08,3F,08,C9,44,4D,3921 
92E0,21,00,00,CD,16,90,ED,43,1F37 
92E8,70,7D,C1,CD,16,90,24,70,3164 
RER DEU EL De DR US EU BZ SSED 


9320,93,7C,9A,D2,72,90,78,CD,491D 
9328, 20,90,47,79,CD,2D,90,4F,3A43 
93308,C9,87,ED,6A,ED,52,38, 21,581 
9338,19,17,ED,6A,ED,52,58,01,1481 
9348,19,17,ED,6A,ED,52,38,81,14@1 
9348,19,17,ED,6A,ED,52,30,01,1401 
9358,19,17,ED,6A,ED,52,38,01,14@1 
9358, 19,17,ED,4A,ED,52,38,@1,14@1 
9368,19,17,ED,6A,ED,52,38,01,14@1 
9368, 19,17,ED,6A,ED,52,38,81,14B1 
9378,19,17,2F,C9,2E,BB,C3,74,B29E 
9378,92,2E,80,C3,74,72,7A,B3,5E9F 
9380,28,23,7B,3C,28,85,7A,FE,117E 
9388, 7F,28,18,7B,3D,20,1D,7A,3118 
9398, FE,80,28,18,AF,95,6F ,3E,SDAC 
9398,20,9C,67,11,88,20,CB,2C,2B4A 
93AB,CB,1D,CB,1A,C9,21,00,00, 7CCC 
93AB,11,20,08,C9,CB,7C, 28,86, DSEE 
93B8,CD,32,71,CD,38,91,CB,7A,7618 
9388, 28,29,E5,CD,BF,38,C1,B7 ,QGBD 
93CB,ED,42,C9,D5,4C,7D,CD,DD,7@A5 
93C8, 98,E3,EB,67,77,4C,CD,DD, 686F 
93D8,98,57,5C,7D,67,E3,47,BE,51D4 
93D8,00,29,C1,06,08,EB,ED,4A, 183C 
93E0,C9,21,28,00,06,80,87,30,&5DCE 
93EB,83,62,6B,29,17,30,02,19,1695 
93F8,88,29,17,30,02,19,88,29,4EED 
93F8,17,30,82,19,88,29,17,30,02AA 
9408,82,19,88,27,17,38,02,19,14B5 
9408,88,27,17,30,02,19,88,27,4EED 
9418,17,D8,19,88,097,2E,89,03,3301 
9418,74,92,4E ,1A,EB,71,12,23,187B 
9428,13,18,F7,C9,AF,91,4F,3E,184C 
7428, 80,78,47,3E,28,9D,6F ,3E,2F94 
9438 ,88,7C,67,C7,AF,95,6F ,3E,20BC 
9438, 88,9C,67,[7,AF,93,5F ,3E,20C4 
9448,88,94,57,C9,AF,91,4F ,3E,276C 
9448,80, 78,47,C9,E9,C9,CD,68,27E& 
9458,71,CD,B3,71,3E,88,CD,96,544C 
9458, BB,3E,81,CD,78,BB,CD,F&,59F® 
9468,80,C3,FD,7D,ED,4B,16,7D,6EAS 
9468,CD,38,BC,ED,4B,18,7D,3E,732C 
9470,01,CD,32,BC,ED,4B,1C,7D,3841 
9478, 3E,00,C3,32,BC,ED,4B,18,029A 
9480, 7D,3E,00,CD,32,BC,ED,4B,3F21 
9488, 1C,7D,3E,01,CD,32,BC,3E,117& 
9498,@2,C3,EE,71,ED,4B,18,7D,23197 
9498, 3E,00,CD,32,BC,ED,4B,18,055A 
94AB, 7D,3E,81,C3,32,BC,CD,68,3F8A 
94A8, 91 ,CD,B3,91,C3,FD,7D,3E,6198 
94B8,82,CD,EE,91,03,93,BB,3E,21CC 
94B8,81,CD,EE,71,21,84,08,11,2609 
94C8,17,1F,C3,66,BB,CD,E6,91,15F1 
94C8,21,28,C0, 11,0 
94DD,FF SF ,ED,BA,CS,DD,91,21,628F 
94D8,88,28,11,12,1F,AF,C3,44,0686 
94EB,BC,FS,D7,CB,97,ED,49,D9,7267 
94E8,FB,C9,F3,D9,CB,D9,ED,49,589F 
94F8,D9,C9,E6,83,47,3A, 1E,7D,ABA1 
94F8,E6,FC,BQ,32, 1E,7D, 1E,@4,5B1C 
9502, 0E,82,CD,05,0@,3A,1E,7D,1ED? 
9508, E6,83,5F,@E,22,CD,85,@@,7BEE 
9518,D9,ED,4B, 1E,7D,D9,C9,CD,5E95 
9518, 19,BB,57,E6,9F ,FE,1B,DB,21A6 
9528,47,4F,7A,E6,68,28,BE,D6,320A 
9528,40,28,05,FE,20,C@,3E,01,273D 
9530,CD,32,BC,18,E2,CD,38,BC,78E8 
9538,18,DD,CD,18,BB,CD,3E,92,2562 
7548,78,C9,06,09 ,FE,58,C8,FE,BIEE 
9548, 20,08, 86, 0A,FE,BB,C8,FE,24D2 
9550,F0,C8,FE,F4,C8,06,0B,FE,SC3O 
9558, 0A,C8,FE,F1,CB,FE,FS,C8,234A 


9568,47, FE,6@,D8,D6,28,47,09, 1BF7 


9568, ES,CD,AB, 71,CD,6@,71,E1,5B9B 
957@,CD,28,81,C3,00,08,2E,88,784C 
9578,ED,73,9E,9E,ED,7B,9C,9E,7742 
9580,26,00,C9,ED,7B,9E ,9E,09,B4A5 
7588, 64,7D,5E,7D,88,C0,02, 8A, 225E 
9590,37,3F ,04,00,37,41,12,1A,14F2 
9598,27,2F,14,10,29,31,33,3B, 1AD1 
95AQ,26,BE,35,3D,08,18,23,2B,859D 
95AB, 16, 1E,25,2D,18,20,85,@D, DAB? 


LB8981 
E141C1 
L7BCEI 
£71C81 
ESEDEI 
E34BA] 
LCESAI 
L258C1 
CBi9EI 
£577C1 
[85281 
ESED®] 
TABSCI 
L7E48] 
117921 
LA4BCI 
CBSB21 
[D7621 
[1D66] 
[3988] 
E7aca 
[8168] 
EFASEI 
EABB&] 
ESBBCI 
LA2ABI 
[9698] 
LAF3B] 
LEE74J 
[6944] 
[A638] 
ESB4A] 
L9A2CI 
ECDSEI 
caas2] 
[5344] 
[2798] 
£53D81 
L12721 
172681 
EF2DAI 
15954] 
LAFcEI 
19274] 
LB2BAJ 
ECBF6] 
[77343 
L2F36] 
LAEFAI 
LasABı 
[2138] 
EcAaCI 
LEBSB]J 
La2BEI 
[91683 
190441 
L7Fa8] 
t2A5@1 
E23A61 
EF186] 
[86081 
E9DCB] 
LADABI 
[87821 
L1DFEI 
ED3221 
Ec8183 
E571AJ 
CAECCI 
E2BB6J 
EC9FBI 
ESFCAI 
LE7A23 
E2DECI 
CAgEB] 
EBF@2J 
EFBF6]J 
ECD4EI 
L7EE2ZI 
EFS16] 
[BB2E1 
[D348] 
[22361 
E7DBE] 
CBSCDI 
L66E6] 
[C5961 
ESFBB] 
CAFACI 
LOSF6] 
EF@B6] 
EA1561 
[2108] 
ECEEEI 
EFBFCI 
EB6DEI 
C2B043 
187461 
LA9CB] 
ED41EI 
[275E] 
EF848] 
ESCDCI 
EAATAI 
[E72C9 
ESESAJ 
[99421 
ECC&BI 
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once 


185821 335 DATA 3918.20,42,69,60.64,65,72,61,0981 LEIOCI 
19668] 396 DATA Ö C,3A,20,20,2008 [96643 
1541C1 337 Dara 2920,31,20,02,05,36,92, 18,08, 1931 LerBol 

95C8,19,21,22,2A,17,1F,AA,4E,@2SE LAS7AI 398 DATA 9930,00,00,26,46,83,92,3 LACE4] 
290 DATA 9509,45,49,4E,41,55,53,4F,42,3E28 [@FS61 399 DATA 9938,83,92,4C,32,83,92,5F,34,697A [94721 
291 DATA 95D8,44,50,49,41,20,28,4A,2F,SD2B [53781 400 DATA 9940,83,92,72,20,20,41,20,55,6951 [69821 
292 DATA 95E0,4E,29,20,3F,00,20,20,20,2A5B [9286] 401 DATA 9948,20,46,28,4C,20,4F,20,45,0179 L@FECI 
293 DATA 95E8,20,20,45,6E,64,65,20,00,14B4 [EE12] 482 DATA 9950,20,53,20,55,20,4E,20,47,05AF LFEFA1 
294 DATA 95F@,20,20,43,50,43,2D,47,69,172B LBBi8] 403 DATA 9958,5B,46,5D,20,46,69,6C,6D,356Bl [BS6CH 
295 DATA 95F8,67,61,2D,43,41,44,20,62,296A LCFSBI 494 DATA 9960,62,69,40,64,65,72,20,28,2208 [D6FB1 
296 DATA 9600,79,20,4D,2E,48,2E,20,20,3058 (19441 405 DATA 9968,32,32,34,2A,37,32,29,5B,10D9 [78241 
297 DATA 9608, 00,20,20,53,70,65,69,63,0895 LBEEAI 486 DATA 9970,31,50,20,45,69,6E,66,61,0DCD [93721 
298 DATA 9610,68,65,72,6E,20,28,4A,2F,24FB [487A1 497 DATA 9978,63,68,20,20,20,28,356,34,2C78 LAAFAI 
299 DATA 9618, 4E,2F, ASVZTVZONSE BI ZRNZ7L Lasaı 488 DATA 9980,30,2N,32,30,30,29,5B,32,1460 L[2AEZI 
9620, 20,20,57,65,69,74,65,72,1698 L3SDC6] 489 DATA 9988,5D,20,44,6F,70,70,65,6C,2Al& [29601 
tEec®1 418 DATA ‚74,20,20,20,28,36,34,30,35CQ L[2SBE1 
CABEB1 s11 DATA LEFS@1 
L483A1 412 DATA tam1A] 
„6B,6C, (28581 413 DATA LEA44] 
305 DATA 9648,72,00,5A,75,20,4B,6F,6D,SS8F LFD7@) 414 DATA ‚30, 192523 
306 DATA 9650,70,6C,65,78,00,54,75,20,2982 LACaCI 415 DATA 99B8,B6,96,C3,81,8C,C3,79,82,49EC LEAEBI 
307 DATA 9658, 76,69,65,60,65,20,45,63,2861 [57181 416 DATA 99C0,00,00,00,00,00,00,00,00,0000 LRiACI 
308 DATA 9660, 6B,65,6E,00,00,46,49,4C,20C6 LFSSAI 417 DATA 99C8,00,00,00,00,00,00,20,00,0000 LA4SEI 
309 DATA 9668,4D,20,20,20,20,43,4F,4D,285F [@33A] 418 DATA 99D9,A0,An,2a,20,0D,00, 0, [13521 
310 DATA 9670,00,54,53,20,20,20,20,2@,1CBB L218E1 419 DATA 9908,20, 20,00, 20,20,20,00,00,0000 [56641 
311 DATA 9678,20,43,4F,4D,06,20,5@,41,0DAl [A118] 420 DATA 99E0,00,00,00,00,20,00,00,00,D000 LiF461 
312 DATA 9680,49,4E,54,0F,4F,42,4A,46,3ED2 [SDBAI 421 DATA 99E8, 20, 00,00, 20,00,00,20,00,2000 LiCSBl 
313 DATA 9688,49,4C,45,20,4F,42,4A,0F,SECB [SAAGI 422 DATA 99F0,00,00,00,00,00,00,00,0n,20am LS1AC1 
5 C&B2@1 423 DATA 99F8,00,00,00,00,00,00,00,00,0000 LSESEI 
LEAS2I 424 DATA #ENDEr LE1CBI 
t495C] 425 adr=49000:zeile=1Q4:MEMORY adr-1 Li1161 
[B8D82 426 READ d$: IF d$="#ENDER"THEN 437 CAa9E] 
»7E,30,4D, „36, ; tD4941 427 pr=0 Ları81 
319 DATA 94BB,7F ,53,41,63,7F,67,20,20,2754 [773E1 428 FOR i=1 TO 8 EBC6EI 
32@ DATA 94C0,44,20,41,20,52,20,53,20,22B& [DSBAI 429 READ atıa=VAL("K"+ras) LC54C9 
321 DATA 94C8,54,20,45,20,4C,20,4C,20,2AF8 [28SE1 4380 POKE adr ‚aradr=adr+1 tEB161 
322 DATA 94D9,45,20,4E,5B,44,5D,20,44,25AB L&BSC] 431 pr=pr#2: IF pr>65535 THEN pr=pr-65535___ [B3961 
323 DATA 96D8,61,72,73,74,65,40,60,65,2705 [74481 432 pr=UNT(pr)XOR asIF pr<® THEN pr=pr+6553 
324 DATA 96E0,4E,5B,4D,5D,20,4D,6F,64,2DSE [21EBI & LACAEI 
325 DATA 96E8,67,20,65,69,6E,73,74,65,3481 [68441 433 NEXT i 182041 
326 DATA 96FB,4C,6C,65,6E,3B,50,30,20,2442 [SEB21 434 READ pr$:pr2=VAL("&"+pr$):IF pr2<@ THEN 
327 DATA 96F8,50,61,72,61,60,65,74,65,3A61 L4F421 pr 2=pr 2465536 ter9@ı 
328 DATA 9700,72,20,65,69,6E,73,74,65,3901 LSS@B1 435 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
329 DATA 9708,40,4C,65,64E,5B,41,5D,20,2496 [756E1 in Zeile";zeile:STOP L1A181 
339 DATA 9710,41,75,66,6C,4F,65,73,75,35BF I[FS6BJ 436 zeile=zeile+1:60T0 426 EBS&EI 
331 DATA 9718,6E,67,20,65,69,6E,73,74,2EF2 [50721 437 SAVE"PAINT2. BIN" ‚B,L7QOB,LADO [66041 
332 DATA 9720,65,60,60,28,02,06,58,92,261& LA7IEI 438 PRINT d$:END LagaAl 
333 DATA 9728,19,02,00,00,2A,4C,1A,7E,0C2A TEAs& n 
334 DATA 9730)36,48,25,7E,41,44,2C,7E,09BE [6B6EI Listing 8. »PAINT2.BIN« ist ebenso wichtig 
335 DATA 9758,50,42,67,7E,5E,46,82,7E,3112 [F642] 
336 DATA 9740,6C,20,20,44,20,41,20,52,3E56 IFSDCI 
337 DATA 9748,20,53,20,54,20,45,20,4C,0598 L17DCI 
338 DATA 9750,20,4C,20,45,20,4E,5B,4C,0392 [53281 
339 DATA 9758,5D,20,4F,62,64,63,6B,74,2526 [D48@1 198 Rn CA2841 
340 DATA 9760,20,6C,61,64,65,6E,5B,48,@SGE [A&ADI 118 '*PAINT.BAS — Umwand.in PAINT.CMD* LEBS21 
341 DATA 9768,5D,20,48,69,6E,74,65,72,2B28 [D9S@1 12B Run t1ABB] 
342 DATA 9770,67,72,75,6E,64,5B,44,50,25D9 1D7721 130 ° EDFB6] 
343 DATA 9778,20,42,69,60,64,20,64,61,0869 [BAQ&I 140 MEMORY &7FFF LAEBAI 
344 DATA 9780,72,73,74,65,60,6C,65,6E,2F64 [B9781 158 LOAD"PAINT1.BIN" ‚28208 153081 
345 DATA 9788,5B,42,5D,20,42,69,60,64,37A8 LBF6AI 169 LOAD"PAINT2. BIN" ‚u9@aa [33D6] 
346 DATA 9790,20,62,65,72,65,63,68,6E,@11A L[BE141 17@ OPENOUT "PAINT.CHD" CAFBB] 
347 DATA 9798,45,6E,5B,46,50,20,46,69,248D T[EEB41 180 FOR i=282@0 TO 27ABO [aB6E] 
348 DATA 97AQ,6C,6D,20,61,62,73,70,69,2D05 LB74A1 19@ PRINT #9,CHR$(PEEK(T)); [50761 
349 DATA 97AB,65,60,65,6E,02,09,36,92,230A [945C1 208 NEXT i L7EF4] 
359 DATA 97B9,25,02,09,00,32,4C,BF,7E,15B8 [@13A1 219 CLOSEOUT tar421 
351 DATA 97B8,44,4F,CA,7E,58,59,D5,7E,2D54 L@SDEI 
352 DATA 97C0,6C,55,E0,7E,80,41,EB,7E,SC@C LFCEB@I ä 
333 DATA YICBL9aLaa\FaL 7ELABLABIGLNFIARSD LIGBAI Listing 9. »PAINT.CMD« entsteht aus »PAINT1.BIN« und 
354 DATA 97D@,BC,57,@C,7F,D9,20,20,20,4BDB [96961 »PAINT2.BIN« 
355 DATA 9708,20, 20,20, ze, Ze,aD,2@,Ar,iEsB [D4501 
194,21 5 192483 
CBBE®] 
H E,BAsC [917A1 
GREBNZUNZENAE 29 SB, AR SD2@,122E LBEIEI CPC-Giga-CAD Create-Teil ] 
9800,56,61,72,69,61,62,60,65,39A # Y = 
RE ERFRAFAFNTE TE re Als .CHN-File compilieren mit End-Adresse = $427F } 
362 DATA 9810,20,28,44,29,5B,50,50,20,12D2 LFAIEI 
363 DATA 9018,53,69,63,68,74,62,2E,20,3B74 [@42C) PROGRAM CAD_CREATE; 
364 DATA 9820,4C,69,6E,69,65,6E,20,28,35E8 [917A1 
365 DATA 9828,45,49,4E,29,5B,55,5D,20,38864 LE9ISCI (ST Createv 
366 DATA 9830,55,6E,73,62,2E,20,40,69,3841 [373E] 
367 DATA 9858,4E,69,45,4E,20,20,20,28,26E8 LIE4EI [$T Createl) 
368 DATA 9840,41,55,53,29,5B,41,5D,20,3E76 [70341 
369 DATA 9848, 4F,62,60,65,6B,74,20,65,36BD LAE9@1 BEGIN; 
B,68,61,60,79,65,8E,20,2B28 LASSCI 1 lonar( ) 87243 then [ Cr} 
[aA161 begin 
ESBECI loadf:=$7243; 
a Assign(ObjDat, 'CREATE.CMD'); Reset(ObjDat); VInt1:=34300; 
37& DATA 9B80,20,20,20,20,20,290,20,28,1FEB L77D61 while not EOF(ObjDat) do 
377 DATA 9888,41,55,53,29,5B,57,5D,20,3EZE [S@6E) begin read(ObjDat,Men[{VInt1]); VIntl:=VInti+l end; 
378 DATA 9B90,4E,61,63,68,20,42,69,6C,3516 LIESBI end; LDef; ADef; 
379 DATA 9898,64,20,77,61,72,74,65,6E,5014 LBDICI a Inte); 
380 DATA 98R0,20,28,4N,29,02,06,56,92,1126 LSEEA] E:=AssFun(Init); 
381 DATA 9BAB,19,02,00,00,29,48,1D,7F,@C2D [50541 while E()128 do 
smeskurssuze ua| | vo 
on a a a rn ®. if E(128 then begin PasPrg(E); E:=AssFun(RetAss) end; 
384 DATA 98C0,6A,20,20,20,50,29,41,20, 
= Aryza'an12Lan. 2012022 LADFsI if #128 then begin Error(E); E:=AssFun(Erret) end; 
117461 end; 
[238C1 it); 
' Fe SE ‚AssFun(Exit); 
:9,74,70,75,6E,2344 [4574] 2 
398 DATA 9GF@,6B,74,50,45,50,20,53,63,251D LA2681 { Variablen-Definitionen ] 
391 DATA 98F8,68,6E,69,74,74,2D,56,6F,2637 [2398] 
392 DATA 9900,72,6E,65,5B,42,5D,20,53,28E7 [11561 Listing 10a. Besitzer von Turbo-Pascal haben 
393 DATA 9908,63,68,6E,69,74,74,2D,48,22B2 [96601 ” @ i 
394 DATA 9910,49,6E,74,65,6E,5B,5A,5D,2525 [75901 SENSE ESSEN 
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TYPE 
Matrix = Array[1..4] of Array[1..3] of Real; 
Vektor = Array[1..3] of Real; 
AssPrgs= (RetAss,Init,Erret,Exit); 
CoNSsT 
Pid180= 0.01745329252; 
inv = #24; 
load: Integer = 0; 
VAR 
MatT,MatZ,MatS : Matrix; 
PD,PA,NV : Vektor; 
XD,YD,ZD : Real; 


DFak, VFak, Wink, Schw 
DFakF, VFakF,WinkF,SchW] 
DFakl, VFakM, SchWM, WinkM 
SA,CA,SB,CB,SC,CC,U,V 
1X,1Y,12 

VChari  : Charj 
VBytel : By 
VInt1, VInt2 
VReall,VReal2 
WStrl  : Stringl14]; 
2 : Byte; 

ProNun: AssPres; 
ObjDat: File of Byte; 


Real; 


Real; 
Real; 
Byte; 


String[17] absolute $4304; ] 


Integer absolute 34316; 
Integer absolute 34318; 
Integer absolute $431A; 
Integer absolute $431C; 


BCMode: Integer absolute $431E; 
ZoomF: Integer absolute $4320; 
ZoomS: Byte absolute $4322; 
Zoomk: Integer absolute $4323; 
ZoomZ: Integer absolute $4325; 
ZoomW: Byte absolute $4327; 


XYZ1: Integer absolute $4328; 


x: Integer absolute $4321 
Yı: Integer absolute $4324; 
21: Integer absolute $432C; 
XtZ2: Integer absolute $432E; 
x2: Integer absolute $432E; 
y2: Integer absolute 34330; 
22: Integer absolute 34332; 
X123: Integer absolute 34334; 
X: Integer absolute $4334; 
13: Integer absolute 34336; 
23: Integer 

XYZ4: Integer 

X: Integer absolute 34334; 
Ya: Integer absolute $433C; 
Zh: Integer absolute $433E; 


MatA: Array[1..3] of Array[1..5] of Intege: 
PL: Array[1..3] of Integer absolute $435E; 
Pl : Array[1..3] of Integer absolute $4364; 
P2 : Array[1..3) of Integer absolute 34364; 


2Str: String[14] absolute 34370; [Zwisp) 
X2D: Integer absolute $4370; 

Y2D: Integer absolute $4372; 

XN2D: Integer absolute 34374; 

YN2D: Integer absolute 34376; 

SINA: Integer absolute 34378; 

COSA: Integer absolute $437A; 

NUMB: Byte absolute $437C; 


RRepf: Byte absolute $437F; 
NRotF: Boolean absolute $4380; 


DatF: Byte absolute $4381; 

DatS: Integer absolute $4382; 
DatE: Integer absolute 34384; 
DatL: Integer absolute $4386; 


Integer absolute $4388; 
Byte absolute $438A; 
Integer absolute $438B; 


Bee 


DIFakS: Byte absolute $438D; 
VFekZ: Integer absolute $438E; 
VFakS: Byte absolute $4390; 
VIFakZ: Integer absolute $4391; 
VIFakS: Byte absolute 34393; 
SchWZ: Integer absolute 34394; 
RSinW: Integer absolute $439%; 
RCosW: Integer absolute $4398; 


FUNCTION AssFun(AssNun: AssPrgs): Integer; external 34300; 
{ Pascal-Unter-Progranne | 


Listing 10b. Die Variablen-Definition müssen Sie unter 
dem Namen »CREATEV.PAS« speichern 


PROCEDURE PasErr(E:Byte); 
[ Turbo-Pascal-Fehler-Meldung ausgeben } 
begin 
writeln('Error: ',E); Halt; 
end; 


PROCEDURE RInp(Var Wert:Real; Var Flag:Boolean; Min,Max:Real); 
{ Wert-Eingabe fuer Winkel,Weite & Faktor | 
var IStr: String[10]; 


begin 
repeat 
GotoXY(10,12); 
if Flag then write('R') else write('A'); 
write(Wert:0:2,' '); GotoXY(10,12); 


write(#3); read(IStr); write(#2); 

if 1ength(IStr)=0 then begin write(inv); Exit end; 

VCharl:=UpCese(Copy(IStr,1,1)); 

if VCHarl in ['A','R'] then Delete(IStr,1,1); 

Val(IStr,VRealı,VInt1); 

if (VInti=0) and (VRealt)=Min) and (VReali(-Max) then 

begin 
if VChari='A' then Flag:=False else Flag:=True; 
Wert:=VReall; write(inv); Exit 

end; 

until false; 
end; 


PROCEDURE ShiftR(Wert:Real; Var IWert:Integer; 
Var IWertS:Byte; Var IIWert:Integer; Var IIWertS:Byte) ; 
{ Wert /2 nach IWert, bis kleiner 1 (IWertS (== Anzahl) ] 
begin 
if Abs(Wert)(1 then if Wert()O then Wert:=1/Wert 
else Wert:=1; 
IIWert:=Round(32767.49/Wert); IIWertS:=1; IWertS:=1; 
while Abs(Wert))1 do 
begin Wert:=Wert/2; IWertS 
IWert:=Round(32767.49,Wert) ; 
end; 


WertS+1 end; 


PROCEDURE TMat(Var Mati:Matrix; Var Vek:Vektor); 
{ Vektor mit Matrize multiplizieren ] 
var ZVek: Vektor; 


begin 
FillChar(ZVek,18,0); 
for IY to 3 do 


for IX:=1 to 3 do 
ZVek[IY]:=ZVek[IYJ+Mat1[IXJLIYJwVek[IX]; 
Vek:=ZVek; 
end; 
PROCEDURE MMat(Var Mat1,Mat2:Matrix); 
{ Matrize 1 mit Natrize 2 multiplizieren } 
Var MatZ: Matrix; 
begin 
for IX:=1 to 3 do 
for IY:=1 to 3 do 
MatZ[IXJ[IY]:=Mati[IX][1]xMat2[1J[IYJ+ 
Mat1[IX][2]«Mat2[2][IY]+ 
Mat1[IX][3]sMat2[3] IV]; 


Matl:=MatZ; 
end; 


PROCEDURE UMat(Var Mat1,Mat2:Matrix); [Mati () Mat2 !!] 
{ Umkehrung von Natrize 1 nach Matrize 2 ] 
begin 
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Mat2[1YJ[IX]:=Mati[IX][IY]; 
end; 


PROGEDURE ADef; 
{ Metrizen-Anfengsdefinition (bei neuer Achse) ] 


=1 to 3 do PD[IYJ:=Pi[IYJ-P2[IY]; 
U:=Sgr(PD[2])+Sar(PD[3]); Vi=Sart(Sar(PDL1J)#U); 
:=Sgrt(U); 
if V=0 then PasErr(10); 
if U=0 then begin S 
else begin SA:=PD[3]/U; CA:=PD[2]/U end; 
SC:=-U/V; CC:=-PD[1]/V; FillChar(MatS, 72,0); 
MatS[1][1J:= CO; MatS[2J[1]:=-S0; MatS[3]L1]:= 0; 
MatS[1][2]:= CAxSC; MatS[2][2 
MatS[1][3]:= SAx«SC; MatS[2][3]:=SA0C; MatS[3][3] 
for IY:=1 to 3 do PD[IYJ:=PLLIYJ/2+P2LIY]/2; 
end; 


PROCEDURE DDef; 
{ Dehnungs-Faktor definieren 
begin 
NRotF:=True; 
write(inv,' Faktor:'); 
RInp(DFak,DFakf,-10, 10); 
ShiftR(DFak,DFakZ,DFak$,DIFakZ,DIFakS) ; 
end; 


PROCEDURE VDef; 
{ Vergroesserungs-Faktor definieren ] 
begin 
NRotF:=True; 
write(inv,' Faktor:'); 
RInp(VFak,VFakF,-10,10) ; 
‚ShiftR(VFak, VFakZ,VFakS, VIFakZ,VIFakS) ; 
end; 


PROGEDURE SDef‘; 
{ Schieb-Weite definieren } 
begin 
NRotF:=True; 
write(inv,' Weite :'); 
RInp(SchW,SchWF,-500,500) ; 
SohWZ:=Abs(Round(SchWx32) 
end; 


PROGEDURE RDef; 
{ Rotations-Winkel (in Grad) definieren ] 
begin 
NRotF:=True; 
write(inv,' Winkel:'); 
RInp (Wink, WinkF ‚-500,500) ; 
SC:=Sin(Abs(Wink)«Pid180); CK 
RSinW: =Round(32767.49x5C) ; RCos 
end; 


‚Cos(Wink4Pid180) ; 
=Round(32767.49xCC) ; 


PROCEDURE LDef; 
begin 
Wink:=0; Winkl 


DFak:=1; DFakF:=True; 
ShiftR(DFak, DFakZ‚DFakS,DIFakZ,DIFakS) ; 
VFak:=1; VFakF:=True; 
ShiftR(VFek, VFakZ, VFakS,VIFakZ,VIFekS); 
end; 
PROCEDURE ZDef; 
{ Wiederholungs-Zahl definieren } 
begin 
NRotF:=True; 
GotoXY(5,12); write(inv,'Anzahl: ',#3); 
Tead(VStr1); write(inv, #2); VaL(VStr1,VInt1,VInt2); 
if (VInt2=0) and (VInt1(100) 
and (VInt1)0) and (VInti()RRepF) then 
begin ZStr:=VStri+' '; RRepF:=VInti; end; 
end; 


PROCEDURE MDef; 
{ Matrize MatT & MatA berechnen } 
begin 
NRotF:=Felse; 
if SchWP then SchWM:=SchW else SchWM:=SchW/RRepF; 


if DFakF then DFakM:-DFak else 
DFakM:=Exp(Ln(DFak)/RRepF) ; 
if VFakF then VFakl:=VFak else 
VFakM:=Exp(In(VFak)/RRepF); 
1? WinkF then WinkM:=Wink else WinkM:=Wink/RRepF; 
FiliCher(NV,18,0); NV[{1J:=SchWMx64; TMat(MatS,NV); 
Sa:=Sin(WinkMyPid180)xVFakM; CA:=Cos(WinkMyPid180) xVFakM; 
Fil1Char(NatZ,72,0); 
MatZ[1][1]:= DFakMyVFakM; 
MatZ[2][2]:= CA; MatZ[3][2 
MatZ[2][3]:=-SA; MatZ[3][3]: 
Wat(MatS,MatT); MMat(MatT,MatZ); Mat (Hat, MatS) ; 
2 TMat(MatT,PA); 
for IY:=1 to 3 do MatT[4J[IYJ:=(PDLIYJ-PALIYJ+NVLIY])/2; 
Matrize in Integer-Format umwandeln } 
for IY:=1 to 3 do 
begin 
MatALIY][5]:=1; 
while (Abs(MatT[1][1YJ))1) or (Abs(MatT[2][1Y]))1) 
or (Abs(MatT[3][1Y]))1) do 


begin 
for IX:=1 to 4 do MatT[IXJ[IY]:=MatTLIX]LIY]/25 
MatA{IYJ[5]:=MatALIY][5]+15 

end; 

for IX:=1 to 3 do 
MatA[IYJ[IX]:=Round(MatTLIX] [IY]x32767.49) ; 

MatA[IYJ[4]:=Round(MatT[4][IY]); 

end; 
end; 


PROCEDURE KrInit; 
{ Hilfs-Kreis-Anfangs-Definition ] 
begin 
if X2D(30 then Nunb:=2 else Nunb 
VReal1:=P1/4/Numb; 
SinA:=Round(32768 . Urn di 


=X2D div 10; 


PROCEDURE DatIn; 


begin 
write(inv,' Name: ',#3); VStrl:=''; read(VStr1); 
write(#2,inv] 
if VStri='' then Datf:=$FF else 
begin 


Assign(ObjDat, VStri+' .OBJ'); 
[$1-] Reset(ObjDat); [$I+ DatF:=IOResult; 
DatL:=FileSize(ObjDat)-48; 
end; 
end; 


PROCEDURE LoadA; 
begin 
Reset(ObjDat); ADef; VInt2:=Addr(MatA); 
for VInti:=0 to 47 do read(ObjDat,Mem[VInti+VInt2]); 
end; 


PROCEDURE Save; 
begin 
Beurite(objDat); VInt2:=Addr(MatA); 
for VInt1:=0 to 47 do write(ObjDat,Mem[VInti4VInt2]); 
end; 


PROCEDURE Load; 


to DatL-1 do read(ObjDat,Mem[VInt1+DatS]); 
Close(ObjDat) 
end; 


PROCEDURE SaveO; 
begin 
for VInti:=0 to DatE-DatS-1 do 
write(ObjDat,Men[VInti+DatS]); 
Close(ObjDat) 
end; 
PROCEDURE Zoom; 
[ Neuen Zoom-Faktor berechnen ] 
begin 
Vint1:=Abs(X1-X2); VInt2:=Abs(Z1-22); 
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if VInt1)5 then 
begin 
if VInt140.625 ) VInt2 then 
640/VInti else VReal1:=400/VInt2; 
ZoonX-320-(X1+X2) div 2)xVReal1+320; 
if Abs(VRea12)(=32767 then ZoomX:=Round(VReal2); 
VReal2:=(ZoomZ-200-(21+22) div 2)xVReal1+200; 
if Abs(VRea12)(=32767 then ZoomZ:=Round(VReal2); 
VReali:=ZoomFyVReall; 
while VReali) 32767 do 
begin VReall:=VReall/2; ZoomS:=ZoomS+1 end; 
ZoomF;=Round(VReall) ; 
end; 
end; 


PROCEDURE PasPrg(Var E: Byte); 
{ Pascal-Unterprogramn-Auswahl ] 
begin 
Case E of 
{1:) 
2: begin 
xD 


X3-X4; YD:=Y3-Y4; 2D:=23-24; 
XD:=XDyXD; YD:=YDyYD; 2D:=ZD42D; 
X2D:=Round(Sart(XD+2D)); KrInit end; 
: begin X2D:=Round(Sqrt(YD+ZD)); KrInit end; 
: begin X2D:=Round(Sqrt(XD+YD)); Krinit end; 
: ADeß; 


PROCEDURE Error(Var E: Byte); 
[ Assenbler-Fehlermeldung ] 
begin 

E:=E AND 127; 
GotoXY(1,12); write(inv, 'E',E,':'); 
Case E of 
(o:} 
a write('Ecken verbraucht. '); 
2: 


end; 
write(inv); E:=E OR 128; 
end; 


Listing 10c. Die Proceduren stehen In der Include-Datei 
»CREATEU.PAS« (Schluß) 


sy | 


PROGRAM CAD_PAINT; 


[ Endadresse auf 707F setzen I! ] 


$I Paintv} 
$I Paint] 


BEGIN; 
1f copri()" Giga-CAD-Paint 
begin 
Assign(ObjDat, 'PAINT.CMD'); Reset(ObjDat); Vint1:=$7D00 
while not EOF(ObjDat) do 
3 begin read(ObJDat,Mem[VInt1]); VInti:=VInti+1 end; 
end; 
E:=AssFun(Init); 
while E()128 do 
begin 
if E(128 then begin PasPrg(E); E:=AssFun(RetAss) end; 
if E)128 then begin Error(E); E:=AssFun(Erret) end; 
end; 
AssFun(Exit); 


' then 


Listing 11a. Auch »PAINT.CHN« ist ein 
Turbo-Pascal-Programm 


r 


{ Veriablen-Definitionen 


TYPE 

AssPrgs= (Retäss, Init,Erret, Exit); 
CONST 

inv:  Chars#24; 
VAR 

VCharı Char; 

VBytel Byte; 


VInti, VInt2 :Integer; 
VReali,VReal2 : Real; 
VStrl  : Stringl14J; 
: Byte; 

: AssPrgs; 

: File of Byte; 


String[17] absolute $7D04; 


Integer absolute 97070; 
String[14] absolute $7D70; 
Byte absolute $7D7F; 


Byte absolute $7DB6; 
Byte absolute $7DB7; 
Byte absolute $7DB8; 
Byte absolute 
Byte absolute 
Byte absolute $7DEB; 
Byte absolute $7DEC; 
Byte absolute $7DBD; 


HelOff: Byte absolute $7DBE; 

HelFak: Byte absolute $7DBF; 

SebB: Integer absolute $7D00; 
SebS: Integer absolute $7DC2; 
SehB: Integer absolute $7DC4; 
SehS: Integer absolute 37006; 
FluB: Integer absolute $7D08; 
FluS: Integer absolute $7DCA; 
MinY: Integer absolute $7DCC; 
MexY: Integer absolute $7DCE; 


FUNCTION AssFun(AssNun: AssPrgs):Integer; external $7D00; 


Listing 11b. »PAINTV.PAS« ist ein Include-File für 
»PAINT.CHN« 


zz | 
— po 


{ Pascal-Unter-Progranne 
PROCEDURE PasErr(E:Byte); 
{ Turbo-Pascal-Fehler-Meldung ausgeben } 
begin 
writeln('Error: ',E); Halt; 
end; 


PROCEDURE IInp(Var Wert:Byte; XPos,Min,Max:Byte); 
[ Wert-Eingabe fuer Prozente & Wiederholung } 
var IStr: String[10]; 
begin 
Tepeat 
-  GotoXY(XPos,17); 
write(Wert,' '); GotoXY(XPos,17); 
write(#3); read(IStr); write(#2); 
if length(IStr)=0 then Exit; 
Val(IStr,VInt2,VInt1); 
if (VInt1=0) and (VInt2)=Min) and (VInt2(=Max) then 
begin Wert:=VInt2; Exit end; 
until false; 
end; 


PROCEDURE PDef(Var Wert1,Wert2:Byte); 
begin 
GotoXY(3,17); write(inv, 'von: '); IInp(Wert1,8,0,100); 
GotoXX(14,17); write('bis: "); IInp(Wert2,19,0,100); 
write(inv); 
end; 


PROCEDURE ZDef; 
{ Wiederholungs-Zahl definieren ] 
begin 
GotoXY(7,17); write(inv,'Anzahl: ',#3); 
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read(VStri); write(inv, #2); Val(VStr1,VInt1,VInt2); 
if (VInt2=0) and (VInti(100) and (VInt1) 0) 
and (VInti()RRepF) then 
begin ZStr:=VStri+' '; RRepF:=VInti; end; 
end; 
PROCEDURE DatIn; 
begin 
write(inv,' Name: ',#3); VStr. 
read(VStr1); write(#2,inv); 
for VInti:=1 to Length(VStri) do 
VStri[VInt1]:=UpCase(VStri[VInt1J); 
if VStri[2]=':' then 
begin 2Str:=VStri[1]; Delete(VStr1,1,2) end 
else ZStr:='@'; 
if VStrl='' then 
ZStria MäFF 
else begin 
Vintl:=Pos('.",VStr1); 
if VInt1=0 then VInt1;=12; 
2Str:=25tr+Copy(Copy(VStr1,1,VInti-1)+' ',1,8) 
+Copy(VStri,VIntiH1,3)4" 1; 


end; 
end; 


PROCEDURE Paint; 
begin 
HelFak:=Abs(HellF-DunkF)432 div 25; 
He1Off:=DunkFy16 div 25; 
=(MaxY-MinY)/100; 
=Round(NaxY-(VReallySSebF)) div 325 
SebS; =Round(VReall/RRepFx (SSebF-ESebF)) div 32 
if SSehr+ESehr=200 


then begin 
SehB:=$0000; SehS:=0 end 
else begin 
SehB:=Round(NaxY-(VRealfySSehF)) div 32 
SehS:=Round(VReal1/RRepFy(SSehF-ESehr)) div 32 end 
FluB:=SFluR Shl 8; 


FluS:=(EFluF-SFlUF) Shl 8 div RRepr 
end; 


PROCEDURE PasPrg(Var E: Byte); 
{ Pascal-Unterprogramm-Auswahl ] 
begin 
Gase E of 
25: PDef(Dunkr,Hel1F); 
26: PDef(SFluF,EFLUF); 
27: PDef(SSebF,ESebF); 
28: 2Def; 
29: DatIn; 
30: PaintI; 
31: PDef(SSehF,ESehF); 
end; 
end; 


PROOEDURE Error(Var E: Byte); 
| Assenbler-Fehlermeldung 
begin 
E:=E AND 127, 
GotoXY(1,17); write(inv, "Error ',E); 
write(inv); E:=E OR 128; 
end; 


Listing 11c. Die Unterprogramme zu »PAINTU.PAS« 


PROGRAM TurboStart; 


VAR 
CHFAle :string[127] absolute 980; 
Progrann: File; 


BEGIN 
if CHFile='' then 
Begin 
Write('Geben Sie den Namen des zu ladenden') 
Write('Chain-Files (ohne .CHN) ein : '); 
Read(CHFile); 
end else 
Delete(CHFile,1,1); 
Assign (Programm, CHFile+'.CHN'); 
Chain(Progranm) ; 
END. 


Listing 12. »TS.COM« enthält die Runtime-Bibliothek 


‚HOMECOMPUTER 


a a 


172281 
181 ‘* CREPAS1.DAT - DATA-Lader von 'CPC’ * 

C2AsC1 
102. 

tEA2CI 
103 ' EDEB6] 


1904 DATA 80Q@,31,00,@1,21,FF,41,@1,@®,1C4E L[23D41 
185 DATA 8@08,FF,CD,64,@3,21,F2,3B,11,42D7 L[B@7EI 
1@& DATA 891@,51,3E,01,7F,42,3E,81,CD,22F7 [&D521 
127 DATA 8218,D4,04,C3,0C,3B,00,00,FD,7285 LF7521 
108 DATA 8@20,E1,E1,7D,32,9C,3F,FD,E5,4143 [SFBA] 
19879 DATA 8028,CD,9B,14,CD,BA,17,27,45,4BD7 LEBDE] 
11@ DATA 8930,72,72,6F,72,3N,20,2A,9C,2EDB [49641 
111 DATA 8038,3F,26,08,E5,21,20,00,CD,1995 LCB121 
112 DATA 8@49,26,17,CD,CD,17,CD,1B,20,002A 128761 
113 DATA 8048,C3,D4,20,C9,FD,E1,E1,D1,596F LBBE@I 
114 DATA 8059,C1,D9,21,84,3F,CD,D1,@5,59CB LEAACI 
115 DATA 8858,E1,D1,C1,D9,21,84,3F,CD,52ES [7DD21 
11& DATA 804@,D1,05,E1,22,90,3F,E1,22,725C L[8ESA] 
117 DATA 8068,92, 3F,FD,ES,21,0A,0@,E5,54F5 [2CA21 
118 DATA 8@07@,21,0C,@0,CD,DB,1F,24,9@,1950 (F1641 
119 DATA 8078,5F,6E,264,0@,CB,45,CA,72,066A [Q8981 
120 DATA BBEM„21,CD,9B,14,21,52,00,CD,S16D LAEAA 
121 DATA 8088,22,17,CD,1B,20,C3,7E,21,@E01 LD24A: 
122 DATA 8890,CD,9B,14,21,41,08,CD,22,4560 [DE2&1 
125 DATA 8098, 17,CD,1B,20,24,92,3F,CD,SAQB LAFBAI 
124 DATA 8@AQ,2C,05,CD,9B,14,05,D5,E5,0SAB LDAD41 
125 DATA 8QA8,21,00,00,E5,21,02,@0,CD,iFID L4E281 
126 DATA 8060,77,17,CD,BA,17,03,20,20,2B94 L[1DS61 
127 DATA 8@88,20,CD,1B,2@0,21,04,0@,E5,23E5 LA75A1 
128 DATA 8@CQ,21,0C,0@,CD,DB,1F,CD,9B,18FSs LYFF@I 
129 DATA 8@C8,14,21,05,0@,CD,22,17,CD,0423 LE9I26] 
15@ DATA 8@D@,1B,20,21,71,3F,CD,CC,14,05F@ (CC78] 
131 DATA 8008,06,@A,CD,9E,16,CD,1B,20,1352 [00901 
132 DATA 8QE@,CD,9B,14,21,02,00,CD,22,4178 L[Di481 
1353 DATA 80E8,17,CD,1B,20,21,71,3F,CD,39DF LO@CEI 
154 DATA B@F@,3A,05,CD,A3,08,E5,21,00,0046 [55641 
135 DATA 8@F8,@@,D1,CD,7F,@6,CB,45,04,294C LFEF@] 
136 DATA 81@@,F3,21,CD,9B,14,21,18,00,61C4 LAB2CI 
137 DATA 81@8,CD,22,17,CD,1B,20,C3,D7,6139 [664841 
138 DATA 8119,22,21,71,3F,CD}3A,@5,21,125B [261E1 
139 DATA 8118,81,08,E5,21,01,08,CD,4B,1FC9 LDBACI 
148 DATA 8120,88,CD,96,89,CD, MM if, }7D} jaaas LF6C8] 
141 DATA 8128,32,6F,48, 2A, 6F, a0, 26, au,@AS4 LB112] 
142 DATA 8150,65,CD,81,05,21,41,89,CD,5171 L[D42A1 
143 DATA 8138,91,0S,21,52,0@,CD,71,05,4AD5 [241A1 
144 DATA 814@,CD,4F,15,CB,45,CA,38,22,7A02 [S9BEI 
145 DATA 8148,21,71,3F,E9,21,01,00,E5,04979 LAEBEI 
146 DATA 8158,21,01,00,CD,F5,@8,21,71,1B9B L4D281 
147 DATA 8158,3F,CD,3A,05,21,64,48,ES,2B2D LBEBCI 
148 DATA 8160,21,6C,40,CD,FS,1E,2,6C,0888 LF2981 
149 DATA 81698,40,65,21,00,@0,D1,CD,7F,iFCi [43801 
150 DATA 8170,06,E5,21,64,40,0D,20,05,3949 LBEZEI 
151 DATA 8178,C5,05,E5,21,8A,3F,CD,2C,4C6A LB8BFEI 
152 DATA 8188,@5,D9,E1,D1,C1,CD,AE,06,2196 L29AAI 
153 DATA 8188,D1,7D,A3,6F,E5,21,64,40,6274 [C46C1 
154 DATA 819@0,CD,2C,05,C5,D5,E5,21,84,6484 [S1AB1 


155 DATA 8198, 3F,CD,2C,@5,D9,E1,Di,C Tagan] 
156 DATA B1AB,CD,C2,86,D1,7D,A3,6F ,Cı [7616] 
157 DATA tBAcAı 
158 DATA LFEBB] 
159 DATA [9668] 
168 DATA £BA7A1 
161 DATA L5B761 
162 DATA 2088] 
163 DATA 2,3F ,CD,Di en LD7181 
164 DATA 1,18,8@,CD,22,17,CD,0745 [4430] 
165 DATA LFEF&] 
166 DATA B1F@,CR,45,CA,4E 721,09, FD,E CCFIEI 
167 DATA B1F8,E1,22,63,3F,E1,22,65,3 taaacı 
168 DATA 8200,E1,22,67,3F ,E1,22,69, 3 [7C66] 
169 DATA 1D7C41 
178 DATA C2CBA] 
171 DATA 88881 
172 DATA 129481 
173 DATA LAgEBI 
174 DATA C155C9 
175 DATA [37361 
176 DATA ECCD6] 
177 DATA [51481 
178 DATA CAAFa1 
177 DATA LAEFA] 
188 DATA [2E981 
181 DATA [CB18] 


182 DATA 827@,4B,SF,CD,D1,05,21,8F,47,2F0S LEE9A] 


183 DATA 8278, 11,E1,FA,Ql,FE,7F,CS,DS,28C3 LEER] 
184 DATA L6DC21 
185 DATA E7F2CH 
186 DATA CBF821 
187 DATA CAS66] 


188 DATA el »2A,67,3F,73, [81721 
189 DATA B,3F,CD,2C,@5,CB,B8,012A [DEE6] 
199 DATA 82B8,C5,D5,E5,21,81,00,CD,@8,48EA [96981 
191 DATA @,D9,E1,D1,C1,CD,D6,06,2BE6 LBFF@I 
192 DATA 'B}45,CA,D8,23,21,6B,3F,6175 LOFB2I 
193 DATA 'D,2C,05,C5,D5,E5,21,02,64@C LE7ACI 
194 DATA 82D9,00,CD,08,18,D9,E1,D1,C1,376F LESABI 
195 DATA 82D8,CD,FF,@9,D7,21,4B,SF,CD,S5E7 L@B4A1 
19& DATA 82E@,D1,05,24,67,3F,6E,26,B@,6AFC [ABB] 
197 DATA 82E8,E5,21,21,80,D1,19,EB,2A,7DFO LEFACI 
198 DATA 82F@,67,5F,73,03,8A,23,21,8F,5A@l [1864] 
197 DATA 82F8,47,11,E1,FA,Q1,FE,7F,C5,378B L[BDaQ1 
200 DATA 8300,D5,E5,21,6B,3F ,CD,2C,05,53C1 LE7BEI 
2@1 DATA 85308,D9,E1,D1,C1,CD,FA,@9,CD,47AF [25501 
282 DATA 831@,DQ,0r ‚EB,2A,69,3F,73,23,7771 L246E] 


Listing 13. Pascal-Programme in Maschinencode: 
»CREPAS1.BIN« 


7. 


8518,72,C9,FD,E1,E1,22,57,3F,1DE1 
8320,E1,22,59,5F ,FDJES,21,3D}74D3 
DATA 8528, 3F,E5,21,12,80,E5,21,80,201& 
206 DATA 8330,00,CD,AE, 1F,21,01,00,E5,3A97 
287 DATA 8338, 21,03,08,D1,CD}66,06,7A,1AD& 
208 DATA 8348,65,CA,CD,24,D5,70,32,71,77n9 
207 DATA 8348,49,21,01,00,E5,21,03,00)2FCA 
DATA 8350,D1,CD,66,04,7A,B3/CA,C2,572A 
8558, 24,D5,7D,32,72,40,21,3D,292F 
212 DATA 8360,3F )ES,2,71,40,26,04,2B,2623 
DATA 8548,29,5D,54,29,19,D1,19,E5,0B8B 
DATA 8378,21 ,3D,3F ,E5,2A,71,40,26,1642 
215 DATA 8378,00, 2B,29,5D,54,29,19,D1,08D7 
216 DATA 8380, 19,CD,2C,85,05,D5,E5,2A}SESC 
8388, 59,3F,E5, 2A, 72,40, 26,00, 3F9C 
218 DATA 8390,28, 29,65,29,29,29)D1,19,91A7 
DATA 8398,D1,19,E5,2A,71,48,26,@0,72@4 
BSAB, 2B,29,50,54,29)19,D1,19,11B7 
DATA BSAB,CD, 2C,05,C5,D5,)E5,2A,57}644F 
DATA 8SBB,3F ,E8,24,72,48,26,00)2R,2613 
223 DATA 85B8,29,5D,54,29,19,D1,19,CD}@BAS 
83C0, 2C,95,D9,E1,D1,C1,CD,FA,B&IC 
85C8,89,D9,E1,D1,C1,CD}E9,89,2717 
8308,D9,E1,CD,D1,05,2A}72,40,4054 
DATA 83D8,26,90,23,D1,1B,C3,36,24,19EC 
DATA 85E0,24,71,40,26,00,23.D1,18,0215 
229 DATA 8368,03, 21,24,21,3D)SF,ED)SB}&FCS 
83F@,57,3F,81,12,80,ED,B8,C9,275D 
85F8,FD,E1,E1,22,39,3F ,E1,22,5814 
B,SF ‚FDJES,21,01,00,E5,0259 
1,03,20,D1,CD,66,06, 7A, 1AD& 
3}CA,4B,26,D5,70,32,72,674A 
235 DATA 8418,40, 21,01,00,E5,21,85,Q0}2FCA 
DATA 8420,D1,CD,66,06,74,B3.CA,40,57A8 
8428, 26,D5,7D,32,71,4@,21,E9,28E3 
238 DATA 8430,36 ,E5,24,72,40)26,8@,28,2693 
DATA 8438,29, E5,29,29,29,D1,19,D1,289F 
240 DATA 8440, 19,E5,2A,71,40,26,00,2B,3523 
DATA 8448,29,5D,54,29,19,D1,17,E5,@BaB 
242 DATA 8450,2A,3B,3F ‚E5,24,72,40,26.124E 
8458, 00, 2B, 29,5, 29, 29,29, D1 ‚@@DF 
244 DATA 8460,19 
245 DATA 8468, 


D1,19,E5,21,01,00,28)3497 
D,54,27,19,D1,19,CD,B8As 


246 DATA 8470,2C,05,C5,D5,E5,2A,39,3F ,057D 
247 DATA 9478,65 


21,01,00,2B,27,E5,29, 7AFF 


9,D1,19,CD,2C,05,D7,0F7B 
, 1,C1,CD,FA,@9,05,D5,569B 
252 DATA B4ABQ, Es, 2A,SB,; SF, JES, 2A, 272, KH 7BB4 
253 DATA EITCH 26,00,2B,29, ES, 29,27 29, 1307 
DATA Saba, D1,19, ’D1, 19, M==H or. MM} ‚ou. ;72D8 
255 DATA 84B8, 2B, 29, EM 54.29, FCH D: 
aaca,cı 


DATA 8408,24, 71,40, 26,08,28,29,50,0383 
26@ DATA 84E0,54,29,19,D1,19,CD,2C,85,2DD1 


SF ‚ES, 2A, 72,40, 7BB4 


265 DATA 6508,D1,19,D1,19,E5,21,05,88,72DA 
DATA 851@,2B "22: SD, ‚Dr 22 19,D1,19,11B7 


H Some 
270 DATA 8530,2A,71,40,26,80,2B,29,5D,0383 
DATA 8538,54,29,19,D1,19,CD, 2C,@5,2DD1 
272 DATA 8540,09, E1,D1,C1,CD}FA)@9,D9,47BB 
273 DATA 8548,E1,D1,C1,CD, er FEN D9,E1,560F 
DATA 8558,CD,D1 


275 DATA 8558, 2 

276 DATA 8560, 

277 DATA 8568,2. 

278 DATA 8570,01,4 D, Bun ERBEN SILBER 
279 DATA 5 E,E1,22,E7,3E,6138 


„FD,ES,21,81,00,65,21,03,4025 
DATA 8588, 00,D1,CD, 646,96, 7A,B3,CA,2BFA 
8590, Ma "26, DS, 7D,32,72, aa} 121, 16389 
H »21,03,00,D1,CD,1F47 
85A0,66,06,74,B3, MY E4,26, MH 3349 
5AB, 7D,32,71,40, 2A, ES, SE,ES,SA7D 
286 DATA 85BQ, 24,7 a, „26, on, ’2B, 29, sES, 833B 
1,19,D1,19, ES, 15AB 
0,26, MT 28,297, ’Sp} y0343 
9,D1,19,E5,2A,E7, 2D9F 
2, MT 26,00, ’2B, 2693 
9,29,D1,19,D1,289F 
A,71,40,26,00,2B,3523 
4,29,19,D1,19,CD,88A3 


8608, D1,1B,CS, &F ‚ 26,09,21,01,7287 
298 DATA 8410,08,7D, 232; ,80,43,21,01,00,1S9E 
297 DATA Bala,ES,21, 1,CD, 646,06, 7FD& 
DATA 8620,74, B3, veR! 59,27,D5,7D,32,@0FB4 
DATA 8628,71,40,21,0D,41,E5,24,71,2DC9 
3@2 DATA 8430, ‚a0, 126, @ 
303 DATA 8638, 19, ‚Di, 1 


8460, EB,B7 ,ED,52,CD,28,1@} Ben 
307 DATA 668,E1,CD,D1,05,2A,71,40,26,5982 
310 DATA 8670,00,23,D1,1B,C3,22)27,21,152F 


L&RBC1 
[5E941 
LCCEZI 
EBE4EI 
L6ESAJ 
LEEBCI 
[B4F8] 
15488] 
EDES6] 
CA9BEI 
[51641 
(F22@3 
E3FACI 
C79DC1 
131721 
[564€] 
L9C161 
cB1acı 
EZADCI 
12828] 
EBDECI 
(87041 
19602) 
CanaBı 
12068] 
[BAFCI 
LaDE2I 
C137C3 
E2BABI 
£9C523 
E1D54] 
CBFaEI 
EFDF2I 
C94AEI 
E7FS@] 
CB828] 
L827C1 
LA4F@] 
[A664] 
1345C1 
[69621 
ca4081 
EB47E] 
CE4Aa] 
CBa88] 
E236A 
EBE26] 
1896] 
[B31B] 
L62c91 
109241 
caA42] 
LAF7O] 
Cs@Ba1 
£578C1 
[3FBE] 
LAFS61 
ECD98] 
LBEAEI 
EFFDCI 
E41DEI 
LEöFS] 
LEB48] 
[C144] 
EABAsI 
(2B681 
CAS] 
EDaF8ı 
[23821 
174221 
C9QFBI 
cA518] 
19448] 
18530] 
EDFEEI 
[BEFAI 
LAEFBI 
[5E181 
EB9D6&] 
1595C3 
[08481 
CEEBEI 
EZECAI 
CBDSAI 
C6FABI 
E1E24] 
CADDaI 
LFDAB] 
£7D9C1 
(56221 
CDSA4] 
E6ADAI 
CBA7AI 
125061 
16478] 
CBADAI 
EBDacı 
LS6ACI 
CDD421 
[7A283 
[61481 
[6686] 
CE4ACI 
ESEFBI 
E&A7EI 
LC1C81 
£C968] 
LFIFCI 


8678,0D,41,E5,21,82,20,2B,29,281F 
8488 350554, 29,19, Di, 19,CD, s2C, 386A 
8688,05,CD, F7, a, cs, D5, Ei 
8690, an, al, JES, 21, MEH UL 
8698,50,54,29,19,D1,1 
86A@ ,05,CD,F7,09,D9)E v 
86A8,CD,E9,809,D9,21,79,40,CD,5@D1 
8658,D1, MS 21,0D, ar, MH 21, sol, sCcEF 
868, 00, 2B,29,5D,54) 23, 19,D1,08D7 
86C8, 19,CD,2C,85,0D,F7,89,C05,3F73 
86C8,DS,E5,21,77,40,CD)2C,05,5119 
8608,09 ,E1,D1,C1,CD)E9,89)CD)A7E3 
8608,46, 80,09, 21,73,4@,CD,D 
86E0,85,21,79,40,CD,20,0 
864E8,46,8C,D9,21,79,48,CD,D1,3AB3 
84Fd, as} 21, n73% ‚ao, CD, „ach 05, cs} B6B7 
86F8,D5,E5,21,00,00,CD,08, 10,54D4 
87@0,D9,E1,D1,C1,CD)88,06,CB}467F 
8708, 45, CA, ES, 27, 21, aa, ao, ES,0D15 
8710,CD,@1,21,21,79,4@,CD}2C,638E 
8718,85,C5,D5,E5,21,00,@0,CD}24F5 
8720,88, 18,D9,E1,D1,C1,CD,G8,11AE 
8728,06, CB,45,CA, 2D,28,21,00,344A 
8730,00,CD, MEN 18,09, ‚21, MM 40,3476 
8738,CD,D1.05,21.01.00,CD}@8,51EA 
8740, 10,D9,21,97,40,CD,D1 ‚05,3393 
8748,03, 7F,28,21,0D,41,E8}21,79D7 
8750, 83,00, 2B,27,50,54,29,19,0585 
8758,D1,19,CD,2C,@5,C5,D5,E5, 7703 
8768, 21,79,40,CD,2C,85,D7)E1,0A37 
8768, Di, c1, CD, ‘FF, 09, D9} 21, 9D, 4D63 
877@,40,CD,D1,05,21,0D)41,E5,086B 
8778, 21,82,00,2B,29,5D,54,29,120D 
8790, 19, ‚Di, 19, CD, var, yas} ’c5} D5,371B 
8780, Es, 21, 79, 40, CD,2C, as, D9, 77EB 
8798,E1,D1,C1 ,CD,FF,@9,D9,21,967F 
8778,97,40,CD,D1,85,21,79,40, AF2E 
87AQ,CD,2C,05,78,EE,88,47)C5,6F9B 
8748,D5,E5,21,73,40,CD}2C,05,51B® 
8750,09 ,E1,D1,C1,CD,FF,89,D9,47AF 
8758, 21, a5} 40, CD,Di, as, 21,2D,33C3 
87C0, al, ‚Es; 21, 21, ‚aa, ’2B} 29, SD, 1D53 
87C8, 54, 29, 19, D1,19, CD, 2r. 25,2DDi 
87D8, ‚78, JEE, ‚a0, 47,5 C5, DS, SES: 21,1767 
87D8, 73, 4Q,CD, DEN 05, D9, E1,D1,38BF 
87E8,C1, JcD, sEF, 09,09, Sa, IF, ‚a0, ana2 
37E8, ‚CD,Di, as, 21,1F,41, ES} 21,5067 
87F@,48, san} ES,21, ‚an, 02, CD, SaEr 3B64 
S7F8, iF,21,1F,41, ES, 21,21, aa, 879E 
EM 2B, 29) MH ‚29, 129, 29, ‚Di, 19, ‚B1a7 
EITEM Di, 19, ES, 21,01, MTM 2B, 29, 7087 
8818, SD, 54, 29, 19, 01, 19,ES, 221 3837 
8818, 7F,28,CD,2C,@5,D9,E1,0D,36A3 
8820, ’D1, 05,21,1F, ’a1, MS S2E 5 22} &DEC 
8828, aa, 2B,, 29, Es, 29, 29, 29, D1,Q@DF 
8838,19,D1,19,E5, Zi, @i, ‚aa, 328} 13497 
3838, 29, SD, 152, 29, ECH Di, 19, ES,@88B 
8840,21,85,48,CD, "2ch ‚as} 78,EE, 33474 
8848, ga, 47, D9, E1,CD,D1,05,21,41F7 
8858, iF, 41, ses, 21) M-cH ‚aa, }2B} 29, 38117 
gase, E5, 29, 29, 29, D1,17,D1,19,7827 
88548,E5,21,01,08, 2B} 29,5D, H-7% )7BF2 
8868, 29, FCH D1,19, Es, 21,00, au, ‚BEDC 
8870,CD,28, 19,D9,E1,CD}D1,@5)6E8B 
8878, Z21,1F,41, ES, 21, you, 20, 28, 18017 
8880, ,29} ES, 29} 29,297, Di} 19, ’D1, 2898 
8888, 19,E5,21,02,00,25,29,5D}3163 
8898, 54, 23} 19, ’Di, 19, M==H Zi 97 ,2DF9 
8878, 40, CD, 2C,@5,C5,D5,E5,21,1207 
B88AQ, MH MTH ’cD, FH ‚as} MICH sEis Di, JABBE 
SaAB, Ci, MH FA, 909,D9,E1, CD, D1,4817 
8868, MEN 21,1F,41,ES, ‚2i, ‚02, aa) Yaasa 
8aB8, 2B,, 29} Es, 29, 29, FEM Di, 19) a1A7 
88C8,D1,19, ’Es, 21, ‚a2, MT ’2B} ‚29, 7@ıF 
B88C8, Er 54,29, 19, D1,19, ES, 21,3837 
88D8, 197, a0) CD,2C, MH c5,D5, ES, 4293 
BaD8, 21, 7F, 40, CD, 2C, 05, D9}, E1,0BB7 
88EB, Di, ‚ei, Jco} FA,B9, MICH Ei, M= ACES 
88E8,D1,05,21, 1F,41,E5} 21,03, 6DCD 
B8F8, KT 2B,29, M=-H 29, 29) CH Di, Jaanr 
88F8,19,D1,19,E5,21,02,00, 2B,549B 
8900,29,5D, ‚sa, 29,19,D1,19, MH aaa 
8908, 21,9D,40,CD, 20,05, 78) EE,327A 
8910, 88) 47,D9, Eis JED, Di, ‚a5, 21 Jalr7 
89718, IF, Al, ES, 21,01, 00, 25,29,0197 
728 »E5,29,29,29,D1,19/D1,19,7027 


2,CD,2C,05,D9,E1,D1,C1,12BF 
8948, CD,FA,89,D9)E1,CD}D1}05,512B 
8950,21, 1F,41,E5,21,02,00)2B,1Q1B 


8958, 29,E5,29,29,29,D1,19}D1,289F 
8960, 19,E5,21,03,00,2B,29,50,3173 
8968,54,27,19,D1,19)E5, 21,90, 2DF3 


8970,40,CD,2C,05,C5,D5,E5,21,1207 


8778, 7F,40,CD,2C,05,D9}E1,D1}34BF 
8988,C1,CD,FA,89,D9,E1,CD,D1,4817 
8988,05,21,1F,41,E5,21,03,20,0A9A 


8990, 2B, 29,65, 29)29)29D1,19,01A7 

8998, D1,19,E5,21,05,00,28,29,7017 

S9AQ,5D,54, zu: 19, Yin nis M= 
2, 


tasıcı 
LAgacı 
C&ABaI 
EBAFAI 
LasAa] 
Cabaaı 
[BED&I 
EFC74] 
653721 
ESSDEI 
LF&aR] 
184241 
LE6B6] 
CcaB21 
£93C21 
[0366] 
EDBaAI 
CASEEI 
EFF&BI 
CADsR1 
c84641 
LAAAsı 
CAESEI 
[3D2E1 
[32761 
c94381 
LFE7EI 
C14021 
E1QE2] 
(75701 
ECSFCI 
129681 
CABACI 
EBDABI 
L4aca] 
C7@Fc1 
CAF82] 
127021 
ECCABI 
LC34C1 
LSC68] 
105341 
L38A81 
LFSABI 
E7BEQI 
CC1E81 
CBABBI 
CAQ&61 
LAssal 
[9642] 
[82041 
[8B341 
ED@Eg1 
[87541 
LA&GEI 
687141 
£537C1 
[8498] 
L92A01 
L73F21 
LADSEI 
[69501 
EDBSCI 
EB3EBI 
EBAFCI 
[FC82] 
LaA2A] 
LFDa@I 
C878E1 
CEDF4] 
LEAS2] 
CQE141 
C7D801 
[89461 
La9721 
CF&BAI 
ESSEEI 
CAIGEI 
£97A21 
COB82] 
E135E] 
137641 
EDDB2] 
LaAaB] 
EF104] 
CB358] 
[69641 
ESF7AI 
C87CE] 
[9486] 
ECBFAI 
CB6FQ1 
LAF7CI 
Cc1aal 
169881 
L8C6AI 
E54F8] 
C61121 
ED3261 
L3E4EI 
EDF16] 
CSD4EI 
CQLE21 
Canaaı 
LA1FQl 
[B4681 
EABSAI 
121701 


TSwwW.HOMECOMPUTE 


-- = = Ze —_ 


419 DATA 8908,E5,21,64,43,E5,24,71,498,7552 [87561 528 DATA 8D49,CD,3D,08,06,@E,21,70,43,68F7 IF&BA1 
420 DATA 89E0,26,00,2B,29,D1,19,5E,23,1285 L[A52A1 529 DATA 2D48,CD,E2,05,2A,6C,40,7D,32,5EAB L&EEBI 
421 DATA 89E8,56,EB,E5,21,02,@@,CD,88,@Er2 LEBBBI 53@ DATA 2050}7F,45,09,21,00,0@,7D,32,34B8 LL2461 
422 DATA 89F0,18,D97,E1,CD,@8,1@,CD,FF,2FDS LD91A1 531 DATA 8D58,8@,43,2A,BB,40,26,@0,CB,5C63 LABE®] 
423 DATA 89F8,09,C5,D5,E5,21,6R,43,E5,21F3 LCDB2] 532 DATA 8D&8,45,CA,56,2E,21,BF,4@,CD,1B99 [9BD81 
324 DATA BAB®,2A,71,40,26,08,2B,27,D1,0s@r Le@iAl 533 DATA 8D48,20,85,D9,21,A7,4@,CD,D1,0B73 L[5SB61 
425 DATA BAQB,19,5E)23,56,EB,E5,21,@2,1ESC LAC9AI 534 DATA 8070)05,C3,75,2E,21,BF,4@,CD,3DB? LBAD6I 
326 DATA 8A19,00)CD,88,19,D7,E1,C0,08,377E LFEACI 555 DATA 2078}20,@5,C5,D5,E5,24,7F,43,058D [2AD6] 
427 DATA EA18}10,CD,FF,@9,D9,E1,D1,C1,2@iF ES4EE] 538 DATA 8089)26,00,CD,@8,18,D9,E1,D1,28D7 [49961 
428 DATA aA20,CD}E9,89,D9,E1,CD,D1,05,55EB [50241 537 DATA 2D88}C1,CD,FF,@9,D9,21,A9,40,4BEE LAFSEI 
429 DATA 8A28,24,71,40,26,80,23,D1,1B,8215 [98@81 538 DATA 8098,CD,D1,05,2A,BE,A8,26,00,547C LFBAAI 
430 DATA BAS@,C3,9F,2A,C9,21,01,88,7D,4EE1 [2E96] 537 DATA 8098,CB,45,CA,8F,26,21,D1,49,6566 I[CSDCI 
431 DATA 8038/32,80,45,CD,98,14,21,18,3962 LEASAI 53@ DATA EDAB,CD,2C,05,D9,21,B5,48,CD,6321 LEAB6] 
432 DATA BA40,00,CD,22,17,CD,BA,17,07,52D7 LFA94] 541 DATA @DA8,D1,05,C3,B4,2E,21,D1,48,7AF6 LA7C4I 
433 DATA 8948, 20,20,46,61,6B,74,6F,72,14F4 [5B421 532 DATA EDB@,CD,2C,85,C0,2B,80,C5,D5,61C3 LABIAI 
334 DATA 8A5@,SA,CD,1B,29,21,D1,40,E5,2D07 LF@B8] 543 DATA 8DBB}ES,2A,7F,43,26,20,CD,28,7372 LAEAGI 


435 DATA 8AS8,21,BE,A@,ES,21,F6,FF,CD,SABS [49161 544 DATA BDCQ,18,D9,E1,D1,C1,CD,FF,@7,2BBB [98461 
436 DATA 8A60)28,10,C5,D5,E3,21,0A,09,1248 LADS2I 545 DATA 8DC8,CD,B6,8D,D9,21,B5,4@,CD,44Al [EA141 
437 DATA BAGB}CD,@B,18,C5,D5,ES,CD,2E,6E58 [71181 54& DATA 8DDB,D1,05,24,BD,A8,24,00,CB,65@3 LB78E1 
438 DATA 8A70,21,21,D1,49,CD,2C,85,C5,0@F7 [18741 547 DATA 8DD8,45,CA,CE,2E,21,CB,40,0D,0949 (55261 
439 DATA aA78,D5,E5,21,88,45,E5,21,8A,5E24 LAIAZI 5a8 DATA SDE@)2C,05,07,21,AF,A@,CD,D1,@B4S L71E4) 


aaa DATA 8A80,43,E5,21,88,45,E5,21,8D,1513 LIE4EI 549 DATA 8DEB,05,C3,F3,2E,21,CB,40,CD,2CA? LCSICH 
a41 DATA 8A88,43,E5,CD,D8,22,C7,21,01,0E97 LEBARI 550 DATA SDF@,2C,05,CD,2B,00,C5,D5,E5,0E6S L1B@B) 
442 DATA 8A98,00,70,32,80,45,CD,9B,14,118E LBSSE] 551 DATA EDFB,2A,7F,43,26,00,CD,@8,10,05F4 LDDBEI 


443 DATA 8498,21, 18, 08,CD, 22, 17% CD, BA, 1ASC L[C@BB] 552 DATA 8E88,D9,E1,D1, CH, )cD} SEE, M-CH CD,47BB L115A] 
244 DATA BAAQ,17,09,20,20,46,61,6B,74,0CD6 LASAa1 555 DATA GE@8,B6,0D,D9,21,AF,A@,CD,D1,4443 LSCD4J 
243 DATA BAAB}EF,72,3A,CD,1B,20,21,CB,2041 LA7B2] | 554 DATA BEIA,05,2A,BC,A0,26,@0,CH,A5,1B63 [S16A] 
246 DATA BABB!AQ!ES}21,BD,ABJES}Z1,F6,179G LFaBal | 555 DATA BEIB,CA,AD,2F,21,C5,40,CD,2C,672E CAFF4] 
247 DATA BABGLFF)CD,QB,10,C5,DS,E5,21,4857 LBEF4) | 556 DATA BE29,05,09,21,A3,4@,CD,D1,00,5AAs LAB7CI 
240 DATA BACQOA,BB!CD.B8.10.C5.DS,ES,IEFB LIFFBI | 557 DATA GE28,C3,2C,2F,21,05,4@,0D,2C,6BEE LF@ICH 
249 DATA BACH,CD,2E,21,21,CB}40,CD)2C,SDDE EDGE) | 558 DATA BES@,@S,C5,05,E5,2A,7F,43,26,275C LAGACI 
450 DATA BADB, a5} c5, DEMSCM „21, )sE, a3} ES,24653 LCE98] 559 DATA 8Es8, ‚ao, CD,@8,1i LtEDC6I 
51 DATA BADA}21,90,43,E3,21,71,45,ES,319F LEZ&6] | 56@ DATA BEAB,CD,FF)@7,D7, CD, [OEEBI 
32 DATA BAEQ:21198.43,E9.CD,D8122,C7,37F5 LWDCEI | 561 DATA GEAB,D1,05,21,E9,40,E5,21,12,62B4 155501 
433 DATA BAEG}21,01,00,7D,32,RG/A5,CD,1ACB LCI7EI | 562 DATA BES@,RG,ES,21,00,0@,CD,AE,IF,SED7 179901 
54 DATA BAFQ/9B,14)21,18,00,CD,22,17,4E47 LSAsAl | 563 DATA BESB,21,E9,40,E5,21,01,00,2B,20B7 L@160l 
255 DATA BAFBILDIBA,17,09,20,20,57,65,4B3B LBABB2 | 564 DATA BE4R,29,50,54,29,19,D1,19,E5,GBBB LFBBAI 
252 DATA 8B00)69174.64.20.3A.CD.1B/20,25D2 TEB661 | 565 DATA BE4B,21,A9,A0,CD,20,05,05,D5,SESB [BEEZI 
337 DATA BBOB/21.PF/AQ,ES,21,BB)AQ,ES,SAFL L&CABI | 566 DATA BE7@,ES,21,40,00,CD,08,10,09,7471 L9BSal 
458 DATA 8B1@,21,0C,FE,CD,08,10,C5,D5, jaıcr 173001 567 DATA SE7BJE1,DI,CH,C 29,D9,E1,5677 LABS@I 
459 DATA BB1B,ES,21,F4,01,CD,@8,18,C5,62FD L[DaBA) | 568 DATA BEBQ,CD,DI,05,2 1,E5,21,5067 [837A1 
460 DATA 8B20,D5,E5,CD,2E,21,21,BF,40,4832 LAEAGI 569 DATA BEBB,E9,40,ES,Cı 3,21,A3,757D LSD@B] 
461 DATA 8B28)CD)2C,05,C5,D5,E5,21,20,642E LD6AEI | 578 DATA ESG, Eh 5,65,21,1207 [95801 
462 DATA BB30,00,CD,@8,1@,D7,E1,D1,C1,376F LsEA2) | 571 DATA 1,FA,GE,1BS6 179821 
463 DATA 8B38,CD,FA,Q9,CD,D®,GF,CD,8@,5256 L3C221 | 572 DATA A,@9,CD,A7AF L637C1 
36 DATA 8B90,07122194,43,09)21,01,00,1B7E LF7283 | 573 DATA BEAB,B7,@C,CS,DS,ES,21,AF,4@,5502 LIBE&I 
Mes DATA 8B49,70132,80)43,CD,96}14,21,2250 138761 | 574 DATA BEB@,CD,2C,05,09,E1,D1,C1,CD,4SBS LAASZI 
A&& DATA 8630} 18,00,C0,22,17,CD,BA}17,1S6F LFAmAı | 575 DATA BEBA,FA.UF.D?.Z LEA1A] 
467 DATA 8B58,09,20,20,57,49,6E,6B,65,0FBS L7B7E] | 576 DATA BECO,05,21,AS, C3DBC) 
Aea DATA BBAB!OCISAILD.1BL20/21,C5,40,2@DE LFiBSI | 577 DATA BECA,DS,ES,21,7B,96,11,12,35,54B5 [O4] 
469 DATA BBEBIESNZI,BCIAN,ES,21JBCHFEISEBA L77FC) | 578 DATA BEDR,@1,FA,BE,D9,E1,DI,CA,CD,S758 L7DINI 
47a DATA 8B70,CD,08,10,C5,D5,E5,21,F4,6F5A L32D8) 579 DATA BEDB,FA,@9,CD,7F,0C,CS,DS,E5,632B [0766] 
EB7B/OL.CD/OR,10/CS!DS,ES,CD,S7BB LEBFB) | 500 DATA GEEQ,21,AF,40,CD,2C,05,D9,E1,3FB7 LE7121 
BB90.2E,21.21,05,40,C0,2C.05,1659 [76481 | 581 DATA BEEB,DL,C1,CD)FA,@9,D9,21,97,4039 L1B241 
EBaG,CB,BB}LS/DS}E5,21,76,96,59BC LSA2CI | 582 DATA BEFR,A@,CD,D1,85,21,67,A1,E5,09C5 LAD9&l 
@B9@,11,12,35,01,FA,GE,D9,E1,@COB LFA94] | 583 DATA BEFB,21,48,00, 1,99,20,CD,0Di5 L&6SC] 
EBSG\DL\CI.CDIFA,B9,CD,B7JOCHACBE L&D7@) | 504 DATA BFO@,AE,IF,21,67,41,E5,21,01,254F L17AEI 
GBAB!D9:21.88,40!CD}D1.05.21,7567 LsABG) | 585 DATA BF@B,a0,2B,27,E5,29,27,27,D1,0@Dr LS2GE) 
8BAB,CS, a0, CD, 2C 5! as, c5,D5, Es, 6B93 L6SBEI 586 DATA St 19, ’Di, 19,E5,21, ‚01, MH 28} 3497 CBFS34] 
8BB@,21,7B,96,11,12,35,@1,FA,1D2C L&S7E1 587 DATA 8F18,29,5D,54,29,19,D1,19,E5,088B [9359C1 
@BBE,QE,D9,E1,DI,C1,CD,FA,@9,24B1 [L#63E1 | 588 DATA 'D,2C,@5,C5,D5,393B LB6BB] 
8BCa}CD,7F,8C,D9}21,7F,40,CD,75E9 LACS@I 589 DATA D,2C,@5,D9,6D2B [2810] 
85C8,D1,@5,21,8F,47,11,E1,FA,6654 [25A41 598 DATA 'A,89,D9,61,5697 (59121 
BBDRJOL,FE,7F,CS,DS,ES,21,85,394B L2DF@1 591 DATA 1,67,41,E5,21,5547 [61821 
8BD8}48,CD,2C,05,D9,E1,D1,C1,12BF [S1BEI 592 DATA Er 156181 
SBEB,CD,FA,@7,CD,D@,@F,22,96,559E LEC2CI 373 DATA „19,E5,21,02,00,72D8 TEC&6] 
EBEB,AS,21,0F,47,11,E1,FA,QL,SEA9 L[Sical | 374 DATA 354,29,19,D1,19,11B7 [09761 
BBF@,FE,7F)CS,DS}ES,21,7F,48,7222 LA3F81 575 DATA 0,CD,2C,05,D9,6A2B L9SDCH 
8BF@,CD,2C,@5,D9,E1,D1,C1,CD,45B3 [654A1 576 DATA 1,67,41,65,5945 LBS721 
Scan, FA,09,CD,D@,OF,22,98,43,6A63 L7ACA] 537 DATA B,29,65,29,29,1057 L1C32] 
eco, c9 21,08,00, CD, a8, 10, 09, 6471 177721 598 DATA 8F7&, 29) Di, MUCH D1,19,| sES, 21,82,2DEC L92AEI 
8C18, 21, C5,40,CD,Di, yas, ’21 sa, )23CF 15452] 599 DATA 8F78,00, 25, 29,50, 54, 29,19,D1,08D7 L1D9@] 

IS2FA] | 00 DATA BFBQ,19,E5,21,90,40,CD,2C,05,3959 L524A) 
138DA] 681 DATA BFBB, D9, El, CD, D1,05,21,67,41, ja053 [7888] 
114981 | 482 DATA 8F9@,ES,21,02,00,2B,27,65,29,7A9F L[&47E1 
Cegacı | 603 DATA 1,19,D1,19,E5,21,0277 LAASEI 
[A7aB] | +84 Data 9,5D,54,29,19,0583 LEC30] 
[BASE] | 405 DATA BFAB,DI,19,E5,21,9D,AQ,CD,20,742E L37E61 
8C48,CD,2C,85,C5,D5,E5,2 LA7DBI | 406 DATA BFBB,0S,78,EE,00,47,09,E1,CD,0913 ‚CQsDal 
8C5@)43)E5,21,8A,43,E5,21,8B, (0621 | 4@7 DATA GFBB,D1,05,21,67,41,E5,21,03,6A4D "142721 
8058,43,E5,21,8D,43,E5,CD,DB,14FE L4B1@1 608 DATA BFCA,00,2B,29,65,27,29,27,D1,00Dr [38901 
8C40,22,21,01,00,CD,@8,18,D9,1FDI L&B3A1 609 DATA 5,21,05,00,2B,349F L&8D82] 
8048,21,CB,40,CD,D1,@5,21,01,204F [38641 | &1® DATA 9,19,D1,19,E5,088B [93981 
8C70,00,70,32,BD,48,21 ‚CH, "Mallıs2 cA9a2ı | &il DATA BFDB,21,77,40,CD,2C,05,D9,E1,51B7 LB&CQI 
L4DCC] 612 DATA 8FE@,CD,D1,05,21,1F,41,E5,21,5867 [41821 
[B154] 613 DATA SFEB,AF,41, MH co, 58, 26, 21, Ar, 55@5 L[41EC] 
C16B6) | 614 DATA }413E5,21,67,41,65,CD,DA,1BAC LSDF2I 
La7FEI 615 DATA 8FFB,24,21,AF,41,65,21,1F,41,0063 L[5F98] 


8C40,00,7D,32,BE,48,21,D 


8698,43, 21,05,20,E5,2 tapsg] | #1& DATA sEnDE« " CEQCEI 
ScAug, 'co, DB,IF, ‘CD; IB, 1 [A328] 617 adr=&B8Q@0: zeile=1Q4:MEMORY &7FFF LiB4E] 
8CAB,@Q,CD, 22, 17,CD, BA, 1 £B1C8] 618 READ d$: IF d$="#ENDE#"THEN 629 EFFAAI 
BCBQ,A1, }6E,7A,61,68,6C, ’ [9184] 617 pr=® - [SF1E] 
8CB8}21,@3,28,CD,22, 17,C b [83A41 628 FOR i=1 TO 8 [1662] 
ECCa)20,21,4F,48,CD,CC,14,06,10D6 [14841 621 READ as: a=vAL.t EF1401 
SCC8,@E,CD,8E,16,CD,1B,20,0D,2269 [36161 622 POKE adr ‚a:adı c2A1C1 


L7F&A1 623 pr=prx2:IF 


8CDB,9B,14,21,18,08, 
‚2b .1812 Fi Lazacı | &24 pr=UNT(pr>x 


BRTESTSS THEN Preer Seesen EB59C1 
8CD8,21,02,00,CD,22,1 


a:IF pr<@ THEN pr=pr+6553 


’ 

BCE@,20,21,4F,40,CD,3A,85,21,130B LF&SCH Gt, LSEB41 
SCEB,6C,A@,ES,21,&A,A0,CD,FA,SBBE [69061 | 625 NEXT i LAsmal 
BCF@}1E,2A,6A,40,E5,21,00,00,BBsC [65821 626 READ pr$:pr2=VAL("&"+pr$):IF pr2<@ THEN 
8CF8,D1,CD,7F,@6,E5,2A,6C,48,5558 LBEF&I pr2=pr 2+65536 142961 
8D02,E5,21,64,90,D1,c CBFA81 627 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
@DA8,D1,7D,AS,6F,E: 2A,6C,40,6248 LFACBI in Zeile";zeile:STOP L&B1E] 
8D10,E5,21,0@,@@,D1,CD,CC,@6,7EE2 LSFaB1 628 zeile=zeile+1:6070 618 L1E7ZAI 
aDı8, Di, ,7D,: AZ, 6, ES, 2A,6C,48,6248 [B2C6] 627 SAVE"CREPAS1.BIN" ,B,28000,21098 [838A]J 
8D22,E5,2A,7F,43,26,0@,D1,CD,738F LB9BBI 658 PRINT d$:END [BıFEl 


8028, 92, 86,Di, 7D, a3, sr, CB, 45, 58827 LAsA&] istüi | 7 . 
BD30 CA, 34 .2E.21.4F,20} !En!salenaa rBeca1 Listing 13. Pascal-Programme in Maschinencode: 


8D38,05,21,20,00,65,2E,@1,E5,0DB7 LI@3EI »CREPAS1.BIN« (Schluß) 


79 


HOMESOMBUTER 


Me re 


181 ‘* CREPAS2.DAT - DATA-Lader von 'CPC’ = 
102 RR 
103 


184 DATA 908Q,E5,CD,DA,24,21,8D,41,11,596F 
195 DATA 9008, FB,49,01,12,0@,ED,B@,21,6£75 
196 DATA 9@19,AF,41,E5,21,FB,40,E5,CD,SEAF 
107 DATA 9B18,FC,23,21,01,88,E5,21,05,7125 
108 DATA 9020,00,D1,CD,66,96,7A,B3,CA,2BFä 
197 DATA 9028,A1,31,D5,7D,32,71,40,21,4145 
118 DATA ES, 21,04,08,2B,29,592F 


111 DATA 29,29,D1,19,D1,19,7827 
112 DATA 71,48,26,88,2B,29,736F 
113 DATA 29,19,D1,19,E5,21,3837 
114 DATA 1,48, 26, 00,0n84 
115 DATA 7,17,D1,19,11B7 
116 DATA 5565,21 ,FB,64F5 
117 DATA 9, 26,00, 2B, 19A3 
118 DATA Ci R 

119 DATA 1,C1,CD,F2,0694 
120 DATA 1569,48, 5,2369 
121 DATA 19, 2B, 27,50, 0383 
122 DATA 9,CD,2C,85,2DD1 
123 DATA D1,C1,CD,E9,89,C5,A7EB 


124 DATA 9QAB,D5,ES,21,02,00,CD0,08,18,54F4 
125 DATA 9BAB,DF,E1,DI,CI1,CDYFF)@9,D97,A7AF 
126 DATA 9GBRJEI,CD,D1,05,2N,71,49/26,5982 
127 DATA 9GBB,20,23,D1,1B,C3,07,31,21,1517 
128 DATA 90C0,B1,00,E5,21,05,00,D1,CD,1F47 
129 DATA 90CB, 66,26, 7A,B3,CA, 12,34,D5,3055 
130 DATA 9@D0,7D,32,71,40,21,48,43,E5,384B 
131 DATA 90D8,2A,71,40,26,00,2B, 27,E5,833B 
132 DATA 9QEB,29,29,D1,19,D1,19,E5,21,0277 
133 DATA 9QEB,05,00,2B,29,D1,19,E5,21,0277 
134 DATA 9OF@,01,00,)EB)E1,73,23,72,21,1021 
135 DATA 9QFB,AF,41,E5,21,01,88,2B,29,5987 
136 DATA 9100,E5,29,29,29,D1,19,01,19,7027 
137 DATA 9108,E5,24,71,40, 26,00) 28) 29,736F 
158 DATA 9119,5D,54,29,19,D1,19,CD,2C,386A 
139 DATA 9118,05,CB,BB,05,D5,E5,21,81,2E6F 
149 DATA 7120,00,CD,08,12,D9,E1,D1,C1,376F 
141 DATA 9128,CD,D6,8 721 ,AF}41,ES,5E43 
142 DATA 9130,21,02,00,2B,29,E5,29,29,1@17 
143 DATA 9138,29,D1,1 9,E5,2A,71,2D89 
144 DATA 9140,48,26, 9,5D,54,29)2BED 
145 DATA 9148, 19,D1, C,@5,CB,B8,376A 


HM 
1 
‘Ei 
147 DATA 7158, 10,09, En 
@ 
’D 


148 DATA 9168,D1,7D, 
149 DATA 9168,E5,21,05, 10 ,28,27,£5,27,7ABE 
159 DATA 9170,29,29,D1,19,D1,19,E5,2A,827C 
151 DATA 9178,71,48, 26,00, 2B,29,5D,54,2D52 
152 DATA 9180,29,19,D1,19,CD,2C,95,CB,8r69 
155 DATA 9188,B8,C5,D5,E5,21,@1,00,CD,7871 
154 DATA 9190,08, 18,D9,E1,D1,C1,CDD6,11FB 
155 DATA 9198, 06,D1,7D,B3,6F,CB}45,CA,3304 

5,21,04,2822 
A,BS,CA,2BFA 
2,40, 21,6E89 
au 


JES,21,AF)41,61E3 


9,19,1703 
'5,D5,E5,77D3 
ECH 09 e iDes 


2,21% Ban ae tern 
18, 2B,29,736F 
1,19,E5,73AB 
1,19,E5,11AB 
1.40. 24.0682 
9,D1,19,B1E7 
00, 2B, 29, 7027 
JEB,ES,21,6707 
1E1,73,23,1F29 
„81 ,00,E5,1819 
D, 66,06, 7A, 1AD& 


92A8,19,E5,2A, 71,4 
170 DATA 92B@,29,50,54,29,1 
171 DATA 92B8,2C,@5,C5,DS}E: 
192 DATA 92C@,11,E1,FA,B1,Fi 
193 DATA 92C8,D1,C1,CD,FA, 
194 DATA 92D8,EB,E1,73,23,7; 
195 DATA 7208, 26,08,23,D 


1,33,1935 


197 DATA 92E8,80,2B,29,E5,29,29,D1,19,@1E7 
198 DATA 92F®,D1,19,E5,21,84,88,2B,29,782F 
1,65, 21,7567 


127,29,0287 
2@1 DATA 9308,D1,19,D1,19,E5,2A,71,40,7252 
202 DATA 9310,26,88,2B,29,5) 9,19,1783 
203 DATA 9318,D1,19,CD,2C,85,CD,D8,8F,7713 


172281 
[B16E1 


LEA2CI 
EDEB&IJ 
LE778] 
EFB44] 
ESFFCI 
CDBEZI 
[B6AEI 
L7SFE] 
[B82C3 
E153C9 
CıDial 
184301 
CAFF2I 
12846] 
L3ED2I 
£5D1A] 
CAR] 
184C21 
12C82] 
LEC@B] 
CAC6CI 
13914) 
10644] 
EBS4EI 
19868) 
12494] 
CAB38] 
C18721 
c2C183 
tE838] 
L6B36] 
CD@261 
L7EF4J 
CABAB] 
[4136] 
613321 
17582] 
£73B8] 
cD4721 
EBAB&I 
LAACEI 
188783 
C9D2A1 
EBACBI 
[B1881 
EZADBI 
L7ABBI 
t8288] 
CA7541 
[6418] 
LESFEI 
[8188] 
LEFA2I 
LFBEA] 
ECSCB] 
CBBEGI 
ED18C9 
188841 
£4158] 
175201 
[745A] 
[SEBEI 
Ecaia) 
[BF6B] 
[35183 
LBCFB] 
17A381 
144481 
[96E63 
CF24C3 
177261 
C1E96] 
L7E2A] 
La2hB] 
EFASCI 
L9@18] 
CDD94J 
[535AJ 
ccaF21 
EA2623 
[2696] 
[94ER] 
EA164] 
EZESEI 
185421 
E2A16] 
1828C3 
LED3@] 
£4682] 
EF3881 
escic9 
C442A1 
18562] 
E1AZA] 
L2ABAJ 
EF7743 
L134E] 
CABBEI 
LE1D6] 
L9A28] 
[2DE@I 
EDOA6I 


9320 ,EB,E1,73,23,72,24,71,48,420R 
9328, 26,88, 23,D1,1B,C3,AC,31,18CD 
9330,09 ,2A,70,43,E5,21,1E,00)&5A0 
9338,D1,CD}E®,@6,CB,45,CA,2D,4155 
7340,34 ,21,82,80,7D,32,7C,45,119B 
9348,03, 30, 34,24, 78,43,E5,21,69C7 
9350,84,20,D1,CD,8F,87,7D,32,135C 
9358, 7C,43,21,82,21,11,A2,DA,2212 
9360,01 ,0F ,49,C5,D5,E5,21,04,054A 
9368, 00,CD,@8, 10,D9,E1,D1,C1,376F 
9378,CD,FF ,09,C05,D5,E5,2N,7C,5124 
9378,43, 26,88, CD,@8, 18,D9,E1, 2583 
9380,D1,C1,CD,FF,89,D9}21,64,4D9A 
9388,48, CD,D1,05,21,90,08,11,0n69 
9398, 00,00, 01,00,00,C5,D5,E5,027B 
9398, 21,64, 40,CD, 2C,05,CD, 87,037 
93AB,8C,D9,E1,D1,C1,CD,FA,@9125B1 
93A8, CD, DB} @F}22, 78,43, 21 ,90,535E 
93B0,00,11,00,00,01,00,00,C5,@80D 
93B8, D5,E5,21,64,40, CD, 2C, 05,509 
93C0,CD,7F ,8C,D9)E1,D1,C1,CD,7053 
93C8,FA,89,CD,D@,0F ‚22, 74,43, 6BA7 
9308,21 ,00,90,22,72,43,C9,CD,1163 
9308,98, 14,21,18,00,CD, 22, 17,4E47 
93E0,CD,BA,17,08,20,20,4E,61,4B1D 
93E8,6D, 65, 3A, 28, 21,03,00, CD, 2B49 
93F8,22,17,CD,1B,20,CD,4D,05,0E7B 
93F8, 80,06, BE, 21,4F,40,CD, E2,0050 
9400,95, 21,4F ,40,CD,CC,14,06,0256 
9408, 0E,CD,BE, 16, CD, 1B,20,CD, 2269 
‚98,14 ,21,02,00,CD,22,17,AFE7 
21,18,80,CD,22,17,CD, 1B} 1A9D 
9420,20, 21,4F ,40,0D,3A,85,CD,13£7 
9428, 4D, 85,00, CD,8D,06,CB} 45, 2EBS 
9438,CA,1F,35,21,FF,00,7D,32,6148 
9438, 81,43,03,59, 35, 21,9D}3F ‚4099 
9440,65, 21,4F ,40,CD,34,85,CD,7167 
9448,40, 85,04, 2E,4F,42,4A,CD, 2689 
9450, 30,88, CD,70,13,21,9D)3F,0337 
9458, 11,81,88,CD,11,1B,CD,F1,0593 
9460, 1F ,7D,32,81,45,21,9D,SF}1DQ9 
9468, CD,5D,1A,E5,21,30,@0,D1,7DC9 
9470 ,EB,B7,ED,52,22,86,43,C9)4387 
9478,21,9D,3F,11,01,00,CD,11,3@B3 
9480, 18,CD, 1B,20,CD,F@,26,21)3BES 
9488, 48,43,22,6A, 40, 21,00, 80,30A4 
9490,65, 21,2F ‚08,D1 ,CD,66,06,7A56 
9498, 7A, B3,CA,A1,35,D5,22,40,0044 
4A, 40,21 ,9D,3F ,CD,A4,18,2A,SCF2 
F4AB,6C, 40, ES, 2A,6A,A0,D1, 19, SBEB 
94B0,CD,B6,18,CD,1B,20,2A,6C,24BQ 
9458,40, 23,D1,1B,C3,7A,35,C9, 3483 
94C0,21,2D,3F,11,01,00,CD, 10,38B2 
94C8, 18,CD,1B,20,21,40,43, 22} SEBC 
9400, 6A,40,21 ,80,80,E5,21,2F ‚2209 
7408, 80, D1,CD, 66,06, 7A,BS}CA} 2BFA 
F4ED,E6,35,D5,22,60,40,21,9D)647F 
94E8,3F,CD,A, 18, 2A, 60, 40} E5,3945 
94F@, 2A, 6A,48,D1,19,CD,DC, 18, BBCC 
94F8,CD, 1B,28, 2A, 60,40, 23,D1}6417 
9580, 1B,C3,BF,35,C9,21,80,00)2FSc 
9508, E5,2A,86,43,E5,21,01,00, 6BSE 
9518, Di ,‚EB,B7,ED,52,D1,CD,66,4A58 
9518,06, 7A,B3, CA, 22, 36,05, 22,0700 
9320, 6C,48,21,9D,3F ,CD}A4}18)286C 
9528, 2A, 6C,4®,E5,2n, 82,43, D1}QBSF 
9538, 19,CD,B6,18,CD, 1B,20, 2A) 2EEE 
9538, 60,40, 23,D1,1B,C3}FB}35,2D67 
9540,21 ,9D,3F ,CD,7A,18,CD}1B,3EC1 
9538, 20,C9,21,00,00,E5,2A,84,2524 
9550,43, E5,2A,82,43,D1)EB,B7}159D 
9558, ED, 52,65, 21,01,0@,D1}EB}7DFL 
9560,57 ,ED,52,D1,CD,66,96}7A,6@16 
9568, B3, CA, 78, 34, D5, 22, 60,40, 6008 
9570,21 ,90,3F ,CD,A4,18,2A,6C, 3988 
9578, 48,E5,2A,82,43,D1,19,CD} 1583 
9588, DC, 18,CD,1B)29,24,6C)40)7120 
9588, 23,D1,1B,C3,49, 34, 21,90, 28DF 
3590, 3F ‚CD, 7A, 18,CD}1B,20,C9,248D 
9598, 24, 28,43, E5, 2A, 2E,43,D1} 108F 
95AB ‚EB, B7 ,ED,52,CD,88,07,22,4484 
9508, 6C, 48,24, 20,43, E5, 2A, 32, 206A 
9569, 43,D1 ,EB,B7,ED,52,CD,88,@4EA 
9588,87, 22,6, 40, 2A, 4,40, E5,0205 
95C9, 21 ,85,08,D1,CD)CC,86,CB, 194F 
95C8, 45, CA, 68,38, 2A, 40,48, ES, 1F@S 
9508, 21,80,08,11,20,00,01,08,3192 
9508, 28,D7,E1,CD,@8, 10,CD}FA}S7D8 
95E0,89,05,D5,E5,2A,&4,40,CD)2185 
9568,08, 18,D9,E1,D1,C1,CD}D6} 11F® 
9SF0,06,CB,45,CA,F4,36,21,80,327A 
95F8, 02, E5,2A, 40,40, CD, 08,10! SAF4 
7600,D9,E1,CD,08,10,CD,FF,29,4FAS 
96088,D9,21,64,40,CD,D1,85,03,6945 
9612,00,37,21,90,01 ,E5,2A,6A,@5C2 
9618,40, CD,88, 10,D9,E1,CD}08,179E 
9620, 10,CD,FF,@9,D9,21,64,49,22F4 
9628, CD, D1,85, 2A, 23,43,E5,21,513F 
9630, 4@,21,D1,EB,B7,ED,52,E8,329D 
9639, 2A, 28,43,E5, 2A, 2E,43,D1,180F 
9640, 19,E5,21,02,29,D1,CD,@F,3311 
9648,87 ,D1,EB,B7,ED,52,E5,21,261B 
3650, 64,40, CD,2C,905,D9,E1,CD)5B23 
7658,08, 19,CD,FA,@7,C5,D5,E5,1413 
9660,21,40,01,CD,08,18,D9,E1,0D23 
9668,D1,C1,CD,E9,29,D97,21,5E,ACca 
9670,49, CD,D1,05,21,5E,48/CD,090D 


La92A1 
LAB6CI 
LCCZEI 
E52C8] 
LB6F41 
LAE66] 
L3CaB1 
[7B@AI 
[C8361 
12490] 
LFFEB@I 
[QESAI 
ECQEBI 
EAFIEI 
136FA1 
ED9BEI 
C99EEI 
£C6721 
C75AA1 
[20921 
c2cac] 
EDAF4I 
EBCAAI 
c81581 
19798] 
CBB6AI 
LABAEI 
CAaaAı] 
[242A] 
EAFD2I 
C1C361 
6647C9 
£C8741 
E2DB21 
173681 
[79761 
EB688] 
EBAB6] 
[30521 
LaASA] 
[65621 
12654] 
ESDAZI 
62738] 
LBBAAI 
EARCEI 
CEB72] 
E3B8A1 
£93CD1 
ED7CCI 
C61D41 
[D26C9 
157303 
CDF&CI 
L9ESA] 
C9AFBI 
E6E8B] 
EBDCCI 
C9SEAI 
[7488] 
L966C9 
[2856] 
CBB@4J 
CDBAB] 
L&EABI 
LasgE] 
[36E4] 
[5198] 
E59F4) 
LEDB6] 
La@A6] 

C&1B6] 
EAFAAI 

LO9BEI 
CD8Ca1 
EDF7CI 
(9978) 
LA298] 
[58E8] 
CA79A1 
Lıac29 

EOBB6] 
ED316] 

EAA72I 
C47C41 

E2BACI 

CaABBı 

Ca2FAl 
EF9BEI 

EBBDAI 
15798] 

CAABBI 
15786] 

EB9921 

CBF441 

EFCBCI 

[25661 

CSBSEI 

E71A6] 

61982] 

LE2261 

L62BA] 

L&DACI 

EFSABI 

C813343 

ESFF4J 

160741 


> 


311 DATA 9678,2C,05,CB,B8,C5,D5,E5,21,0137 LE2961 420 DATA 99EB,6E,26,80,11,01,0@,B7,ED,3E1B [29601 
312 DATA 96BB,FF)7F,CD,@8,18,D9,E1,D1,7B97 ICFFAI 421 DATA 99E8,52,C2,E9,3A,CD,9B,14,CD,@se1 [26921 
313 DATA 9688,C1,CD}C2,@6,CB,45,CA,7F,AD47 [99@81 422 DATA 99F0,BA}17,11,45,63,4B,65,6E,SCAB LFC9B] 
314 DATA 9690,37,21,5E,48,CD,2C,85,CD,1AiF LDSA41 423 DATA 97F8,20, 7 2,62,72,61,75,046F [SA2CI 
315 DATA 9698} DQ,BF}22,23,43,24,25,43,6F09 [BBSEI A2a DATA PAQB)63,48,74,2E,CD,1B,28,CD,2169 LFB9G] 
318 DATA 96AQ)ES}21)C8,00,D1,EB,B7,ED,6767 IESE@I 225 DATA #AQB}9B,14,21,18,0@,CD,22,17,4E47 LFFACI 
317 DATA 96AB}52,E5,2R,2C,43,E5,2A,32,162A [B4BA1 322 DATA 9A1Q)CD}1B)20,2A,59,3E,6E,26,642R Lamas] 
318 DATA 96B@,45,D1,19)E5,21,02,00,D1,1961 LBIICI 427 1,80,@0,D1,7C,B2,366E [9764] 
319 DATA 9&BA,CD,@F)07,D1,EB,B7,ED/S2,6CHE LA166I 428 }6FJEB,2A,59,3E,3B2C [DABel 
320 DATA 96CB)ES,21,64,49,CD,2C,05,D7,744B LF&BEI 429 A,FF,20,E5,21,43,03E5 [2AA2] 
321 DATA 94CB)E1,CD,@B, 10,CD,FA,09,C5,4697 L7BEAI 438 9A30,72,D1/CD,92,86,CB,45,CA,1ESC L[AsE8] 
322 DATA 96D0,D5,E5,21,C9,@@,CD,08,18,5854 LIB&EI 431 DATA 9AS8,76,3B,21,43,72,22,FF,2 EF236] 
323 DATA 96D8}D9,E1,D1}C1,CD)E9,99,D9,47F7 [F730] 432 9n48}21,9D,5F ,ES,CD,40,05,04,392C L2DCCI 
324 DATA 96E0)21,5E,4@,CD,D1,05,21,5E,0550 [SASB1 433 a5}41,54,45,2E,43,3A1B [C532] 
325 DATA 9468, 40,CD,2C,@5,CB,B8,C5,05,1577 [2DE&] 434 }24.CD}70,13,21,9D,31 E17823 
322 DATA eF@)ES,21,FF,7F,CD,08,19,D7,6461 LFFDA1 435 DATA 9ASB,11,01,0@,CD,11,18,CD,1 LaasAl 
327 DATA 96F8,E1,D1,C1,CD,C2,@6,CB,45,57EB L7A221 438 DATA 9A60,20/21,00,43,22,60,48,21,1C71 LDIDEI 
328 DATA 9700,CA}F1,37,21,5E,480,CD,2C,5FF6 [21081 437 DATA 9A68}90,3F,CD,49,1A,7D,EE,@1,5C89 [FDZEI 
329 DATA 7708,@5,CD,DB,@F,22,25,45,2A,2n18 [197661 438 DATA 9A70,6FJCB,AS,CA,76,3B,21,9D,@2C5 L@9DCI 
330 DATA 9710)20,43,E5,21,64,4@,CD,2C,1DE& [C@SAI 439 \3F}CD,A4,18,2A,60,40,CD,3576D LBE141 
331 DATA 9718)85,D9,E1,CD,@8,1@,CD,FA,255@ LASB@I 440 8/CD}1B,20,2A,6C,40,4420 LSB6E) 
352 DATA 9720,99,09,21,64,40,CD,D1,05,3053 185221 441 1,01,0@,D1,19,22,4C,7C24 [92461 
333 DATA 9728,21,64,40,CD,2C,05,C5,05,007B LCA921 442 ca8821 
334 DATA 9730,E5,21,FF,7F,CD,08,10,D9,6461 [@EREI 443 ECFB81 
335 DATA 9738,E1,D1.C1.CD!D6.06\CB,45,574B LA4E41 424 LC97C9 
336 DATA 9740,CA,54,38,21,64,48,CD,2C,7686 [47601 445 EDDAZI 
337 DATA 9748,05,C5,D5,E5,21,@2,@@,CD,24FD LD49A1 446 ESBDCI 
338 DATA 9750,08,18,D9,E1,D1,C1,CD,FF,11D9 LASEB] 447 [32481 
339 DATA 9758,09,D9,21,64,40,CD,D1,05,5033 [90461 448 ESESEI 
330 DATA 9760,28,22,43,26,00,E5,21,01,1457 LS@DBI 449 LACE6] 
341 DATA 9768/00,D1,19,7D,32,22,45,C3,SiED L1A521 458 „7D, [ES461 
342 DATA 9770,04,3B,21,64,40,CD,2C,@5,0089 L[122A1 451 DATA 9AD8}32,9E,40,2A,AE,A0,26,00,@S1C [FAME] 
343 DATA 9778,CD,D@,0F,22,2@,43,C9,FD,5@23 LF&9A1 452 DATA 9AEQ,ES,21,00,08,D1,CD,CC,B6,6EE2 IC2DEI 
344 DATA 97B0JE1,E1,22,65,SE/FDJES,2A,A954 [S2AEI 453 DATA 9AEB,CB,AS,CA,E1,SB,21,4E,40,6218 [BABEI 
345 DATA 9788,65)3E,6E,26,00,11,02,00,51E@ [E@G6] 454 DATA 9AFBJES,CD,72,3A,21,02,00,E5,4DCS L7FCH] 
34& DATA 9790,B7,ED,52,C2,36,37,2A,34,6794 [EDB&] 435 DATA FAFB,CD,00)43,7D,32,4E,40,C5,690B LCDE41 
347 DATA 9798)43,E5,2A,3A,43,D1,EB,B7,1E1D L[@DEBI 456 DATA 9B0@,87,3B,21,03,00,ES,CD,OB,ABSE 179761 
348 DATA 97ADJED,52,CD,08,10,D9,21,E3,7865 L9BBB] 457 DATA 9BQ8}43,7D,32,4E,40,C3,D4,20,5CE4 [D798] 
349 DATA 97A8,48,CD,D1,@5,2A,36,43,E5,BEDB [C&BEI 458 DATA 9B1@)40,C3,49/5B)CD,EB}2C,CD,1F@I LCDR2I 
338 DATA 97B@,2A,3C,43,D1,EB}B7JED/52,1B7C L61@4] 459 DATA 9B18}F0,26,21,01,00,E5,CD,00,77BE [74881 
351 DATA 97B8}CD}08}10,D9,21,DD,40,CD,6921 LISECI 460 DATA 9B20,43,7D,32,4E,40,2A,AE,A0,SE14 LAESC) 
352 DATA 97C0,D1,85,24,30,45,E5,2A,SE,6EE6 LIBBAI 461 DATA 9B28,26,00,E5,21,80,0@,D1,CD,@ebDr [84821 
353 DATA 97C8,43,D1,EB,B7,ED,52,CD,@8,0462 LADE6] 362 DATA 9850,92,06)CB}45,CA,74,75,2A,52F0 LE@9A) 
354 DATA 97D0,18,09)21,D7,49,CD,D1,05,3785 LBA7OI 463 DATA 9B30,4E,40,26,00,E5,21,80,00,556C [D5281 


355 DATA 9708,21,E3,40,CD,2C,@5,05,D5 
356 DATA 97E0,E5,21,63,48,CD,2C,05, 
357 DATA 97E8,E1,D1,C1,CD,FA,@9,D9,2 
358 DATA 97F@,ES,A0,CD,D1,05,21,DD,4 


2CBB L@AFZ] 464 DATA 9B40,D1,CDJE@,06,CB,45,CA,EQ,4198 LDCEEI 
4AB LBADAI 365 DATA 9B48}06,21,4E,40,E5,CD,61,38,0266 [AM&6] 
657 [CFFEI 428 DATA 9B50)21,00/00)E5,CD,02,43,7D,1845 L&BSB] 
466 [7C9E] 487 DATA 9858, 32,4E,40,2N,4E,40,26,00,0SIC [A401 


359 DATA BAAR CD} 2C,@5,C5,D5,E5,2 „6403 L&F1A] 68 DATA 9BAR)ES,21,80)00,D1,CD,CC,Q6,6EE2 L7SDM1 
360 DATA 1,12BF L[C2B8] 369 DATA 9B48,CB,45,CA,CC,96,21,4E,40,6128 LADC2] 
361 DATA 'D,5681 L[DDEEI 478 DATA 987@,E5,CD,72,3A,21,02,00,E5,4DC5 L7AABI 
362 DATA 5,61F9 LEDECI 471 DATA 9B78,CD,00,43,7D,32,4E,4Q,C3,69DB L2EC41 
363 DATA C,Ar7E LOBF6I 372 DATA #ENDER " LAECEI 
364 DATA 9,2151 LBCARI 473 adr=&9@00: ze: 184: MEMORY adr-1 ECFICH 
365 DATA 9828,09, 21,D7,40,CD,D1,@ v ED8981 474 READ d$: IF d$="#ENDE#"THEN 485 E67AAI 
362 DATA 9830,E3,40,CD)2C,05,C5,05,E5,7875 LCIBBI 475 pr=® Es71El 
367 DATA 9838} 21,D7,40,CD,2C,@5,D9,E1,21B7 [BEAB] 476 FOR i=1 T0 8 [2741 
368 DATA 9848,D1,C1,CD}E9,07,0D,4 C18821 477 READ af: a=VAL("&"+a$) tB8521 
369 DATA ben 52 ER u 2 78, a5,C [8986] 478 POKE adr ‚aradr=adr +1 caa2e] 
370 DATA EDD16] 479 pr=pr*2: IF Br>e5SSS TEEN pr=pr-65535, LEBAEI 
371 DATA L6306] 480, Br=UNT (pr) xDR arIF pr<® THEN pr=pr+6553 

372 DATA EDA6C9 C6QB41 
373 DATA ESCF4J aBı NEXT i LABBAI 
374 DATA CABIEI 482 READ pr$tpr2=VALC"&"+pr$)sIF pr2<@ THEN 

375 DATA LAE92I pr 2=pr 2465536 144961 
376 DATA . 4 [C6581 483 IF pr<>pr2 THEN PRINT"Pruefsummentehler 

377 DATA 2 S, AB,73CA [B6ABI in Zeile";zeile:STOP LöAIEI 
378 DATA . 1,DD,64D5 LDAF4I 484 zeile=zeile+1:5070 474 tB67A1 
379 DATA E6FEEI 485 SAVE"CREPAS2. BIN" ‚B,&9000 ,&B8@ [7860] 
388 DATA j) . LasıEl 486 PRINT d$:END [50103 
381 DATA IF}22,70,43, £758E1 

382 DATA 113,19,11,05% "Si ii [78701 Listing 14. ...und »CREPAS2.BIN«... 

383 DATA 9858,52,C2,A4,39,CD,F@,26,C3,@BB7 [FEE4] 


384 DATA 98C9)71,3A,19)11,06,08,B7,ED,3585 LODSB1 
305 DATA 98C8,52,02,84,39,CD,74,2D,C3,BBBl L7SE61 


SB2 maTA yanaızı anno tl mrenrmysenicen EAN7El | [Lan iommemmmennunmmsmnerressnenrerene  Ea2B} 
30 DAIA JEEB/TLTSAILG ILL GBJBOID7JED"SOrS IFBGAI | | 140 -menninnsnnnnnennunintuennnnnsnnen Eıaneı 
389 DATA 98E8,52,C2,D4,39,CD,CA,2B,C3,0545 LEAF6] a EDFB&1 
398 DATA 9BFB,71,3A,19,11,29,08,B7,ED,SSFB L71981 120 EMORV RTFER EREBAI 
391 DATA 9BFB,52,C2,E4,5 6,2B,C3,00835 LFSA6] I ORDTLREPABL.BIN" ‚LEQAQ 1E6541 
392 DATA 9900,71,34,19,11,00,00,B7,ED,SSEs [59621 120 LOAD"GREPAS2. BIN" !u9000 ESD3A1 
393 DATA 9908,52,C2,F4,39,CD,7@,2B,C3,@sAD [D7C21 N ROREATE.CHN" BtreR 
394 DATA 9910,71,3A,19,11,0B,00,B7,ED,SSEB [ES80] Ian FOR Leuenon 10 &9B8R Fzasaı 
395 DATA 9918,52)C2,@4,SA/CD,35,2E,C3,1C83 [84A21 NT RI LCHREIPEEKLT) LEn7aı 
326 DATR BIaML TTS IT LLORET ED EDE Eezzen | | ZU NRT un ; Be 
DATA 4 B, 1Df 3 
398 DATA 9930,71,34,19)11,0D,08,B7,ED,3SDB L3A961 en tu urazl 


397 DATA 9938,52,02,24,5A,CD,B9,34,C3,1A87 L@DBCI a 

ABB DATA 9948)71,3A,19,11,0E,0@,B7,ED,S5C3 LSCHAI Listing 15. brauchen Sie, um mit diesem Programm 
401 DATA 9948,52,C2,3: 'D/5A}35,C3,1B07 [BIBE] »CREATE.CHN« zu erzeugen. 

402 DATA 9950,71,3A,1 @F,08,B7,ED,SSCH [3888] 
403 DATA 9958,52,02,4 D,E7,35,C3,17FD LFECEI 
304 DATA 9960,71,3A,19,11,10,80,B7,ED,3533 IDBIEI 
EIERN = 2 5, Fr cr Be SrtED'ansn een 100. RR 


487 DATA 9978,52,02,64,3A,CD,2C,36,03,1807 LF@AGI > SL RSAEE FRE 
A0& DATA 998071,3A,19,11,13,08,B7,ED,352B LSCACI 1a) #, RAINTPAB»DAT -"DATASLader VORSSERESET ne 
Aup DATA STaaNSS TER ZI ISRIED ZB Bertar1522 IBITEI | | 102 Traunnnsunnunnuunuuunsssrnnennnnnnsseen 

11 DATA 9998,2A,59,3E,6E,26,08,E8,21, Bazre 10701 ies = oEaaı 
dis Dara Ze, a} E% EN Fl Er ‚67: Er Pr aDEe Eaenn 104 DATA 89090,31,20,01,21,FF,7B,21,00, 1CA& L&7F81 
314 DATA 99B0.00,E5,21,0C,00,CD,DB,1F,3FsD LA2CE1 105 DATA BOQB/FF,CD}64,03,21,7D,28,11,48CD LBEB2I 
415 DATA 99B8,CD}9B,14,21,18,@8,CD,22,41A8 [50901 106 DATA E@18,CB}7A,@1,7F,7C,= D,7F97 LSSBEI 
416 DATA 99CQ,1 20.CD.22,17,2A,0084 179481 187 DATA 8018,D04)84,03,91,27,1B,FD,E1,7ASS [66761 
217 DATA 990859, 3E,6E,26,00,E5,21,08,2F76 128741 iaa DATA 8020,E1,70,32,23,7B,FD)ES,CD,6A9B LBCF41 


318 DATA 99DR,BB,CD,26,17,21,30,00,CD,s7DD LASABI 
A19 DATA 9ana! 22, 797 ED, 12/20, 2A,59,3E,QDra L5@C21 Listing 16. Das Binärfeld »PAINTPAS.BIN«... 


81 


R.HOMESOMPUTER 


__ _  ] 
187 DATA 8028,98,14,CD,BA,17,07,45,72,5ADE LFSB4] 218 DATA 8399,21,7@,7D,CD,30,@5,21,D6,@EAB [L287A1 
110 DATA 8030,72,6F,72,30,20,2A,23,7B,2EBS L9CACI 219 DATA 8398,7B,CD,3A,@05,21,01,80,E5,0839 [15521 
111 DATA 8838,26,00,E5,21,20,00,CD,26,0C0C LBARCI 220 DATA 8SAB,2A,FS,7B,E5,21,01,80,D1,292D LDDSEI 
112 DATA 8048, 17,CD,CD,17,CD,1B,20,C3,2697 LF29C3 221 DATA 8SAB,EB,B7,ED,52,CD,6B,88,CD,47D7 L[ABaA1 
115 DATA 8848,D4,20,C9,FDJE1,E1,7D,32,7084 LA2BGI 222 DATA 83B8,4D,85,08,28,20,20,20,20,2520 L7EA2] 
114 DATA 8050, 16,7B,E1,7D,32,17,7B,E1,QFEB LESA6] 223 DATA 83B8,20,29,29,CD,3D,08,21,01,115B L[LB116] 
115 DATA 8858,70,32,18,7B,E1,22,19,75,3179 L[@74A1 224 DATA 83C0,00,E5,21,08,20,CD}#B,@8,3E@0A [9262] 
116 DATA a06&B,FD,ES,2A, 1B,7B,26,00,E5,BAS [B@B2] 225 DATA 83C8,CD,3D,28,21,D6,7B,CD,sA,6C2C TEC1AJ 
117 DATA B068,21,11,0@,CD,DB,1F,2A,19,1EF9 LFCABI 226 DATA 8309,95,2A,F3,7B,E5,21,01,00,167E La154] 
118 DATA 8070,7B,6E,26,@@,CD,9B,14,E5,2609 L3D7A1 227 DATA 83D8,D1,19,E5,21,03,88,CD,65,7199 L2FaQ1 
119 DATA 8078,21,80,88,CD,26,17,CD,BA,ICIC [54881 228 DATA 83E0,88,CD,3D,28,CD,40,05,05,3735 L@F921 
120 DATA 8089,17,03,20,20,20,CD,1B,28,@F62 LSCEBI 229 DATA 83E8,20,20,20,CD,3D,08,06,0E,111A TEBACI 
121 DATA 8888,2,18,7B,26,00,E5,21,11,1DC7 [&23Al 230 DATA 83F8,21,78,7D,CD,E2,@5,C9,2A,094C L[2FA&I 
122 DATA 8090,08,CD,DB,1F,CD,9B,14,21,2DDD IBBF@I 231 DATA 83F8,57,7D,26,00,E5,24,B6,7D,4691 [2AARI 
123 DATA 8098,85,99,CD,22,17,CD,1B,28,199A [D4561 ‚ao, »B7, 2,CD,B1F5 LF8B21 
124 DATA 9@AQ,21,03,7B,CD,CC,14,06,@A,15C6 LAA7AI 233 DATA 8488,80,87,E5,21,20,@2,D1,CD,SFIF [37503 
125 DATA 8QAB,CD}BE,16,CD,1B,20,CD,9B,4A49 [65141 234 DATA 8418,FS,26,E5,21,19,0@,D1,CD,6417 LFFA4] 
126 DATA B@BQ,14,21,02, ae; CD,22,17,CD,0403 [92081 5 BF}7D,2A,B6,GEZE [94D83 
127 DATA 8QBB,1B,20,21 'B,CD,3A,Q5,Bi@D L[D2561 236 DATA 8420,7D,26,00,E5,21,10,08,D1,38C9 L@cıgı 
128 DATA 80C9,CD,AS,08 8 1,00,28,D1,480C9 [91621 237 DATA 8428,CD,F5,06,E5,21,19,98,D1,54ED [5SDaC1 
127 DATA 80C8,CD,7F,@6,CB,45,CA,B5,21,757B CoBoaı 238 DATA 8430,CD,@F,@7,7D,32,BE,7D,2A,41CB L33DA] 
130 DATA 80D0,C3,@C,22,21,03,7B,CD,3A,6484 [F9661 239 DATA 8438,CE,7D,E5,2A,CC,7D,D1,EB,6B9D [70561 
131 DATA 80D8,@5,21,F1,7B,ES,21,F3,7B,1561 L[&F66l 240 DATA 8440,57 ,ED,52,E5,21,64,00,CD,6485 L[@B741 
132 DATA SQEQ,CD,F4,1E,2A,F3,7B,E5,21,5D7F [14181 241 DATA 8448,08,10,D9,E1,CD,08,10,CD,1395 L[4D741 
153 DATA SBEB,20,00,D1,CD,7F,06,65,2A,14F@ CAFF2I 242 DATA 845@,FF,29,D9,21,EB,7B,CD,D1,630F L7CFEI 
134 DATA B@F@,F1,7B,E5,2A,17,7B,26,00,7958 [237E1 243 DATA 8458,05,2A,CE,7D,ES,21,EB,7B,1B11 LF3A&] 
135 DATA 8@F8,D1,CD,A5,06,D1,7D,AS,6F,4955 L[CCEBI 244 DATA 8460,CD,2C,05,C5,D5,E5,2A,BA,64A2 [LOSE21 
136 DATA 81@8,E5,2A,F1,7B,ES,2A,16,7B,6647 [6494] 245 DATA 8468,7D,26,20,CD,08,10,D7,E1,3ABS [65881 
137 DATA B188,24,00,D1,CD,BB,86,D1,7D,B1F7 [7488] 246 DATA 847@,D1,C1,CD,FA,@9,D9,E1,CD,ACES L[163C] 
138 DATA 911@,AS,6F,CB,45,CA,84,22,2A,SiSE. [6092] 247 DATA 8478,08, 18,CD,F2,09,CD,DB,@F,1453 [219A1 
159 DATA 8118,F1,7B,EB,2A,179,7B,73,03,7881 [9CBA] 248 DATA 8480,E5,21,2@,00,D1,CD,@F,@7,7B65 LBS648] 
148 DATA 8120,0C,22,21,00,02,CB,45,CA,Q9CC [F1421 249 DATA 8488,22,C8,7D,21,EB,7B,CD,2C,2BB2 [6&7F41 
141 DATA 1,09 ,FD,E1,E1,22,FF,3887 [ESACI 25@ DATA 8490,05,C5,D5,E5,2A,7F,7D,26,2748 [484 
142 DATA 1,22,01,7B,FD,ES,21,0@D7 L616E] 251 DATA 8498,88,CD,28,18,D9,E1,D1,C1,376F L[SB9A1 
143 DATA D,E5,21,11,00,CD,DE,1EF9 L[916C1 252 DATA 84AQ,CD,FF,@9,C5,D5,ES,2A,BA,SIE2 [BA2CI 
144 DATA A,FF,20,26,@@,CD,9B,1ED1 [59981 253 DATA 84AB,7D,26,00,E5,2A,BB,7D,26,3As0 L7BAGI 
145 DATA 8148,14,CD,22,17,CD,BA,17,05,350DB LS7AAI 254 DATA 8450,00,D1,EB,B7,ED,52,CD,@8,25E2 [AIEZ] 
14& DATA 8150,76,6F,6E,3A,2@,CD,1B,20,2082 tacagı 255 DATA B4B8,18,D9,E1,D1,C1,CD,FA,09,2BB1 [79061 
147 DATA 8158,2A,91,7B,E5,21,08,00,E5,15BD [09681 256 DATA 84C8,CD,D®,@F,E5,21,20,80,D1,5C69 [599C1 
148 DATA 0160, 21,00,00,E5,21,64,@@,ES,1EAD L@F221 257 DATA B4CB,CD,BF,@7,22,02,7D,2A,BC,608C LADFBI 
149 DATA 8168,CD,2D,21,21,BE,00,E5,21,4A6B [287E1 258 DATA 84DB,7D,26,0@,E5,2A,BD,7D,26,3A28 TADBB] 
15@ DATA 8170,11,00,CD,DB,1F,CD,9B,14,1E7E LFons) 259 DATA 8408, 09,D1,19,E5,21,C8,00,D1,3BC9 [66961 
151 DATA 8178,C0,BA,17,85,62,69,73.30,48D8 [67921 260 DATA 84E0,CD,7F,06,CB,45,CA,D9,25,7547 [99861 
152 DATA 8180,20,CD,1B,20,2A,FF,7A,E5,209D LC3BA1 261 ‚DATA B4E8,21,99,C0,22,C4,7D,21,00,0D56 LBE281 
153 DATA 8188,21,13,02,E5,21,00,@00,ES,.1BFD LAA261 262 DATA S4F8,00,22,C6,7D,L3,4E,26,2A,10D& [C67EI 
154 DATA 8190,21,64,90,E5,CD,2D,21,2A,8164 LAE2EI 263 DATA 84F8,CE,7D,E5,21)EB,7B,CD,2C,61F2 L@S4C1 
155 DATA 8198,FF,20,26,@0,CD,9B,14,CD,77A1 LYEBEI 264 DATA 8500,05,C5,D5,E5,2A,BC,7D,26,244C TB2AEI 
156 DATA 81AB,22,17,CD,1B,20,09,21,07,BEB1 [D764] 265 DATA B508,08,CD,28,18,D9,E1,D1,C1,376F LAA94J 
157 DATA 81A8,88,E5,21,11,00,CD,DB,1F,SEED I[SCD2J 266 DATA 851@,CD,FA,@7,D9,E1,CD,@8,18,5@8C L1SD81 
158 DATA 81B@,2A,FF,20,26,00,CD,?B,14,2EB6 LEGBCI 267 DATA 8518,CD,F2,07,CD,D®,@F,ES,21,5047 CD2DC3 
157 DATA B1B8,CD,22,17,CD,BA,17,88,41,65ED L790C1 268 DATA 8520,20,08,D1,CD,@F,07,22,04,@614 [B&2C1 
16Q DATA 81C0,6E,7A,61,68,&0,3A,20,21,2009 [61621 269 DATA 8528,7D,21,EB,7B,CD,2C,85,C5,2A07 L[47DEI 
161 DATA 81C8,03,00,CD,22,17,CD,1B,20,199A LC3781 278 DATA 8530,D5,E5,2A,7F,7D,26,@8,CD,52CD LC&D4] 
162 DATA 81D8,21,D6,7B,CD,CC,14,06,0E,2082 1446961 271 DATA 8538,28, 18,D9,E1,D1,C1,CD,FF,11D9 L&1DEI 
163 DATA 81D8,CD,8E,16,CD,1B,20,2A,FF,ABES [CES21 272 DATA 8549,09,C5,D5,E5,2A,BC,7D,26,224C LSCHBI 
164 DATA 81E@,20,26,88,CD,9B,14,CD,22,1060 [48441 273 DATA 8548,0@,E5,2A,BD,7D,26,89,D1,3471 LEA&AI 
165 DATA 81E8,17,21,02,0@,CD,22,17,CD,@585 [263E1 274 DATA 8550,EB,B7,ED,52,CD,28,10,D9,4471 LADC81 
166 DATA 81F@,18,20,21,D6,7B,CD,3A,@5,GCSD LS@B21 275 DATA 8558,E1,D1,C1.CD,FA,@9,CD,DB}S6BE LCBZEI 
167 DATA B1F8,21,F3,7B,ES,21,F1,78,CD,2F87 [S9F61 27& DATA 8568,0F ,E5,21,20,88,D1,CD,@F,3A51 [276E1 
168 DATA 8208,F4,1E,2A,F1,7B,E5,21,80,77DE [97AC1 277 DATA 8568,07 ,22)C6,7D,2A/B8,7D,26,177C 1B9Aa] 
167 DATA 8208,00,D1,CD,7F,R&,ES,2A,FS,2913 LEBFBI 278 DATA 8570,00,E5,21,08,80,D1,CD,AE,3F70 [346A1 
17@ DATA 8210, 7B,E5,21,64,99,D1,CD,EG,849E L1F781 279 DATA 8578,97,22,C8,7D,2A,B9,7D,26,16B8 L2DAEI 
171 DATA 8218,06,D1,7D,AS,6F,ES/2A,FS,S29B LBOBCI 220 DATA 8580,00,E5,24,58,7D,24,08,D1,3421 [66SC1 
172 DATA 8220, 7B,E5,21,88,80,D1,CD,CC,@2F2 155701 281 DATA 8588,EB,B7,ED,52,E5,21.88,00,477C LCBB@I 
173 DATA 8228,06,D1,7D,A3,6F ‚ES,2A,F3,3298 [30021 282 DATA 8598,D1,CD,4E,07,E5,2A,7F,7D,5573 L2CDAI 
174 DATA 8230, 7B,E5,24,7F,7D,26,00,D1,@5D1 [36881 283 DATA 8598,26,08,D1,CD,OF,B7, 22/CA,BS1A LE2821 
175 DATA 8238.CD.92.06.D1.7D,AS,6F,CH,4EA1 L1S0] 284 DATA 85AR,7D,C9,FD,E1,E1,22,DD,7A,1BS0 144121 
176 DATA 8249,45,C4,45,23,21,D6,7B,CD,18FB [BEB6I 285 DATA BSAB,FD,ES,24,DD,7A,6E,26,88,4D74 [16101 
177 DATA 8248,3A,85,21,20,88,65,2E,01,1BA9 [57121 284 DATA B5B@) Lasazı 
178 DATA 8258,E5,CD,3D,08,96,BE,21,70,46DA TAF9ZI 287 DATA 85BB)26,21)B6.7DJE5.21.8 LSFF&I 
179 DATA 8258,7D,CD,E2,05,2A,F3,7B,7D,13507 [@4F4J 288 DATA 85C0,E3,CD,@012: 3 EBFACI 
iAD DATA 8260,52,7F,7D,C9,2A,FF,20,26,875A 134981 289 DATA 85C8,11,1R,20,B7)ED/52,02,C1,@215 Lanze) 
181 DATA B268,08,CD,98,14,CD,22,17,0D,2763 [98963 290 DATA 8500,26,21,B8,7D,E5,21,B9,7D,@D33 L929E1 
182 DATA 8270,BA,17,07,20,20,20,4E,61,5A9D LD43EI 291 DATA 8508,E5,CD,0D/22,C3,1E,27,19,4477 [46B21 
183 DATA 8278,4D,65,34,20,21,83,00,CD,2B49 [5C481 292 DATA BSE®,11,1B,00,B7,ED,52,02,D9,@24D L2F9EI 
184 DATA 8288,22,17,CD,1B,2@,CD,4D,85,GE7B L[7@9E1 293 DATA 85E8,24,21,BA}7DJES,21.BB} 7D,@D77 LEC3EAI 
185 DATA 9288,00,84,0E,21,D6,7B,CD,E2,9474 LDC781 294 DATA 85F0,E5,CD,@D,22,C3,1E,27,19,4477 L2DACI 
186 DATA 8298,05,21,D6,7B,CD,CC,14,96,12C4 LCBBEI 295 DATA 85F8,11,10,00,B7,ED,52,02,E9,@SBD LaBDaı 
187 DATA 8298, BE,CD}8E,16,CD}1B,20,/CD,2269 L&4EE) 296 DATA 8600, 26,CD,88,22,03,1E,27,19,3597 LCCS61 
188 DATA 82A0,9B,14,21,@2,80,CD,22,17,4FE7 [2B601 297 DATA 8488)11,1D,20,B7,ED,52,C2,F9/@SED LDABC1 
189 DATA 82AB,2A,FF ,28,26,98,00.22,17,2FC7 LE9B21 298 DATA 9618,24,CD,46,23,03,1E,27,19,2C87 159721 
190 DATA 82B0,CD, 1B,28,21,01,00,E5, 21,67B5 [40361 299 DATA 8618,11,1E,00,B7,ED,52,02,29,@SDD [48961 
191 DATA 82B8,D6,7B,CD,3A,25,/CD,A3,88,6D72 [82002 300 DATA 8620,27,CD,D9,24,C3,1E,27,19,3F97 [57881 
192 DATA 82C0,D1,CD,66,86,7A,B3,CA,D4,573C L&SF@] 321 DATA 8628,11,1F,08,B7,ED}52,C [80763 
193 DATA 8208,23,D5,22,F3,7B,21,D6,7B,2D5B [FBBAI 3902 DATA 8630,27,21,BC}7D}E5}21,Bi TASBEI 
194 DATA 82DR,E5,2A,FS,7B,D1,19,E5,21,6607 [7108] 303 DATA 8638)E5,CD,9D.22.C9,FD)E LFA28I 
195 DATA 82D8,D6,7B,ES,2A,F3,7B,D1,19,&C0F L[8F161 304 DATA 9640,22,D3,7A,FD,ES,2A,DS,7A,2SOC LDSC®1 
196 DATA 82E@,6E,26,00,CD,EA,1F,EB,E1,345B L@1FQ) 385 DATA 8648,6E,26,09,E5,21,7F,00,D1,3@F5 I[B658] 
197 DATA 82EB,73,2A,F3,7B,23,D1,18,C03,2879 L[1DB4] 3@6 DATA 8658,7C,A2,67,7D, AS,&FJEB,ZA,1BEB IBAEEI 
178 DATA 82F@,A6,23,21,D6,7B,E5,21,02,528C [9D76] 3@7 DATA 8658)D3,7A,73,21,81, 0@,E5,21,7493 T[EES2] 
199 DATA 82F8,90,D1,19,6E,26,00,)E5,2 132561 328 DATA 8640,11,08,CD,DB,1F,2A,FF,28,1DIE L7@CEI 
220 DATA 8300,3A,00,D1,CD,7F,Q6,CB,2: EB7861 309 DATA 86448, 26,80,CD}9B,14.CD.22.17.0007 LaC761 
201 DATA BS@8,CA,16,24,21,D6,7B,E5,21,68A7 L7BSC1 31@ DATA 8678,CD,BA, 17,06,45,72,72,6F,A9EB [7BA41 
202 DATA 8510,01,00,D1,19,6E,26,00,45,18ED LCB@&J 311 DATA 8678,72,20,2A,D3,7A,6E,26,00/3B54 LEFACI 
203 DATA 8318,2E,01,E3,06,0E,21,70,7D,@BE9 [88621 312 DATA 86a0,E5,21, aa,an,co, 26,17,CD,7CD3 LAS7C1 
204 DATA 8320,CD,E2,@5,21,D6,7B,E5,21,5A87 [D5781 313 DATA 8688, 1B,20,2A,FF,20,26,00/CD,@E65 LEAABI 
205 DATA 8328,01 ,@0,65,21,02,Q0,CD,Fs,1Fa9 [a22C1 314 DATA 86490,9B,14,CD,22,17,CD}1B}20,589A [92861 
20& DATA 8330,98,C3,25,24,21,40,08,65,324D LOCCCI Lacscı 
287 DATA 8338,2E,01,E5,06,0E,21,70,7D,0BE9 TEBSEI 2 2) [DAg&I 
208 DATA 8340,CD,E2,05,21,D6,7B} CD,sA,SAsC ‚L@9EB1 317 DATA B&AB)&F JEB}2A,D3,7A, 78 C9721,269F LBSF&I 
209 DATA 8348,85,CD,4D,05,00,CD,8D,06,3A18 LBABEI 318 DATA 86B9,04,7D,CD,SA,05,CD, 4D,85,04C3 TI@BEI 
218 DATA 835@,CB,45,CA,49,24,21,FF, 00,694A TABB2I 319 DATA 86B8,11,20, 47,69,67,61,2D,43,0C55 L[3@2E1 
211 DATA 8358,65,2E,B1,E5,06,0E,21,70,374A [A9261 320 DATA 84C0,41,44,20,50,61,69,6E,74,3324 LC&181 
212 DATA 834@,70,CD,E2,05,C3,D8,24,21,14C1 LE77C1 321 DATA 8408,28,28)CD,AQB6)CB.4S,cA.Gert [B1Da1 
213 DATA 8368,2E,00,65,2E.01,E5,21,D6,1na8 LeBas] 322 DATA 86D9,07,28,21,24,7B,E5,CD,AD)@E7B LS8B21 
214 DATA 8379,78,CD,3A,05,CD,B2 28, 22,0D42 14892] 323 DATA 8608,05,09,50,41,49)4E, 54)2E,9026 [2544] 
215 DATA 8378,F3,7B,2A,FS,7B,E5,21,00,6D3E LSSBCI 324 DATA 84E0,43,4D,24,CD,70,13,21,24,353A [06401 
216 DATA 8390,00,D1,CD,7F,06,CB,45,Ch,294C LEBCAI 325 DATA B6E8,7B,11/01,88JCD}11.18.CD!SFs1 1727A1 
217 DATA 8388,72,24,21,0C,00,22,F3,7B,35F5 [46321 326 DATA B6F0, 1B,20,21,@0,7D,22/F3,7B,03s5D [23541 


82 WWW .HOMECGOMPUTE 


327 DATA 86F8,21,24,7B,CD,49,1A,7D,EE,1804 LF@D®@] 
328 DATA 87@9,01,4F,CB,45,CA,@7,28,21,0084D L[7@SAl 
329 DATA B708,24,7B,CD,A4,18,2A,F3,7B,1EDS [B2E61 
330 DATA 9710,CD,B6,18,CD,1B,2@,2A,FS,a42F CB1BB] 
331 DATA 8718,7B,E5,21,81,09,D1,19,22,05A4 L6CQEI 
332 DATA 8720,FS,7B,03,DA,27,21,91,00,733E [14561 
333 DATA 8728,E5,CD,0@,7D,7D,32,D5,7B,44E1 L[DFCB1 
354 DATA 8730,2A,D5,7B,26,00,E5,21,8@0,2E16 [65441 
335 DATA 8738.00.D1.CD.92,06,CB,45,CA.279C [D6BEI 
336 DATA 8740,6F,28,2A,D5,7B,26,00,E5,3635 [2866] 
337 DATA 8748,21,80,20,D1,CD,EQ,@6,CB,S8BF [DDB@J 
338 DATA 9750,45,CA,48,28,21,D5,7B,E5,19CF L9FBAI 
339 DATA 8758,CD,84,24,21,08,00,E5,CD,40857 [52601 
340 DATA 8740,00, 7D,7D,32,D5,7B,2A,D5,1485 LBC6AJ 
341 DATA B768,7B,26,00,E5,21,80,80,D1,3989 LA4E26) 
342 DATA 8770,CD,CC,06,CB,A5,CA,6C,28,5800 LDFD4J 
343 DATA 8778,21,05,7B,E5,CD,1F,27,21,228B L[DIAAI 
344 DATA 8780,02,00,E5,CD,@@,7D,7D,52,1@4C LDASCI 
345 DATA 8788,05,7B,C3,12,28,21,03,00,6CC2 [75541 
346 DATA 8790,E5,CD,88, 7D,7D,32,D5,7B,44E1 LCACE] 
347 DATA 8798,C3,D4,20,01,00,D1,19,22,55C4 LF@ZEI 
348 DATA 87AQ,FS,7B,C3,DA,27,21,01,00,75SE [22821 
349 DATA 87ABJES,CD,00,7D,70,32,D5,7B,44E1 LB7FA1 
35a DATA 8780, 2A,D5,7B,26,00,E5,21,8@,2E16 LE9SEI 
351 DATA 87B8,00,D1,CD,92,06,CB,45,CA,279C LBEDBI 
352 DATA 87C0,74,75,2A,D5, 7B,26,@0,E5,2CF5 LBEABI 
353 DATA 87C8,21,80,00,D1,CD,E@,06,CB,S8BF LIFCAI 
354 DATA 87D0,45,CA,E0,96,21,D5,7B,ES,BEZF LFCDZJ 
355 DATA 8708,CD,84,26,21,00,08,E5,CD,4057 LSA7AI 
356 DATA 87E0,00,7D,7D,32,D5,7B,2A,D5,1405 [56961 
357 DATA 87E8,7B,26,80,E5,21,80,@0,D1,3989 LAAS2I 
358 DATA 87F0,CD,CC,96,CB,45,CA,CC,06,596E [53441 
359 DATA 87F8,21,D5,7B,ES,CD,1F,27,21,228B [5106] 


360 DATA #ENDE* L7BC61 
361 adr=&B@RD: zeile-1B4:MEMORY KIFEFF EFD461 
362 READ d$: IF d$="#ENDEX"THEN 373 LABFAI 
363 pr=® 15C161 
364 FOR i=1 TO 8 E3D&CH 
365 READ as: a=VAL("&"+a$) LEDAAI 
366 POKE adr ‚aradr=adr+1 L9F26] 
367 pr=pr#Z:iF pr>65535 THEN pr=pr-65535___ [FEAGI 
368 pr=UNT(pr)XOR asIF pr<® THEN pr=pr+6553 
& L93BE] 
369 NEXT i tED14] 
370 READ pr$:pr2=VAL("&"4pr$) IF pr2<@ THEN 
pr2=pr 2465536 1578E1 
371 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
in Zeile";zeile:STOP 195163 
372 zeile-zeile+1:50T0 362 LIB6AI 
373 SAVE"PAINTPAS. BIN" ‚B,28800,2888 EA&121 
374 PRINT d$zEND [SB081 


Listing 16. Das Binärfeld »PAINTPAS.BIN« (Schluß). 


100 HRHHRRRRHRHRRRRRRRRREHERE LA2841 
11 "*PAINTPAS.BAS — Umw.in PAINT.CHN® LEIBEI 
120 RHEIN L1AB8] 
130 ° EDFB&I 
140 MEMORY &7FFF CAEBAI 
15@ LOAD"PAINTPAS. BIN" ‚&BDB® CDB361 
158 OPENOUT "PAINT.CHN” LAGIB] 
170 FOR i=%8000 TOD LBB00 CB158]1 
188 PRINT #9,CHR$(PEEK(T))5 198741 
190 NEXT i 130841 
208 CLOSEOUT [13481 
Listing 17. ...wird zu »PAINT.CHN«. 


EUTBEERLERTERTELTLLLERLEUTELU DU NT CCEDBI 
1@1 '* TS1.DAT - DATA-Lader von ’CPC’ * [533E) 
102 Ran OR CAEDCI 
103 ' EDEB6I 


104 DATA 8008,03,E2,20,CD,AB,43,6F,70,552A [82861 
105 DATA 8008, 79,72,69,67,68,74,20,28,29A8 L4E141 
106 DATA 8010,43,29,20,31,39,38,35,20,2DB2 L7BD2] 
107 DATA 8018,42,AF,52,4C,41,4E,44,20,3FD8 [13541 
108 DATA 8020,49,6E,43,00,04,00,A1,42,3248 LIABE) 
107 DATA 8028,20,00,00,00,00,00,00,00,0000 LDA241 
110 DATA 80sa,an,oa,ae, ‚an, ‚00,00,00,00,0000 LC7B61 


DATA 0040,43,34,36,34,2F,36,36,34,28F8 LAAB&I 
DATA 8068,58,19,00,0E,1C,00,00,08,2E40 [14001 
DATA 8070, 1C,01,1A,1A,1D,00,00,1B,0C53 [52161 
119 DATA 8078,1B,1B,D5,0B,1C,01,00,@0,11B4 [612C] 
120 DATA 8089,1C,08,17,17,1D,17,17,00,0D8A LSSEE] 
121 DATA 8088,08,FF,FF,@5,1F,00,00,@00,20E8 [82461 
122 DATA 8090,00,00,00,00,00,00,00,00,0000 LEBISI 
123 DATA 8098,00,00,00,01,01,01,02,03,001B [26601 
123 DATA Bonn,an, ‚aa, a ‚ac, ‚an, YB0,00,00,OBER L497E1 
0,00,00, 


111 DATA '2,00,00 2,00, @0,20,0008 LDAIB] 
112 DATA LEFOCI 
113 DATA LACIEI 
114 DATA ‚an, L73E@) 
115 DATA 8058,645,69,64,6° LEBEAI 
116 
117 
118 


125 DATA CD23E1 
126 DATA £F732] 
127 DATA 1D4541 
128 DATA [62781 
129 DATA L747A3 


15@ DATA 80DR,7E,B7,37,C8,23,F5,E5,7E,1BD8 LFFEAI 
131 DATA 80D8,CD,EB,01,E1,F1,3D,C8,18,5444 LAFBAI 
132 DATA SBEB,FS,CD,20,02,0D,@A,B0,C7,4A69 LB480) 


133 DATA 80E8,6F ,E5,CD,A6,08,C9,FE,88,1F58 
134 DATA 8BF@,DC,6B,02,D4,84,02,E6,7F,7C5B 
135 DATA B0FB, 18,EE,ES,21,EE,01,18,04, 2670 
136 DATA 8100,E5,21,E8,01,22,13,02,E1,6669 
137 DATA 8188,E3,F5,C5,D5,7E,23,B7,28,5BBA 
138 DATA B110,87,E5,CD,EB,@1,E1,18,F4,2EAB 
139 DATA 8118,D1,C1,F1,E3,C7,7D,B4,C8,4ECC 

;A,24,01,87,87,87,E3,E3,1B51 
8128,E3,E3,C5,81,D2,84,C1,3D,56CF 


h 8,DF,FS,C5, 7DC3 
144 DATA 8140,D5,E5,21,AB,01,CD,35,02,5E34 
145 DATA 8148,21,A2,01,CD,D®,@1,2A,BA,329A 
146 DATA 8150,@1,D4,1D,@2,E1,Di,C1,F1,333F 
147 DATA 8158,C9,F5,C5,D5,65,21,B4,81,4AFS 
148 DATA 8168, 18,E9,F5,C5,D5,E5,21,AE,216B 
149 DATA 8168,81,18,E0,F5,3A,E0,00,B7, 1737 
15® DATA 8170,28,18,C5,D5,E5,AF,32,E0,0BEB 
151 DATA 8178,8@,21,C8,01,CD,35,02,E1,1709 
152 DATA 8180,D1,C1,F1,C9,F5,3A,E8,08,ACFO 
155 DATA B1B8,FE,FF,28,F6,C5,D5,E5,3E,4E28 
154 DATA 8190, FF,32,E0,00,21,C2,01,18,6D1A 
155 DATA 8198,E3,F5,C5,D5,E5,21,BC,01,5FES 
156 DATA B1AB, 18,DA,FS,C5,D5,E5,E5,11,2C97 
157 DATA B81A8,F®,80,21,8B,@1,01,10,00,74BC 
158 DATA B1BQ,ED,B®,D1,3A, 
159 DATA 81B8,9C,01,82,D5,CD,DC,82,D1 ,569D 
168 DATA 81C0,3A,9F ‚Q1,4F ,3A,9D,01,85,3035 
161 DATA B1C8,CD,NC,82,21,F0,20,CD,D®,551A 
162 DATA 81D9,01,2A,AQ,01,CD,1D,@2,E1,18E9 
163 DATA 81D8,D1,C1,F1,C9,21,F0,00,06 ,48BE 
164 DATA B1E0,00,09,EB,21,9B,01,34,35,19B1 
165 DATA B1E8,28,92,12,C9,1B,1B,21,@A, 1AAC 
166 DATA B1F0,03,06,03,2B,BE,2F ‚8C,76,0292 
167 DATA 81F8,30,FC,86,F5,77,FE,30,28,SBE8 


8218,80,CD,SF,@3,E6,21,18,96,3F92 
8220, 11,06, 00,CD,SF ‚03,6F ‚26, 07DC 
173 DATA 8228,08,C9,11,12,08,18,F4,11,30D9 
174 DATA 8230,0C,08,18,88,11,0F,00,18,052C 
175 DATA 8238,03,11,89,0@,E1,C1,E5,3A,@11C 
17& DATA 8240,DD,00,57,28,1A,D5,C5,CD,7825 
177 DATA 8248,AB,00,7C,B5,28,@F ‚CD,E1,54D7 
178 DATA 8258,@3,FE,13,28.88.CD.E1,03,SCDS 
177 DATA 8258,FE,23,CA,D4,28,C1,D1,2A,684C 
188 DATA 8240,01,28,17,E9,22,D2,00,78,0F1@ 
181 DATA 8248,32,DD,88,77,B7,28,@B,3E,2CE@ 
182 DATA 8270,C3,32,38,88,21,FB,1F,22,68F8 

;7,08,21,A5,83,11,AB,08,1SEC 
1,18,02,ED,B2,21,BD,85,0C2D 
1,B8,2@,81,2C,88,ED,B®,279A 
8298, AF ‚6F ‚67,32,D8,88,22,D4,4598 
187 DATA 8298,09,22,D6,00,3E,7E,32,D1,12FD 
188 DATA 82A0,28,32,E0,89,C9,C3,16,03,15EB 
187 DATA 82A8,C3,20,83,C3,37,83,03,2F ,65BD 
198 DATA 82B9,@3,03,34,83,C3,24,03,03,3185 
191 DATA 82B8,39,03,C3,20,83,C1,00,82,05BE 
192 DATA 82C0,00,43,00,C04,28,C05,02,C1,1F55 
173 DATA 82C8,@8,C5,D5,ES,DD,ES,FD,ES,21D3 
194 DATA 82D@,F5,6F ,26,0@,E5,CD,A6,88, 5008 
195 DATA 82D8,F1,FD,E1,DD,E1,E1,D1,C1 ,SSDF 
196 DATA 82E8,C9,C5,D5,ES,DD,ES,FD,ES,4553 
197 DATA 82E8,CD,A3,88,7D,18,EB,QE,FF,AAIF 
198 DATA B2FO,18,0C,0E, ‚a0, EN von D2)88,29&0 


83500,20,06,0- 
8308, A6,04,FE 
202 DATA 8310,30,0E,47,13,1A,Fi 
203 DATA 8318,06,78,D6,48,13,18,02, 1B,0327 
284 DATA 8320,AF ,21,5C,88,77,23,00,0D,5761 
2@5 DATA 8328,28,19,1A,CD,82,04,20, 13,1983 
206 DATA 833@,FE,SF,28,@F,FE,2N,28,0B,7233 
207 DATA 8338,FE,2E,28,07,06,@B,CD,77,7001 
208 DATA 8340,04,18,10,06,08,CD,5E,04,0SAC 
2079 DATA 8548, 1A,FE,2E,20,06,13,06,03,3553 
218 DATA 8350,CD,5E,04,21,68,00,96,18,70C4 
211 DATA 8358, 36,88,23,18,FB,C9,1A,0C,1AA4 
2 „FE,SF 28,09, FE,03D4 
D,82,04,28,0B,16EB 


217 DATA 8380, @D)E5,C5,21,98,04,01,@E,21AC 
218 DATA 8590,00,ED,B1,C1,E1,C9,BF,C9,24EB 
219 DATA 8398,20, 2E,2C,3B,SA,3D, SF ‚2A, 1CCQ 
228 DATA 8SAQ,5B,5D,SC,SE,7B,7D,FE,61,3D11 
221 DATA 85A8,D8,FE,7B,D8,06,20,C9,7C,563E 
222 DATA 83B0,CD,B4,04,7D,FS,1F,iF,iF,4B25 
223 DATA 8358, 1F,CD,BD,84,F1,E6,0F,C6,2FEB 
224 DATA 83C0,90,27,CE ‚48,27 ,C3,C9,03,5FA5 
225 DATA 83C8,AF,37,CB, 7C,C0,7C,B7, 7D,4203 
8308, C8, 3E/FF ,C9,32,D8,08,C5,7A0S 
83D8,CD,AF,1E,C1,2A,06,20,B7,4S6F 


231 DATA BSFB,SE,C3,32,D9,0 
232 DATA 8480,22,DA,@0,EB,22,CC,B0,E7,2BF9 
233 DATA 8408,E5,2A,C6,@9,B7,ED,42,22,666A 
234 DATA 8410,C6,28,ED,5B,C4,00,B7,ED,7CB3 
235 DATA 8418,52,19,EB,E1,DA,75,1D,ED,3BES 
236 DATA 8428,B0,C9,2A,C6,88,ED,B9,22,6196 
237 DATA 8428,C6,88,D9,C9,5E,23,56,23,7643 


EB5121 
CarDBı 
ESF96] 
EFZFEI 
£75C041 
[9@B61 
677281 
E722E1 
C9DA21 
11270) 
tE602] 
CB55c1 
128741 
LAC6B] 
L9DCB1 
t26A21 
EFCS2I 
£cC7@1 
85181 
[29881 
EIFS6) 
LADACı 
E29EE) 
[8221 
617161 
(73003 
ESCEAI 
[5AB6I 
L7@C41 
CBa7A1 
LacAs] 
18534] 
[3086] 
12450] 
taae@ı 
EBD441 
[945A1 
LS1C6] 
taEac] 
L6D561 
EICF&I 
EsDDc1 
[81261 
EBEB&I 
LASBCI 
C3BBB1 
EaSD6] 
T28F@1 
EaD981 
LaD543 
E2F@41 
LACSEI 
LABSB1 
ESCSE1 
[9674] 
L9BAA1 
ECAF41 
163241 
E8B323 
tAs14J 
E2E261 
EDEA&I 
115621 
C5B461 
[30421 
1597C3 
Laascı 
Tasse] 
£777C3 
La72E1 
LAFEB] 
EDES@I 
C1110] 
E3BB23 
L6@7Al 
EFBS2] 
E711E) 
10318) 
[91629 
LBS9E] 
[8986] 
EDS1AI 
LEESCH 
E32D6) 
L276C3 
LEE1BI 
LEFBEI 
EBIE6I 
EiAıg) 
LCCEAI 
EB9401 
[84921 
EDFFEI 
ED6B6] 
L9SEAI 
ESF@21 
L7A82) 
CAFSEI 
LEC64] 
[2CABI 
EZFBEI 
L63DAJ 
E7EFEI 
133703 
E9DSAI 


83 


—— => = — af 
346 DATA 8790,79, ED,BB,EB,18,89,AF,1@,1FD2 183801 | 
258 DATA 8430,D5,5E,23,56,23,4E,23,46,7C28 LCASCI 347 DATA 8798,08 3C,6B/2D,28,00, 3917 7100n8 Lrsatı 
239 DATA 8450,E1,C9,DD,E1,EB,1A,4F,@6,5008 L2FOAI 3a8 DATA 87AD]F9DD.ESIDDIELIELESITDISEOB TErTEI 
240 DATA BAA,O0,2r ,6P 126,67 ,39,F9,EB,9245 Lianz) 349 DATA 87AB,26,@0,23,39,F9,6F,24,00,12CB LERSBI 
241 DATA 8448,03, ED,B0,DD,E9,D1}1A)4F,2567 LC7DCI 350 DATA 87B0!Dp.Eg.DD/E1 21.00 /BO/Sa.ause Ferse 
242 DATA BA5B,06,00,2F ,6r 26, FF,39,F9,0257 CFascı 351 DATA 8788,39, 5E,4B,23,65,19,5E,43,07E3 L9C9AI 
245 DATA 8458,EB,23,ED,BQ)E9,DDJ/E1)EB,66FS L7AMEI 352 DATA 87C0/23.ES.19!ES!FDIELIDIIEL SUSE Teen 
244 DATA 8460,21 ,E0,FF,39,F9,EB,CH,@4,311A L[97BAl 3553 DATA 87C8,77,98,3B\ 10, sCharıLs,DS EOS rakszı 
245 DATA B468,85,29,05,AF,12,13,1B,FC,@2DB [A230] 353 DATA B7DnJES,IAIBEIZBJOCIEL DIET IESET Tanger 
248 DATA 8470,ED,5B0.C1,3E,20,98,91 Eee 355 DATA 87D8,23,0D,20,F2,21 ‚aa, 22,18,18F@ Lars] 
247 DATA 8479,06,47,AF,12,13,10,FC,DD,@7FD L7BCQI 356 DATA B7ER!OELZSTSIIBIE "E1!01.0987 ts1acı 
248 DATA 8480,69 ,DD,E1,21,E8,FF,39,F9,5987 [ZBOB1 357 DATA 8768) 21,00,00\59'EBIED! 2IFD\1705 LA7BEI 
243 DATA BAER BC 20,AF,77,25,10,FC,DDJ19ED (96001 358 DATA 87F0,F9,DD,E9,DD,E1,CD,CH,94,5E9B LES7ZEI 
258 DATA 8498,69 DD,E1,45,CD/BA,OS/B&,SFAC (4201 359 DATA 87F8,4F,E1,CD,DD}09/SF}E1,7E)0BSB Lanacı 
251 DATA 8498,77,DD,E9,DD,E1,D1,7D,93,1815 LDAF@] Sen DATA 8000,93)58/1naC.aD/2B/17 9120859 enaası 
252 DATA BAnB38,77,SC,AF ,95,CDJBA.OSI22ED LBeceı 361 DATA 8808,38, 12,F5,7E,91,77,06/08/0498 LEE20I 
255 DATA BAAB.SFN41,AFNBSCH)25,50,06,27A2 (2AAGı 362 DATA 8810,50,19,54,5D,99,F1,3C,4F,22AB [96741 
254 DATA 8480,56,77,23,AF,1E,01,10/F3,4877 [aD781 363 DATA BNIB,EDIHDJIB,OSL ID SIDDIEDT Sen? Feenen 
255 DATA 84B8, 18,DD}78,E6,F8,0F,@F,BF)SDCD LF1421 364 DATA 8020,DDJE1.CD!DD.OP/AF DI/ED.ASOR Enzaen 
256 DATA B4C0,C6,02,4F}26,00,39,78,E6)&CF2 112901 365 DATA 9828, 53)E8,00/21 00/00) 3P in LIEB Tazan 
257 DATA 84C8,07,30,47,AF,37,17,10,FD,@FA9 L7ICEI 366 DATA 8030,F5,86.30.08/BB/S8.0L7ESoen Ihren 
258 DATA 84D0,C9,E5,D9,EB,E3,73,23,72,4EBQ LiSF41 367 DATA BBSB,12,FL,S7ISELSILSBIOF SE En aaadı 
259 DATA BaDB,25,D1,73,25,72,23,71,23,2A4D LASSAI 368 DATA 8840,6F,7A,83,39,04,B8,7D/38,38E2 [52961 
260 DATA BAEB,70.C9,DD,E1,78,EB,21 O0, FDE 194723 367 DATA 8848,08, 78,93,38,26)91,38,23,@8°7 LBa2cı 
261 DATA 4E,65,09,23,63,1569 126581 378 DATA 8850,30,B7,28,1F,C5,D5,2A,E8,S2F8 [B7C2] 
262 DATA BAFQ,B9,38,01,79,12,13,23,B7,551D [373AJ 371 DATA 8858,00,5F,1D,16,00,42,19,@9/1433 L21F21 
263 DATA B4F8,28,03,4F ‚ED,BO,E1,F9,DD}14DB L@B2AI 372 DATA 8860)D1.DS/ES'Sa/ 19 EBIEL Ar AeOS Lranzı 
264 DATA 85@0,E9,DD,E1,78,21.00,00,44,592C LFFS@I 373 DATA 8868/ED,B8,D1,C1,18,03/ 7A/SC)AERE Lasacı 
265 DATA 8508,37,4E,E5,09,23,5E,23,56,1340 L6&92E1 378 DATA 8870,28,19.4F}78.91.SC/BE/SB.1916 Lesagı 
266 DATA 851@,18,DC,DD,E1,EB,69,26,08,2804 [28961 375 DATA 8878)01,7B,B7,28,0E,2AlES)QB/ER2B Lys@aı 
267 DATA 8518,44,39,ED,B9,21,20,00,59,3B51 LBA2C) 37& DATA 8880,06,00,09/EB.21.01.00.39.BDAs L791C1 
268 DATA 8520,F9,DD,E9,DDJE1,21,20,00)SCFC LCBFC) 377 DATA aaae,4F,ED,B0}21,08,00/34,3P"BBaL La0a2ı 
269 DATA 8528,39,56,25,96,68,26,00,44,099C LA62E1 378 DATA 8890,5E,13,19,F9,DD,E9,DD,E1,2367 LSEFCI 
278 DATA 8530,39,ED,B0,21,22,88,18,E7,3217 LaAlE) 379 DATA 9898,E1,2D)C2,62,0B)eC)22)00249c LASER] 
271 DATA 8558,DD,E1,EB,78,2F,6F,26,FF,aC57 LF72E1 380 DATA BBAB,DD,E9,21,02,08,54,39,SE,S1BC LFEBEI 
272 DATA 8540,39,F9,70,23,48,06,00,EB,2C43 Laascı 381 DATA 8848,13,19,7E,36.@1,23/77.C9.BSCH Le24E1 
273 DATA 8548,ED,B0,DD,E8,B7,ED,52,19,4901 LABFAI 382 DATA 8859,21.04.00/54.39'SE/4E/23.1405 LF7261 
273 DATA 8550,D8,3E,90,C3,27,28,B7,ED}7D8B LE@D41 383 DATA B8B8,E5,19,56,43,23,E5,191E3/796B Lilecı 
275 DATA 8558, 52,07,ED,42,30,03,09,19,1CC7 LEBeBI 384 DATA 88CQ,FD,E1,D1,E1,AF,E8,28,84,553C 144841 
276 DATA 8568,09, 5E.91.C3,27,28,87,ED,752B (FFB2I 385 DATA 88C8,B9,20,08,78,B9,E1,D1,FD,5513 LFAC6] 
277 DATA 8568,52,EB,13,EA,71,06,F0}18,1D68 13692] 386 DATA B8D0,F9)D5)E9/1A/BE.2D/F@/2S!SIFF Lsalel 
278 DATA 8570,01,F8,11,00,00,C9,DS)EB)3ECS LAE9D] 387 DATA 9808, 13,05,00,18)E7,7C,B7)20/@F6& Lar9nl 
279 DATA 8578,B7,ED,52,EB,E1,18,EB}B7,62339 tE1QEI 151981 
2e@ DATA 8580,E0,52,21,01,00,C8,2B/C9,65aF LE17A] 2 : 2 LECDAI 
281 DATA 8588,CD,DF,@B, 18,F5,CD}69,@9,5455 LasFal }20/CD’a1 ,@AJ1B,FS.CD’aB27 DaBaı 
282 DATA 8590, 18,F@,R7,ED,52,21,01,00,2h26 LFISEI C}@F,CD}97OA, 18)ED!D94425 L7S1er 
285 DATA B598,CB,2B,C9,CD,DF,aB,18,F5,7921 L20FC1 392 DATA 8980,7D,B7,D9,3E,02,CA,27,20,0806 L5sA21 
284 DATA 85AB,CD,B0,99,18,F0,CD,72,97,4£77 134021 373 DATA 8988,CD}F5,@R,18)DF.D9\CR/701SF72 LEDSDI 
285 DATA 85A8,21,01,88,D0,2B,C9,CD,DF,1EF9 LFDF21 374 DATA 8919,09,C2/88/0n.D9.7D/B7.D9.AB2B rsgBeı 
286 DATA 8550,0B,18,F5,CD,B0,@9,18,F0,1494 LFCICI 375 DATA 8918,C8,09,C5,D5)E5,D9,7D1B7,A5B1 L7Sıeı 
287 DATA 85B8,CD,72,07,21,01,08/C8,D8,79B0 L3F@4l 376 DATA 8920,20/05/09/CB/BB.10.34.C9.8SID LEFEBI 
288 DATA 85C0,2B,C9,CD,DF,@B,18,F4,CD,328D LEsaCI 377 DATA 8928, CB,F8,AF,@8,D9)CBFB/7D/AAB? Ialeel 
287 DATA 85C8,B0,@7,18,EF,CD,72,07,21,50sF 13380] 398 DATA 8950,09,95.28.13.30/06.ED.AA.ADF& Lasanı 
238 DATA 8500,00,00,C8,D8,2,C9,CD.DF,17F9 158641 379 DATA 8938,08, 3D,@8,D9,CD}7A,0B}2C,006A L&2DB1 
231 DATA 8508,08, 18,F4,CD,B2,09, 10,EF,14AB L20FC) 398 DATA 8940,3D,20,F9,08,28,01.D9,F1,9927 LyBaQ1 
232 DATA B5E8,CD,72,97,21.01,02.D8,2B,7965 121521 401 DATA 8748,E6,80,20,0F}CD,92,0B,38/53F6 LFC7CI 
295 DATA 85E8,C9,CD,DF,@B,18,FS,CD,B@,AERE [692] 402 DATA 8950,25,0D,7B.0B!B7.2C.20.1E,2B86 TBEgEI 
294 DATA 85F0,09,18,F0,54,5D,4B,42,EB}1A6B L7EBE) 403 DATA 9958,37, 18,20,CD}C6/@B\SF,FS.15C7 L2BAB1 
295 DATA 85F8,21,00,28,74,87,3E,10,20,1260 [E1121 404 DATA 8960,20,10,38.01.D9.CD-ADLEBJISBE rEaAsı 
296 DATA 8600,03,53,3E,08,29,EB,29,EB,103D L&17C) 05 DATA 8968,CB,78,20,09,CD/96/0B72D/7ESB LEGHS1 
297 DATA 8608, 30,01 ,87,3D,20,F6,09,7C,1986 [63501 306 DATA 8970,20,F6/CD!72.0B!F1.30.02. BEE LSF92] 
298 DATA 8619,B5,CA,@3,0R,7C,AA,FS,CD,SBAF L9F341 487 DATA 8978,CB,B8,B7,D9,E1,D1,C11De)5SE7 LEA=20I 
297 DATA 8618,8@,97,EB,CD,80,07,EB,44,s5FE L73E21 a08 DATA 8980,09)D9)CR}78/D9!C2.14.0R,A0C2 LEBERI 
SUB DATA 8620,4D,AF,67,6F,SE,11,ED,6A,8754 , LA5B6l 409 DATA 8988,CD,8F,@A,CD,14,94,D8,2C,49C4 [3D181 
3@1 DATA 8628,ED,42,30,02,09,37,3F,CB,6@G1 ' LASSC) 418 DATA 8990,2D)C8}78EE/88,47.09.09/2157 tageeı 
302 DATA 8630, 13,CB,12,3D,20,F0,EB,F1,3937 [2276] 411 DATA 8998}7D)87,D9,CA}72108,7D\B7\0731 LezDas 
385 DATA 5,48,E5,CD,92,@7,CB,7DBS 12204] 412 DATA 89A0,C8,D9,85,D9,CD,4D,AB,CS,ABFF L0CAJ 
384 DATA '1D,D1EB}CD)@F,87,2685 La9DE] 413 DATA 89A8,05,E5,DD,39,CD,72,@B,D9,AC9F [71481 
385 DATA 'B,7A,C8,18,35,CD,61,456F [7766] 414 DATA 8960, 2E,05,D9)3E,08,DD,2. a CSoF82 
386 DATA 8,29,10,FD,C9,0D,61,5097 LASBEI 315 DATA B9B8,6E,00,08,CB,1D,38,@3,CD,SASS [BBAZI 
387 DATA 8658,@7,C8,CB,SC,CB,1D,1@,FA,2DD6 LCF14I 416 DATA 89C0,92,8B,CD,7B,0B,08,3D,20,55F2 LAsAEI 
308 DATA 8640,C9}EB,7A,B7,28,28,7B,FE,SBSB LABF61 D9}2D,D9,20,E5,DD,4E,ASB8 L9GlEI 
309 DATA 8668, 18,30,93,47,87,C9,AF,67,0765 LCO6EI B!78.20.09.98.C0.87.4335 TACBSI 
318 DATA 8670,6F ‚09, EB,7C,AA)7C,FA,ZE,IAMA [9BSC9 419 DATA 89D8,0B,2C,2D)2 ;Fl, ESDB&J 
311 DATA 8678,07,BA,C0,7D,BB,C9,17,C9,34CB L1DaB1 428 DATA 89E0,F1,B7,08,F1,D9)C1,E1.D9!SF87 TACFEI 
312 DATA 8680,CB,7C,C8,7C,2F,67,7D,2F,6471 L7DE@I 421 DATA 89E8,DD,E1,CB,B8)B0,47,2C,2D,48C7 [48281 
313 DATA 8688,6F,23,09,7D,E6,01,6F,26,267C LDaARI 422 DATA 89F0,CC,72,88,88,C9,7D.B7.C8/7D7A [39181 
314 DATA 8690,@0,C9,ED,48,CA,@0,ED/5B,2C81 LCAEMI 423 DATA 89F8,D9,95,D9,3F,CD)AD,@B/ES,SABF LA4SAl 
315 DATA 8698,C8,@0,C5,05,79,41,4A,53,73F3 15387C1 424 DATA BABBJES)ES.DD,39.D9,2E.05.D9.59535 173021 
318 DATA B6AQ, 1E,@0,1F,CH,18,CB,19,CB,0545 LBABAI 425 DATA BAQB,SE,08,98,CD,C&,@5,30,@0S}16BF LEBBZI 
317 DATA B6AG,1A,CH,IB,E1,19,EB)E1,ED/SOFB LFEA6I 426 DATA BA10,CD,AC,OB,SF,CB,15,08,30)4931 L99DA1 
S18 DATA B&BB,AR,44,4D,21,E9,62,19,2 Lıca@] 427 DATA 8018,20,@C,DD,75,85,DD,2B,D9}@C23 tCacB] 
319 DATA B6B8,CB,20,EB,21,19,36,ED,AA, IR«DE) 428 DATA 8A20,2D,D9,28,0E,SE,@8,CD,86,2SEC L6sEAl 
320 DATA 86C0,22,Ch,00,44,4D,C9,06,00,2688 [C42C1 429 DATA BA28,0B,30,DF,88,CD,AC,@B,B7}1697 LA2FC1 
321 DATA 84C8,11,19,27,CD,E2,07,11,E8,0376 LC24A1 430 DATA BASB,18,E1,CD,86,0B)38,84,CD}2SFD LAFCCI 
322 DATA 8609,03,CD,E2,97,11,64,88.CD,2F25 137721 431 DATA BASB,C6,QB,SF,EI,DI.CI.CB,7B/&C52 LEFF2I 
323 DATA 86D8,E2,07,1E,@A,CD,E2,07,7D,7633 [2aCQ1 432 DATA BAA0,28.05,CD,87.0B.18/9A.2C.B1EB tFsecı 
324 DATA 86E@,18,0D,AF,SC,ED,S2,S0,FB,1FDB [9F281 433 DATA 8A48,20,97,37,18,95,38,06,06,3622 LBFIEI 
325 DATA 86E8, 19,04, 50, 20,02,@5,CB,C6,0972 LSAsEI 433 DATA 8A50,88,38,86,18,1B,C6,B0,30,4DB8 LL5643 
326 DATA 86F0,39,DD,77,00,DD,23,C9,DD}268B LAEEZI 435 DATA 8058} 17,6F,DD)ES}D9)ES)CH 78.01 7E LOyBEI 
327 DATA B6F8,7E,08,D6,24,4F,21,00,@0,257C L9CSal 436 DATA BA2Q,CB)FB,DYJABJEL.BOIFS.CB/AESI 180861 
328 DATA 87@@,20,92,DD,23,DD,7E,28,CD,@ECD LiCD41 437 DATA BA&B,FS,DD,ES,DD}21,00,08,C9,SBF1 L1DaB) 
329 DATA 8708,A6,04,D6,30,38,29,FE,@A,ABS2 LAsB41 438 DATA BA7@,E1,DB,AF,6F,47,4F,57,5F,5665 [D6FB] 
330 DATA 8719,58,BE,00,00,20,21,D6,07,1EFF L68761 439 DATA 8A78,67,C9,B7,CB,18,CB,19,CB,1885 [96181 
331 DATA B71B,FE,QA,SB,1B,FE,10,30,1 [SBBA] 430 DATA BABB,1A,CB,1B,CB,1C,C9,B7)CB,3271 LDD121 
332 DATA 8720,54,50,27,D8,29,D8, 00,01 LZDBO] 441 DATA BABB, 14,CB,13,CB,12,CB}11,CB,3545 L[74B6] 
333 DATA 8728,20,02,54,5D,17,D8,29,D8,1CF2 ICD&EI 442 DATA BA9B,18,C9,7C,D9,84,D9,67)7B.3FAl L33EB1 
334 DATA 8730,5F,16,00,19,D8,18,CB,79,2CDF Li9AEI 443 DATA 8A98,D9,8B,D9,5F,7A,D9,8A,D9,S1E9 Las321 
335 DATA ’ D,EI,EI,GAGF [3436] 444 DATA BAAB,S57,79,D9)89)D9,4F,78,D9,21AD LDF@2I 
336 DATA „ES, 6,00,25,39,4E,01,68E1 LAS521 445 DATA SAAB, 88,D9,47,C9,7C,D9,94,D9,7745 LFıa21 
337 DATA 8748,38, 10,77,EB,21,20,09,44,1AlC L7FA6] 446 DATA SABB,67,7B,D9,9B,D9,5F,70,D9,3849 [92243 
338 DATA 8750,ED,42,39,F9,EB,E5,93,ED,6A97 [76001 LE2041 
33? DATA 8758,B2,EB,E1,2B,1B,4F,03,ED,7DSF [67261 L7BFEI 
340 DATA 8760,B8,EB,23,F9,DD,E9,SE,10,6810 Lalcaı E13421 
341 DATA 8768,C3,29,20,DD,E1,CD,C8,04,6758 LF&D2] 458 DATA BADB,7A,D9,BA,D9,CQ,7B,D9,BB,1775 [91441 
332 DATA 8770,57,£1,CD,DD,@9,5F,E1,E5,87As LASER) 451 DATA 8AD8,D9,C0,7C,D9,BC,D9,C9,09)595F LF1801 
345 DATA 8778,7D,93,38,1A,14,15,28,16,1C52 [54321 452 DATA BAEO,78,D9,AB,F2,E9,0B,78,17.17E3 IB2E6I 
344 DATA 8780,BA,38,16,3A,06,00,68,39,5589 L[D2SC1 453 DATA SAEB,C9,CB,78,28,96,CD,F3,0B,5929 [97061 
345 DATA 8788, 7B,82,54,5D,3D,6F,68,39,12FD LC1BG] 454 DATA SAF@,C8,3F,C9,7D,D9,BD,D7,C0}707E LC9661 


84 WWW.HOMESOMPUT! 


SAF8,B7,C8,C3,C6,8B,7D,D6,81,7D®1 
8B00,DA}72,@B,SC,FE,28,D8,D9,7589 
8508, C5,D5,E5,88,CD,72,@B,08,4C5E 
8B18,37,CD,7B,0B,3D,20,F9,D9,2753 
8518, 7C,D9,A4,D9,67,7B,D7,A3,1295 
8528 ,D9,5F ‚7A,D9,A2,D9,57,79,7F33 
9528,09, A1,D9,4F ‚78,07, AB, D9,5A2D 
8B3@,47,C3,7B,0A,D9,C5,D5,E5, 1813 
8858,D9,CD,AC,@F,D9,CD,FD,@B,4EBD 
8849,09 ,CD,B1,@A, 18,EB,7D,B7,AC61 

CB} 78, 3E,83,C2, 27 ,28,393E 
0 ,CB,2F ,AESI 
5,D9,C5,4183 
D Ban et 


8B70,E1,D1,C1,D9,E1, 
8578, BC, ES, 30, ES,Fil, D9, C9,D‘ 
8B80, sch, BE} OF ,2D, ’cD, ‚ei, BA,D 
8B88, CD, BE,OF, 2cH D9, 70, FE, &C, AB8C 
8690) D8,C5,CB,BB,CD,DF,@B,C1,4A6S 
8898,38, 0, CD, FS,BA, co), 34, 0C ,@BBO 
B8BAB,CD,97, Yon, CB, 78,28,03, CD, 4D1B 
BBAB, aD, an, D9, 2D, D9} co, DF, op, 19B9 
BBBR,FS, MH ‚as, CD,81, yon, D9,2D,7DBF 
8668, D9,CD,DF ‚0B, 58,@5,D9,2C,44DA 
1, van, 20 FE, saL,: 38,3B,465B 
SARA, A „215; 7875 


BBDR,7F,AA,CD 3 
8BD8, 21,07 ,0D, 31 
8BEQ}DDJE1,CD,AC,@F)CD,97,0A,A7CB 
8BE8,CD, 97 ,0A,C5,D5,E5,D7,CD,AAlS 
BBF@,AC,AF ,2D,2D,D9,2D,CD,@D,555B 
8BFB,0A,D9,E1,D1,C1,D9,CD,B1,2687 
BCA@,QA,2C}2C,F1,2C,2D,CB,DB,B4@C 
2C@8, 78, EE,88,47,C9,67,AA, SF ,1SAF 
aC19)2B,32,D7,6E,B&, 2A, 1D,EF ‚@GCD 
8018,38, 74,0D,DB, @@,0D,D®, 7A,GC4E 
8C20,08,88,88,88,@8,7E,AB,AA,7FCA 
8028, AR, AA,AA,2C,2D,3E,B4,CA, 64952 
8638,27 ,28,CH,78,02,27,28,D9,0375 
8038,CD,98,@F,D9,7D,2E,81,75,4E37 
@CaQ,FS,CD,F5,0A,D9,CD,86,0F ,5SsF 
5,D5,65,D9,4B2F 
« "D9.E1.D1.C1.2B6F 
8C58,CD,F5,@A,DD,ES,DD,21,80,55C2 
SC60)@D,SE,06,CD,34,QF/DD,E1 ,25D7 
8068} 2C,D7,CD,A2,@F,2D,D9,CD,3273 
8C78,@D,QA,F1,C5,D5,ES,6F ‚26, 13B4 
8C78,00,38,01,25,CD,28,19,D7,Q8C1 
8C8@,2C,CD,97,8A,D7,E1,D1,[1,332F 
SCB8,CD,@D,@A,7D,FE,67,DA,72,64FA 
8C9@,8B,C9}7D,8A,9D,D8,87,10,3647 
8098, 7D,E9,A2,8B,2E,3A,7D,8E,19DC 
BCAB,ES,S8,BE,63,7E,49,92,24,6BA4 


8CC@.B8,CD}F5,0A,7D,FE,B8,30,7078 
80C8,47,C5,D5,E5,2C,CD,DD,@F ‚aSCB 


SCDR,ES,CB,5C,CB,1D,7D,E 5 
SCDB}CD, 88, 10,20, 2D,28,@1,2D,65A7 
SCEQ}D9 ,F1,E1,D1,C1,F5.CD,81,4537 
SCES, @A,DD,ES,DD}21,18,0E,SE,225A 
SCF@,@8,CD,49,QF ‚DDJEL,F1,38,3A2E 
SCF8,0A,FS,D9,CD,98,0F ,D9, CD, 2AS3 
8080,97 ,0A,F1,85,6F,38,89,F1,5CQB 
8/09,CD,84,@F,CS,F5,@A,4114 
1336,01 ,C3,27,28,6D,2E,725C 


8D20,E5,7F ,74,36,7C,89,84,21,604D 
8028, 77,53,3C,FF,C3,2E,7A,D2,21B6 
8030,7D,5B,95,1D,7C,25,B8,46,3972 
8038,58, 65, 7E, 16} FC,EF}FD, 75, 3FBS 
8D49,80,02,F7,17,72,31,7D,B7,6889 
8048) C8, DD,E5,D9}CD,86,8F ‚D9,46C7 
BDS@,AF,CB}78,28,03,3C,CB,B8,6986 
8D58,F5,CD,DF,&B, 38, 08,D9,CD,520F 
BDAQ,FS,BA,FI,CH,FF,FS,D9,@1,6F@F 
BD&B)CF,@6,11,8E,E9,21,7E,4A,6BBA 
8070,09 ,CD,DF,@R,30,25,CD,2E,44B® 
8D78,0F, 18,4F DD, 21,CE,@E,SE,97A2 
12/88,D9,11,12,00,DD,19,1805 
D, 73,@F ‚D?,CD,DF, m = 730A 


'B,F8,CD,@D,@A,C5,D5,ES,AQFB 
'D, 73, F CD, 77,0A,D9,CD,729F 
&DBQ) 86 ,OF/CD,0D,@A,DY,E1,D1,5B97 
@DEa}C1 ,CD,FS, aA, DD,ES,CD,2E, 4908 
EDCQ,OF ‚DDJE1,D9,CD,&E,BF,CD,2673 
BDCB, OD, @A,F1,17,38,@A,F5,D9,1BCB 
EDDQ,CD,BE,QF)2D,CD}B1,BA,F1,42B9 
DD8, DD,E1,CB,AF ‚CB,CR,FB,C9,4F0S 
8DEQ, 7F )E7,CF,CC, 13,54, 7F,F6,12A8 
8DEB,F4,A2,30,89, 7F,6A,C1,91,9753 
EDF@,OA,06,B0,B5,9E,BA,6F ‚44.1992 
8DF8,80,82,2C,5A,CD, 13,88, 6A,61EE 
BEB®,C1,71,0A,06,81,00,00,00,41E8 
BEOB, 00, 00,80, 21,A2,DA,OF,49,143F 
8E19,7D,E8,A2,8B,2E,BA,7D,BE,1B9C 
GE1B,E3,38,BE,63,7E,49,92,24,6BA4 
8E20,49,92,7E,CD,CC,CC,CC,AC,0774 
8E28,7F,AB,AA,AR,AA,AA,DD,21,OCCS 
BESQ,BA,OF ,SE,05,C5,D5,E5,F5,0513 
8E38,CD,AC,BF ,CD,97,QA,F1,CD,4S@F 
8E40,49,F ‚D9,E1,D1,C1,C3,97,S6ED 
8648, 0A,F5,D9,CD,6E,@F, 18, 10,2CDC 
8ES@,FS,D9,C5,D5,E5,CD,sE,BF,SDFF 
BES8,CD,@D,®4,D9,E1,D1,C1,D9,6C007 


CC5141 
[C2E8] 
ESSECI 
T2ACB] 
tEIFBI 
[63F@] 
147221 
L7ABEI 
L6CCAI 
112043 
LA7BAI 
C3B48] 
CBaD4] 
tFe18] 
[25083 
LAFEEI 
£C8281 
EFaB6] 
£2D7@1 
18068) 
EAAFAI 
tEEIAI 
cc17@) 
L7A1G] 
LFASAI 
18520) 
EFDDEI 
CBABAI 
tESABI 
122841 
[765C3 
CA6SA] 
62214] 
L93E01 
ES2FC] 
LEFQB] 
L95A41 
LEFFEI 
CA5241 
[B368] 
LBCaAI 
LB63E1 
EC74AJ 
128@8C1 
LDC581 
CBAEBI 
cA72@1 
ECSCBI 
[2738] 
LEBF2) 
651523 
LCOF41 
LaAsa] 
LEDBEI 
[5553] 
[7888] 
LE22C1 
[65201 
L14361 
T2AGEI 
TE4AEI 
[42861 
L7E@21 
CAC141 
[48641 
LE79E1 
E9BE2I 
C8E7C1 
ECD9B] 
[7184 
ECSECI 
L44A2J 
EF538] 
193881 
[49683 
[58E23 
18234) 
192421 
Es10C9 
CABBAIJ 
CES@2] 
152241 
LASSC) 
LA7IEI 
LAS578] 
[&D641 
194601 
EFIICH 
EA1sBl 
CEA6B] 
LEBB&I 
[843C1 
L76A8] 
14334) 
EBFCB] 
CBDBQJ 
EB6EZI 
L29FEI 
[CES8] 
EFDS@] 
CB4B&] 
EDBSA1 
[5A94] 
[DEB6I 
LOB&EI 
LEIFZI 
189241 
LCFBAI 
191261 


564 DATA 8E68,CD,97,BA,F1,3D,20,E9,D9,4D73 LD4FA] 
5645 DATA BE&8,CD,86,@F,C3,0D,0A,11,06,4AB4 [D9D41 
566 DATA ’ EBBFAI 
567 DATA 8E78,81,DD,SE,® . [C5841 
568 DATA BEB@,4E,84,DD,46, 25,09, „2; jet} }Snar [2448] 
569 DATA 8E88,00, 44, ‚ac, 54, SC,C9,81,@0F,1C09 TBFBE] 
578 DATA 8E98)49)11,A2,DA,21,82,21,09,3AAB [7344] 
571 DATA 8E98,01,84,35,11,33,F3,21,81,84A7 LFBBEI 
572 DATA BEAQ,FA,C9,01,72,31,11,F7,17,4875 LBAB4] 
573 DATA SEAB, 21,80, .D2, C9, cs, 05} ES, D9, 223F LS4FA] 
574 DATA BEB@,E1,DI, Mar Cc9,CD,92,07, MER 547E LATEA] 
575 DATA BEBB, 80, a0, SE, 20, CB, 78, 20) ©, 4235 [2370] 
576 DATA BECO, EB ER sch, 12, CB, 11, MI: 10,729A L17F4] 
577 DATA Fi F, CB, BB, BEL 132D LSD2EI 
578 DATA 16! OF .2i EDF18] 
579 DATA 8ED8,CB,F8,2D,CD,@0D,0A,B £[D76A] 
588 DATA „Ic, '8,08,C1 [3022] 
581 DATA BEEB,SE,8F,BD,S8,16,28,0 L65E2] 
582 DATA BEF®,7A,BB,2C,18, ’ES, CD, 71 ’ tZEIE] 
583 DATA GEF8,08,40,69,C8,C3,83,87,21,199B LAB92] 
584 DATA BFOQ,BO, ‚ao, ’c9, SE, 92,C03,27,20,1D32 LSASE] 
585 DATA 8F@8,7C,BS5, CA, 72, @B,CB, 7C, 28, BEA4 LSFIEI 
586 DATA BF1B@, co, ‚so, ‚27, SE, MH 29, 30, IcB} 4115 LE2A2] 
587 DATA EICH 7C,28, FA, 44,4D,11, a0, a0, 2D2C 16392] 
588 DATA 8F20,62, Jar, 08} ca, CB} Ba, C9, CD, „2227 L1AFZI 
589 DATA 8F28, C8,84,EB,1E, ao, 38,04, FE} 7996 12702] 
598 DATA 8F30,19,38,18,1D, CD, c8, 04) 109, 85C9 L9FBB] 
591 DATA 'B,78,D9,16 Kae 28, vi, 14, si4E LAA7AI 
592 DATA 2,30,01, Ks er ‚a7, Ey ‚02, 4876 112780] 
593 DATA ECABAI 
594 DATA “BO, 13444] 
595 DATA 1,D1,4F,7A,3C,CB, ” LA41A] 
596 DATA BFaR, 18,81,F2,6B,18,FD,36,800,3308 [A676] 
597 DATA 8F68, ao, 18, aB, FE, 0C,38, a2, 3E,@85A LDOA2I 
598 DATA 8F78,0B,D5,CD,8@,11,D1,CB,78,2342 t91C2] 
599 DATA 8F78,28,25,3E,2D,CD,E5,1@,CB,1547 LEBDEI 
608 DATA BF89,7B,28,03,61,0E,00,CB,79,386F L1A78] 
681 DATA 8F88,28,85,CD,E3,10,18,@7,CD,@2F53 L[DA98] 
602 DATA BF98,D9,18,0D,F2,8F,10,7A,B7,627B LEBCO] 
683 DATA 8F98,28,17,3E,2E,CD,ES,190,00,11538 L[L7192] 
684 DATA BFAQ,28,86,CD,E3,18,15,28,F7,8273 LBB6B] 
685 DATA LaCAB] 
685 DATA L1C6AI 
607 DATA L1AD61 
688 DATA ECD@21 
687 DATA LTEBDEI 
618 DATA SFDA,‘ jc#, 3A, DD, ‚ze, on, DD, ‘23; 18, 7224 [52B6] 
#11 DATA BFDB, BC, FD, 7E,@8,FD,23,B7,20,38AA LEBOB] 
612 DATA SFEB,24,FD,2B,3E,38,DD,77,008,39DA LCFECI 
613 DATA 8FE8,DD,23,C9,FD,ES,2C,2D,2@,7752 L[3B14] 
614 DATA SFF@,BE,86,0C,FD,36,0@,3@8,FD,@9FD L1i7ECI 
615 DATA 8FF8,23,1@,F8,AF,C3,7D,11,C5,877B L[3CEB] 
61& DATA #ENDE* LEBCEI 
617 adr=%8080:zeile=184:MEMORY L7FFF L184E1 
s18 BER ds: IF d: "#ENDE#*"THEN 627 EFFAR] 
617 pı L[SFiEI 
628 Tro8 [16621 
621 READ as AL("&"+a$) [F148] 
622 POKE adr ‚a:adr=adr +1 t2A1CI 
623 pr=pr*2: IF pr>65535 THEN pr=pr-65535 LBS9C9 
624 pr=UNT(pr)X0OR arIF pr<B THEN pr=pr+6553 
& LSEB4] 
625 NEXT i LAsBAI 
626 READ pr$:ipr2=VAL( +pr$):IF pr2<® THEN 
pr2=pr 2+65536 142961 
627 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
in Zeile";zeile:STOP LöB1E] 
628 zeil eile+1:560T0 618 L1E7AI 
629 SAVE"TS1.BIN" ‚B,&2B008,%1008 LASSCI 
638 PRINT d$:END {BI1FEI 
Listing 18. »TS1.BIN« (Schluß) und, 
1° Ara a tCEDB] 
181 ‘* T82.DAT - DATA-Lader von 'CPC’ * 1890401 
12° Am nabannn L4EDCI 
185 ' EDEB&] 
184 DATA 90@0,CB,B8,7D,D9,D6,80,6F,9F,4D41 LCIEA] 
195 DATA 9008,67,11,4D,00,CD,F5,96,11,5BCi L@74E] 
196 DATA 9910,05,20,19,7C,FE,D9,20,01,02B5 [68281 
187 DATA 9818,3C,FD,77,00,ED,44,CD,48,28082 L8BaC) 
188 DATA 902@,12,7D,FE,81,50,06,CD,B3,0121 LCF4A] 
189 DATA 9028,12,FD,35,80,CB,F8,3E,84,35A8 L[8D90] 
118 DATA 9030,95,2E,00,28,808,CD,7A,0B,400B LED441 
111 DATA 9838,CB,1D,3D,20,F8,FD,7E,08,63A8 LD7CCI 
112 DATA 9040,F5,3E,00,09,78,1F,1F,1F,779D L[S51AB) 
113 DATA 9848, 1F,E6,80F,C6,30,FD,77,88,391A LEC94] 
114 DATA 9050, "EB: ven 2 E6, ‚ar, ya7, C5, MH ‚7718 EFFZACI 
115 DATA 1B,CB,25,4097 LFBEAI 
115 DATA 9,D1,ES,4EAD LCF12] 
117 DATA 19822] 
118 DATA 9070,4D,E1,CB,25,CD,87,0B,08,019A LAsAAI 
119 DATA 9078,3D,20, CB, Fi1,C1, FD, E1,C9,8467 LB8SCA] 
120 DATA gQBB,FDJES,EL,SF,16,00,19,7E, EEC L[L73DCI 
121 DATA 9888,36,0@,FE,35,D8,1D,FA,9C,@@4C L9QB4] 
122 DATA 9890,11,2B,7E,3C,77,FE,3A,D8,BEAC L[&1EE] 
123 DATA 9098,36,00,18,F1,36,31,23,36,1614 LC9CCI 
124 DATA 90AB,00,2C,C9,0D9,01,080,80,D9,1761 L1320] 
125 DATA 9@A8,CD,72,8B,DD,7E,8@,CD,A6,747C L1D121 
125 DATA 9@B0,84,FE,2E,28,8C,D9,CB,70,38A2 LCSBBJI 
127 DATA 9@B8,37,C@,CB,F@,D9,DD,23,18,38082 L38B6] 
128 DATA 9BCQ,EA,FE,45,28,21,CD,39,12,42FC [21021 


85 


127 DATA 98C8,38,54,28,CD,B3,12,D8,08,84B8 
138 DATA 92D8,D9,C5,6F ‚26,88, cB} ‚@8,10,5174 
131 DATA 9@D8,CD,E9,89,D9,C1,DB,CB,78,54FE 
132 DATA 9BE@,28,81,@D,D9,18,D7,CD,1E,1As8 
133 DATA 9@E8, 12,D8,D7,CB,E@,DD,23,DD,2C7F 
134 DATA 9@F@,7E,BB,FE,2B,28,86,FE,2D,22F9 
135 DATA 90F8,20,94,CB,E8,DD,23,CD,36,8128 
136 DATA 9180, 12,3F ,DB,4F ‚DD,23,CD,36, 1EF8 
137 DATA 9188, 12,30, @A,DD,23,57,79,87,89A1 
138 DATA 9118,87,81,87,82,4F,CB,48,28, 7AAC 
157 DATA 9118,84, 77,ED,44,4F,D9,D9,79,8577 
148 DATA 9120,C6,88,FE,5A,DB,FE,As,SF,SD2B 
141 DATA 9128,D8,C5,DD,ES,79,CD,48,12,48DE 
142 DATA 915@,DD,E1,D9,C1,D9,C9,DD,7E,45D8 
143 DATA 9138,@0,D6,38,3F ‚DB,FE,OA,C9, 3505 
144 DATA 9140,F5,B7,F2,47,12,ED,44,F5,4E29 
145 DATA 9148,CB,3F ‚CB,SFSC,21,FA,FF, 7OBF 
146 DATA 9150,11,96,80,19,3D,28,FC,EB,@GEB 
147 DATA 9158,DD,21,77,12,DD,19,CD,73,6£65 
148 DATA 916B,0F,F1,E6,03,28,88,F5,CD,2777 
149 DATA 9168,83, 12,F1,3D,28,F8,F1,B7,4345 
158 DATA 9178,F2,97,8A,D9,C3,F5,0A,91,5549 
151 DATA 9178,00,00,00,08,00,8€,00,00,0238 
152 DATA 9180,@0,40,1C,98,00,08,20,BC,1Acc 
153 DATA 9188, SE,AB,88, 18,A5,D4,48,B6,321E 
154 DATA 9198,84,BF,C9,18,BE,C3,AC,C5,37B1 
155 DATA 9198,EB,78,2D,D8,CD,CE,1B,02,6684 
156 DATA 91AB,53,DE,F9,78,39,3F ,01,EB,877D 
157 DATA P1AB,2B,AB,AD,CS, 1D,F8,C9,7B,2491 
158 DATA 91BB,CE,97,48,7D,B7,C8,CB,F8,AAE6 
159 DATA 91B8,C5,D5,7C,CD,7A,@B,CD,7A,568C 
16@ DATA 91CQ,@B,84,67,E3,ED)SA,EB,E1,2167 
161 DATA 91C8,ES,ED,4A,44,4DJE1,30,86,464A 
162 DATA 91D@,CD,7B,8B,2C,37,C8,7D,06,7944 
165 DATA 9109,@3,6F,CB,B8,C9,@E,01,18,BECA 
164 DATA 91EB,02,0E,9@,CD,3F,15,1A,BE,BF6E 
165 DATA 91E8,20,88,25,13,18,F8,79,EE,142C 
166 DATA 91F@,01,4F,21,48,00,39,F9,69,121F 
167 DATA 91F8,26,0@,DD,E9,0E,01,18,82,867& 
168 DATA 9200, @E,0@,CD,3F,13,@D,28,D1,1DBD 
169 DATA 9208,EB,BE,@, 1A,B6,BE,20,E2,784A 
178 DATA 9210,25,13,18,F7,@E,01,18,DA,IBRE 
171 DATA 9218,CD,3F,13,1A,B6,77,23,13,6EB9 
172 DATA 9228, 10,F9,EB,F9,DD,E9,CD,3F,2059 
173 DATA 9228, 13, 1A,2F,A6,77,23,13,1@,0382 
174 DATA 9230,F8,18,EF,CD,SF,13,1A,A6,6Al& 
175 DATA 9238,77,23,13,1@,F9,18,E3,FD,36B3 
176 DATA 9248,E1,DD,E1,21,88,88,39,EB,5969 
177 DATA 7248, 21,20,98,45,39,FD,E9,DD,1FES 
178 DATA 9258,E1,21.21.08.39.7E.B7.28.7D96 
179 DATA 9258,83,AF,18,86,2B,46,CD,BA, 2848 
188 DATA 9269,85,A6,21,22,08,39,F9,21,2037 
181 DATA 9248, 08,08,28,81,23,DD,E9,3E,0698 
182 DATA 9270,AF,32,E8,@@,FD,E1,2A,D2,42EA 
185 DATA 9278,80,86, 18,CD,E2,85,AF,12,8918 
184 DATA 9280,E1,22,E2,@@,FD,ES,7C,B7,6873 
185 DATA 9288,20,86,3E,22,32,D®,0@,C9, 1679 
186 DATA 9298, 3A,EB,80,B7,28,@A.CD,B6,2C34 
187 DATA 9298, 13,28,85,2A,E2,00,77,C9,04B7 
188 DATA 92AQ,CD,F2,93,2A,E2,00,36,@0,SFBC 
189 DATA 92A8,11,0C,00,19,EB,21,5C,2@,2D74 
198 DATA 9250,81 ,24,08,ED,B0,C9,96,86.,B1FE 
191 DATA 92B8,21,E6,13,C5,E5,06,03,ED,2GEB 
192 DATA 92C0,5B,D2,98,13,1A,FE,20,28,1B7@ 
193 DATA 92C8,FA, 1A,CD,A6,04,96,28,0A,6n62 
194 DATA 9208,E1,C1,11,84,08,19,18,E3,4207 
195 DATA 92D8,B7,C9,23,13,1@,EB}C1,C1,6EFF 
196 DATA 92E0,1A,FE,SA,CQ,7E,C9,43,4F ,39DD 
197 DATA 92EB,AE,C1,54,52,4D,C1,4B,42,1958 
198 DATA 92F0,44,82,4C,53,54,43,41,55,0D4B 
199 DATA 92F8,58,C4,55,53,52,05,3E,AF,13C7 
200 DATA 9300,32,E8,80,CD,49,14,34,D@,2C6C 
201 DATA 9398,00,B7,C®,2A,E2,@@,CB,AE,S148 
202 DATA 9318, 7E,E6,@F,C8,CD,30,14,35A,QDDa 
D8,00,87,C0,2A,E2,00,3A, 7082 
204 DATA 9320,E8,80,B7,81,20,98,28,83,64A3 
205 DATA 9328,@1,48,0@,71,23,23,7@,C9,162D 
286 DATA 9338,CD,5A,14,2A,E2,80,11,0C,771E 
287 DATA 9338,80, 19,EB,3A,E8,0@,B7,@1,1EAF 
28.0A,D5,@E,13,CD,@41B 
1,@1,16,F1,C5,CD,1A83 
1,3C,C0,78,32,D@,1E34 
2A,E2,00,11,18,90,3954 
36,98, 23, 18,FB,0D37 
88, 7E,E6,8F,C8} 70F6 
@A}SE, 1A,CD,C6,7D64 
17,18,83,CB, 7E,3994 
22,65, 11,0C.00,75B4 
2, CD,85,88,E1,381D 
}FF,32,D8,00,13D8 
'3,22,E4,90,E3,0673 
,22,E2,00,E1,60F9 
„@@,E3,22,E2,556A 
3E,@2,32,D8,3@4C 
:4,00,E3,22,2AC4 
„3E,83,32,69CC 
22,E: 


m 


»1D,FE,18,29E8 
„29,FE,1A,80132 
»38,FE,2@,B6EC 


L6C761 
C1D623 
£7036] 
CSDAEI 
[F348] 
CFDDBI 
E7@ACı 
[25DAJ 
CBDSAJ 
cıaAa23 
EDDA4I 
L691A1 
E33F2] 
[42363 
EIEACI 
ECFAEI 
L8ASA] 
153741 
EDDBCI 
191921 
14984] 
Ca18AJ 
C8B88) 
CF944) 
EFA74] 
[32E41 
[8516] 
133D61 
1221@1 
182503 
11454] 
CB6D2] 
EBIAEI 
LAZEAI 
[BEFBI 
ED2CAJ 
ESDSEI 
LFBS2] 
EF25C9 
[6876] 
LS@B6) 
LEEAB] 
C289C3 
E6E12] 
138881 
EFBDAI 
£6C721 
197741 
EF&AAI 
Ca24E] 
L789C1 
c79281 
1572C3 
LCBEZI 
18644] 
CBE9CI 
E2@1E1 
12582] 
E6CSCH 
C1BBBJ 
CDASB1 
CA566] 
CB9AAI 
L7A683 
CAQDAI 
C1EB6I 
C8B82] 
CABZEI 
1D896] 
ECE46J 
£2DC83 
L&Q6E) 
£667C1 
C3AC6I 
EFSZEI 
[83F8J 
CSFD41 
18064] 
ES89E1 
193643 
E1ESCI 
LF6221 
LE7F2I 
L7AF6I 
LEIABI 
[68081 
[6998] 
[CC523 
£197AJ 
[8058] 
LEC&B] 
EBBSEI 
EDFaAI 
148761 
138741 
CAS9CI 
£89C41 
CAS] 
CAD141 
[6EBA] 
LADAAI 
C12C81 
176343 
ESBSE] 
[DSBBJ 
[82861 
171881 


236 DATA 9420,38,11,FE,83,20,D9,3A,DD,217D 
237 DATA 7428,80,B7,28,D3,DD,2A,E4,88,2278 
238 DATA 9430,C3,16,28,79,BA,28,C8,7E,638E 
8,C8,15,161D 
28,92,08,4414 


241 DATA 9448,28,88,8@,1D, 
242 DATA 9450,84,85,29,AB,1 
@8,CD,E1,17FB 
@A,23,22,@F6C 
‚@8,C9, 08, 35A,D8,7734 
246 DATA 9478,88,B7,20,7 
247 DATA 9478, 70,E6,0F,2@ 
248 DATA 9480,87 ,F2,97,1 
Bu Ba 19,E1,28 


J4AB, 14,20, 3D.2N,E2,00,23, 23 varra 
ano: EN 18,35, BE B,1B, 


‚D4,88,7E, 2,D4,20,18,65A8 
257 DATA 94C8,17,3D,28,86,CD,A3,00,7D,0439 
?5A DATA 94D0.18.8E.3D.3D.20.06.CD.AF.QBDD 
2579 DATA 94D8,8@,7D,18,24,CD,B5,88,7D,18C1 
268 DATA 94EB,2A,E2,@@,CB,EE,23,77,2B,2609 
261 DATA 94E8,C9,23,7E,2B,C9,3E,1A,C9,677D 
262 DATA 94F@,ES,2A,E2,BB,7E,E6,UF)FE,AACH 
265 DATA 94F8,86,28,27,CD,6B, 15,FE,21,0SE1 
264 DATA 9500,30,08,FE,1A,28,04,CB,AE, 2408 
265 DATA 9508, 18,F1,11,5D,88,86, 1E,C5,3751 
266 DATA 9518,D5,CD,&B,15,D1,C1,FE,21,51A1 
267 DATA 9518,38,86,CB,AE,12,13,1@,EF,BEIS 
268 DATA 9520,AF,12,E1,C9,DD,21,5D,00,4566 
269 DATA 9528,DD,7E,88,87,C8,06, 00), FE,7CD& 
278 DATA 9530,2D,C8,84,DD,23,C9,38,85,2999 
271 DATA 9538,DD, 7E,@@,B7,C8,3E,18,32,7CDA 
272 DATA 9549,D8,80.37,C9,E5,CD,6B,15,46AF 
273 DATA 7548, CB,AE,E1,77,C9,3E,AF\AF,)S2F1 
274 DATA 955@,C5,CD,F8,15,C1.CD,24,16,4BF2 
275 DATA 9558,C8,C5,E5,CD,F7,87,D1,C1,43F7 
276 DATA 9560,CD,36,16,D8,85,CC,83,87,6659 
277 DATA 9568,EB,73,8C,9D,28,82,23,72,692C 
278 DATA 9578,EB,C9,CD,F@,15,CD,24,16,52A2 
279 DATA 9578,C8,C5,E5,CD,AS,11,D9,E1,A1SF 
288 DATA 9588,C1,CD,36,16,D8,85,D9,CC,55CA 
281 DATA 9588,8F,@A,D9,C3,D1,05,E5,EB,55AD 
282 DATA 9590,BE,08,C5,D5,CD,6B,15,D1,1SCF 
285 DATA 9598,C1,FE,@D,28,8B,FE,1A,28,5F9C 


284 DATA 95AB,87,CB. 13,12,18,EA,245A 
285 DATA 95AB,E1,71 &B, 15, FE, 1A, 7BDA 
286 DATA 95B8,28,13, FE,@A,28,0D,84C5 
287 DATA 95B8,FE CD,6B,15,FE,71AQ 


C9,2A,E2,8712 
B7,C0,7E,1AA2 
»23,E5,7E,75E8 
19,71,E1,6267 
86,28, 15,282D 
30, CA,A&, 7BBE 


bs aa 
SR EN 


un 


295 DATA 95F8,AC,0®, »2A,E8,08,4438 
296 DATA 96BB,3A,EA, „34,5E,16,2A5A 
297 DATA 9628,2@,17 ‚E2, 00,23, 060B 
298 DATA 9618,23,7E, „@@,8E,15,15D7 
299 DATA 9618,CD,BA,1 ‚F@,32,D8,4524 
300 DATA 9628,88,C9,7D,C3,C6,16,C1,D1,36EB 
3@1 DATA 9628,C5,DD, 2A, D2,@8,CB,7C,28,5ESC 
302 DATA 9639,86,CD,83,@7,EB,18,BE,EB,279F 


385 DATA 9638,CB,7C,28,89,CD,83,87,DD,7BA7 
304 DATA 9640, 36,88,2D,DD,23,D5,CD,C6,1068 
305 DATA 9648,87,E1,CD,C8,@4,ED,5B,D2,2D1@ 
386 DATA 9650,08, DD,ES,E1,B7,ED,52,4D,2315 
387 DATA 9658,EB,71,38,8E,28,0C,47,E5,573B 
308 DATA 9668,3E,28,C5,CD,C6,16,C1,18,048A 
389 DATA 9668,F7,E1,41,84,@5,08,7E,05,4891 
31@ DATA 9670,E5,CD,C6,16,E1,C1,23,18,5032 
311 DATA 9678,F3,C1,D1,D9,E1,D1,C1,D9,5B67 
312 DATA 9688,C5,DD,2A,D2,88,D5,CD,27,5F49 
313 DATA 9688,18, 18,BE,C1,D1,C5,CD,C8,111E 
314 DATA 9690,84 ,CB,43,21,A1,17,0E,84,3FFC 
315 DATA 9698,20, BF,21,A5,17,8E,@5,18,3122 
316 DATA 96AB,BB,54,52,55,45,46,41 ,AC,ASEE 
317 DATA 96A8,53,45,CD,C8,84,21,82,00,2D48 
318 DATA 96B8,39,4E,23,C0,59,17,D1,F97,847F 
319 DATA 96B8,D5,C9,E1,7E,23,B7,28,00,4898 
328 DATA 96C0,47,7E,C5,E5,CD,C6,16,E1,2F4D 
321 DATA 96C8,C1,23,18,F5,E9,3E,@D,CD,6277 
322 DATA 96D8,C6,16,3E,8A,C3,C6,16,11,64DD 
323 DATA 96D8,8D,81,18,@D,11,@D,0@, 18,@5B4 
324 DATA 96E8,88,11,1A,01,18,83,11,1A,03E4 
325 DATA 96E8,88,22,E2,8®,CB,7E,28,1C,152C 
326 DATA 96F@,D5,CD,6B,15,D1,BB,28,18,51D4 
327 DATA 96FB,FE,1A,28,0C,FE,21,30,0C,7B58 
328 DATA 97@0,14,15,28,88,CB,AE,18,E8,BEF8 
329 DATA 9708, 21,81, 88,C9,21,80,8@,C9,1091 
EJAF)S2,E8,8@,ED,53,E6,3FF4 


»11,86,88,19,77,23,77,3E25 
1,24,88,19,77,23,77,11,83DB 


338 DATA 9758,19,E1,23,23,4E,23,46,2A, Sach 
339 DATA 9758,E6,88,B7,ED,42,C8,3E,9@,6AEC 
348 DATA 9768,32,08,82,C9,E5,AF,77,23,2409 
341 DATA 9768,77,23,ED,5B,E6,8@,73,23,2CA5 
342 DATA 9770,72,E1,81,84,08,3E,83,03,011D 


158741 
LEF74] 
C2D883 
EF254] 
LFEOAI 
tA7421 
EDABAI 
024701 
LanıBı 
EEC721 
t1B881 
L86Sc1 
EABAEI 
LA4TEI 
C6B4E1 
E9AAGI 
E711EI 
[02661 
ESACQI 
73083 
[26443 
(8E72] 
LACQa] 
EBB9A] 
tB4A21 
LA3881 
EBABBI 
EF7AZI 
ESC7A] 
[38301 
La9c0) 
CFEBBI 
[0396] 
E6BF8] 
[8866] 
ECFDCI 
LOFBEI 
EDESCH 
ESBCE] 
[C7881 
[91861 
[87601 
C82E8] 
EDS@@1 
ESAE2I 
[1416] 
£31D83 
ED61E] 
EC6A4] 
c944c] 
ES9EAI 
EASa8] 
[51B2] 
E7FC2I 
EDA7@I 
CEB76] 
CABSEI 
ECDIEI 
EB7D61 
[48861 
EDSCEI 
LEA283 
L616n] 
ELICEI 
EZAABI 
EDFEEI 
Lac 
ECAF4] 
[6278] 
685029 
E@EAEI 
ESFAQI 
166821 
L7BBAI 
t668C1 
EF&F@I 
CaFDAI 
C9DD@J 
£B47C1 
EFS2AJ 
LAB6CI 
CAISEI 
L96BE] 
EABC6I 
[3586] 
CAaCa) 
ESCAGI 
£C42A) 
L37F8] 
EF@7EI 
LAACCI 
EBAE6I 
EDCABI 
LAEFA] 
L69DA1 
L1SABI 
[Ba4E] 
159243 
FACE&I 
L2FF4] 
E71Aa] 
ECFABI 
LaBan] 
tBa2a1 
L8B7C1 
£33881 
[62823 


343 DATA 9778,09,19,22,E2,B@,7E,E6,00,0854 [SAS®] 
344 DATA 9798,C8,CD,AE,197,2A,E2,@2,11,41D9 [7SB2] 
345 DATA 9788,2D,88,19,AF,77,23,77,11,109B [4776] 
346 DATA 9798,D4,FF,19,77,23,23,01,84,50@2 [@BiC] 
347 DATA 9798,00,3E,81,CD,87,17,CD,AE,@268 TB@AAI 
348 DATA 97A8,19,C3,81,14,E3,22,E4,88,2B78 [9E581 
349 DATA 97AB,ES,22,E2,08,7E,E6,00,00,6468 [@2AEI 
3582 DATA 9700,3E,04,32,D9,08,C9,34,D8,16CB [63661 
351 DATA 97B8,09,B7,C8,E5,CD,5A,1A,EB,SCaFr [D&2A1 
352 DATA 97C9,B7,ED,52,E1,3@,1®,AF,CD,s4C5S [BES] 
353 DATA 97C8,09,17,2A,E2,8@,11,88,08,09F4 [2C2C1 
354 DATA 9709,19,34,00,23,34,09,3£,99,19D1 [DB761 
355 DATA 97D8,32,D8,88,07,3A,D@,88,B7,25B7 [2886] 
356 DATA 97E0,CQ,E5,CD,5A,1A,B7,ED,52,46C4 IDAIE] 
357 DATA 97E8,3E,81,20,18,2A,E2,88,11,1889 [DA28] 
358 DATA 97F0,04,00,19,34,20,04,23,34,0502 [2BB®] 
359 DATA 97F8,28,08,3E,@3,E1,CD,87,17,1507 [E@A4] 
360 DATA 98@8,18,C8,E1,3E,F2,32,D8,89,2758 [E44E] 
361 DATA 7888,C9,32,E7,@8,EB,2A,E2,88,7514 [4C78) 
362 DATA 9818,CB,66,28,2F,CB,A6,SA,E9,7FAD [282C] 
363 DATA 7818,0@0,CB,47,28,18,23,23,7E,38D4 19958) 

9820, 2B,2B,B7,20,18,3A,E7,80,@AlA L[2ESE] 
7,78,B7,28,13,727F [2478] 
3,19,C5,D5,0E,0848 [26AB] 


DATA 9AD8,3C,28,829,21,5C,08,81,24,15F6 L[3D461 
DATA 9AEB,@@,ED,B@,C9,3E,21,32,D8,209@ LFBBB] 
DATA FAES,28,C7,3E,AF,S2,E8,88,CD,SD8D [BA2BI 
DATA FAFB,AC,1C,C0,s5A,D8,08,B7,SE,SDS® [B2D8] 
DATA 9AFB,21,28,EB,2A,E2,88,11,0C,827E L[A73A1 
DATA 9B20,00,19,11, CABEBI 
DATA 9B98,ED,B@,11,5C EFAB&I 
DATA 9812,05,28,3C,28,, Laa2al 
‚28,01 
‚21,36 


DATA 9B18,11,B® ‚19,88,ED,B@,2552 L[CB24] 
DATA 982@,11,00,01,3A,E8,80,B7,20,0D@E LD42A1 
DATA 9B28,84,ED,5B,81,21,31,8@,@1,32FD LDB4@1 
DATA 9832,C3,B8,2@,D5,@E,1A,CD,25,4157 [DSBA1 
DATA 9B38,88,11,5C,8@,@E,14,CD,85,BE7F [93761 
DATA 7840,80,D1,21,80,@8,19,EB,B7,3765 L[SC48] 
DATA 9B48,28,E9,18,37,22,E2,80,7E,2CD6 [349A] 
DATA 9B5@,E6,0F ‚CH, SE,20,32,D8,00,6A48 [84901 
DATA 9B58,C9,22,E6,00,ED,53,E8,88,7734 [L139A1 
DATA 9BAR,EB,E1,22,E2,09,4E,73,23,465D [45781 
DATA 9BEB, 2 2 EB, B7,ED,42,28,5A,2FFA L[&D261 
DATA '5C,20,3A,DC,00,7BF® LSBA&I 
DATA 
DATA 9BBB,18,AF,12,13,11 
DATA 9B88,5C,80,GE,BF,CD,05,88,D1,299D L&9B6] 
DATA 9898,3C,28,3F ,24,E6,@0,22,7D,1649 [B286] 
DATA 9B98,00,ED,4B,EB,00,C5,D5,8E,3E1® LACDAI 
DATA 9BAB,1A,CD,05,90,11,5C,0@,BE,SFi6 LF98B1 
DATA 9BAB,21,CD,85,8@,D1,C1,B7,28,27A2 L7A9&] 
DATA 9BB@,21,2A,7D,00,23,22,7D,00,14CA LAA6BI 
DATA 9BBB,21,8@,0@,19,EB,8B,78,B1,3625 LCF7EJ 
DATA 9BC9,28,DB,11,5C,0@,@E,190,CD,21F5 LB99A1 
DATA 9BC8,85,80,2A,E2,0@,11,2D,00,87BE LE7SCI 
DATA 9BD@,19,E9,DD,2A,E2,00,SE,F®,285C LAFFAI 
DATA 9BD8,C3,29,20,CD,C8,84,FE,11,64AD [38021 
DATA 9BEQ,D0,32,DC,08,C9,22,F@,00,7820 LBB7A] 
DATA DBERSEBSEI ESS ZZIE2 00 1521 5425 [26901 
DATA B t1BE@] 
DATA 
DATA 
DATA 


108,00 ED}B@,@6,8F82 LCC4EI 
FC,ES,11,261B 1597C1 


9830, 79,B7,F, 
367 DATA 9838,21 ,CD,BA,19,D1,C1,28,51,3@ED L[9F921 
368 DATA 9840,2A,E2,00,3A,E9,98,CB,47,28B9 [iC9AI 
369 DATA 9848,28,@2,CB,EE,23,23,7E,C6,B2AE TAGCEI 
378 DATA 9850,2E,D5,5F,16,80,19,D1,D6,29D8 [1788] 
371 DATA 9858,2E,CD,9A,19,ED,AB,E2,66,32DA [191@1 
372 DATA 9849,19,3C,F2,5C,19,3D,3C,CD,1889 LA2C2] 
373 DATA 7868,94,19,2A,E2,88,23,23,E6,4B@C [D2583 
374 DATA 9870,7F,77,20,16,C5,D5,E5,CD,235B [2EBCI 
375 DATA 9878,AE,19,E1,D1,C1,20,15,D5,4687 LB48C] 
376 DATA 988@,11,2B,88,19,D1,34,28,82,85CA [651@] 
377 DATA 9888,23,34,78,B1,C2,@D,17,EB,1E6D L[CBC®] 

[@SBCI 


[1608] 
1D856] 
tS58F2] 
VEZ,O0,CB,E&, ‚ca, Ci6FAI 
383 DATA 98B8,CB,AE,2A,E2,00, Es, C5,11,476F L92FEI 
384 DATA 98C0, ‚30, ‚ao, 19, JEB} M 4 1A,CD,85,1417 L[@F7A] 
385 DATA 98C8,90,C1 \E1}11,0C,08, 19,EB,2DC9 182A8) 
386 DATA 98D0,CD,05,00,87,C9,C1,D1,ED,68B3 [B284] DATA 9C38,DD,ES,DD,19,DD,75,08,DD,4A1ll L&S51A] 
387 DATA 9808,53,E2,88,C5,E5,CD,SA,1A,19E2 IA4ECI DATA 9C38,74,81,DD,71,82,DD,780,853,2577 LF768] 


451 
452 
453 
454 
455 
456 
457 
458 
457 
Er} 
461 
462 
463 
464 
465 
466 
467 
468 
469 
478 
471 
472 
473 
474 
475 
476 
477 
478 
477 
488 
481 
482 
483 
284 
485 
486 
487 L79F2] 
488 
489 
498 
a9 
492 
493 
495 

388 DATA 98E@,D1,B7,ED,52,38,48,2A,E2,5DBs L[4AEE) 496 DATA 9C4@,DD,ES,D1,2A,F9,00,73,23,4845 LSCAAI 
497 
“98 
499 
sea 
Er} 
s@2 
503 
584 
5e5 
506 
587 
sa8 
E52 
sıa 
sı1ı 
512 
513 
514 
515 
516 
517 
siı8 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
527 
Ex} 
5351 
532 
533 
534 
535 
536 
537 
538 
537 
533 
541 


D,66,85,7D,B4,28,2AEC [OLE] 
48, 2,30, @F,DD,6E,0@,15D@ L[D7C21 
DATA 9C1@,DD,66,@1,E5,DD,22,F8,9®,7EEO L4DD41 
DATA 9C18,DD,E1,18,63,20,@A,DD,SE,SBSC [1714] 
DATA 9C20,28,DD,56,@1,DD,ES,18,1B,38C7 [B2B41 
DATA 9C28,4D,44,DD,6E,2@,DD,66,81,2977 LBABEI 


389 DATA 98E8,00,01,86,08,89,4E,23,46,01F® LDIGEI DATA 9C48,72,D1,2A,F2,0@,73,23,72,@6D8 L[786A] 
390 DATA 98F0,23,73,23,72,CD,2C,1A,@1,@BED LDBBCI DATA 9C5@.C9.DD.ES.E1.19.22.04.00.40B8 L[2BC61 
391 DATA 98F8,04,00,09,30,01,13,7D,E6,0878 L[8B18] DATA SCHB,2A,FR,BQ,QL,@ANOR,OPDD,ZaEF EOA9EI 
392 DATA 9900,7F ‚29, ,EB,ED,sA,EB,S3,5C,2676 [72821 DATA D,ED EBBBBI 
393 DATA 9908, 2A,62,00,23,23,77,01,2B,2F5D LAB4EI 
394 DATA 9910,80,09,4E,23,46,EB,B7,ED,BFAF [L46C6] 
395 DATA 9918,42,89,C8,D5,E5,CD,AE,19,3249 [B7D@] 
396 DATA 9920,01 ,E1,72,2B,73,C9,3E,91,5C61 LIE96] 
397 DATA 9928,32,D0,88,C9,D5,D9,E1,D9,2547 L27AAl 
398 DATA 9930,21 ,00,00,54,5D,3E,10,29,17D9 LF@IRI 
399 DATA 9938,EB,ED,6A,EB,D9,29,D9,3@,4ADE [A378] 
300 DATA 9948,04,09,30,81,13,3D,20,EF,8693 LFCF6] 
401 DATA 9948,C9,CD,5D,1A,B7,ED,52,21,5B49 LFSEE] 
402 DATA 9950,08,0@,C0,23,C9,CD,5D,1A,iFEC L@DB@I 
403 DATA 9958,EB,C9,2A,E2,80,11,84,0@,ACEC [9D9CI 
404 DATA 9960,19,3E,23,36,23,D5,4E,23,18F3 [15581 
405 DATA 9968,46,23,5E,23,56,E1,C9,3E,22A8 [217E] 

ERTEI RER SSVER BEHED «BE EIAEZOEN ZEN [88BC] 


DATA ‚2@, 15148] 
DATA 9C70,00,00,DA,3@,1D,3E,FF)C3,196D LSDB6J 
DATA 9C78,27,20,EB,E1,E3,7E,23,66,BES® L[279C] 
DATA 9CB@,6F,13,13,13,7B,Eö,FC,SF,SIF7 LZACHI 
DATA 9C88,EB,22,F@,8@,2A,DE,QQ,ES,s1CD LCAE2I 
DATA 9C98,DD,E1,B7,ED,52,3@,52,DD,4CD9 L[9B26] 
DATA 9C98,64E,90,DD,66,01,E5,B7,ED,28DF L2EIE] 
DATA 9CAB,52,30,04,DD,E1,18,Fß,E1,2E397 LFSAB] 
DATA 9CAB,DS,FD,E1,ED,4B,F®,00,FD,4655 LD54A] 
DATA 9CBB,71,82,FD,78,83,FD,75,00,25A& LA474] 
DATA 9CBB,FD, 74,81,DD,73, 2, DD,72,602@ L8SCEI 
DATA SCEB,@1.0D, ESJE1,D @2,Di 


2279 (7AaA) 
5,00 DD,SABF CDBF6I 
DATA 5,DD,E1,33C7 LABEAI 
DATA 9CD8,DD,ES,E1,DD,4E,82,DD,4 157401 
DATA 9CEB,@5,DD,SE,0@,DD,56,@1,1B,3AnA [3061 
DATA 9CEB, 1B,2A,DE,8@,ED,53,DE,@8,1B58 LED@A] 
DATA 9CF@,D5,DD,E1,DD,75,2@,DD,74,4E56 L1D3@1 
DATA 9CF8,@1,ED,4B,F®,08,DD,71,02,3E34 L[L9SCC1 
DATA 9D88,DD,78,83,EB,89,B7,ED,52,7FAC L61F2] 
DATA 9D88,C0,D5,FD,E1,2A,C4,2@,B7,4687 L[49C6] 
DATA 9D1@,ED,52,28,1B,FD,7E,88,DD,687D L71iF2] 
DATA 9D18,77,80,FD,7E,21,DD,77,@1,2053 [18781 
DATA 9D2@,FD,6E,82,FD,66,03,89,DD,6963 LDAD21 
DATA 9D28,75,82,DD,74,@3,AF,C9,DD,250B LSDE2J 
DATA 9DSB,E5,E1,22,04,00,06,04,56,4266 [55441 


9CC8,46,8 


EF6BCH 
[7156] 
LABAEI 
418 DATA 9990,23,CD,05,00,E1,11,2D,08,2576 197121 
411 DATA 9998,19, AF,4E,77,23,46,77,11,29@F LFF6EI 
412 DATA 99AQ,D&,FF,19,71,23,70,23,36,5858 LBEABI 
4153 DATA 99A8,8@,23,77,23,77,23,77,09,4783 [78283 
414 DATA 99B0,22,E2,00,7E,E6,C0,C8,C3,2B83 [9@AB] 
415 DATA 9989,81,14,3E,22,18,02,3E,21,4@F5 LFBS6J 
416 DATA 99C0,44,4D,21,F0,0@,22,E6,8@,3B24 [FAS2] 
417 DATA 99C8,DD,E1,D1,E1,DD,ES,C5,CD,46CB [5198] 
418 DATA 99D@.FD.1A.C1.3A.D8.00.B7.CQ.64AE LF&FAI 
419 DATA 99D8,2A,F8,80,ED,42,C8,3A,E9,267D L&EF4] 
420 DATA 99E0,80,FE,21,3E,99,28,82,3E,5C12 [3A7@) 
99EB,FQ,32,D@, H-2 L6FB6) 

CDABBI 

EZABBI 


E71AA] 
DATA E25DE1 
DATA LAS2CI 
DATA 9D5@,0@,22,, ER @8,/DD,2A,DE,@G,11BC L6E96] 
DATA 9D58,DD,4E,82,DD,46,85,77,B9,72EE LICECI 
DATA 9D60,28,1E,2A,F4,00,09,22,F4,1914 [444C] 
DATA 9D68,8@,2A,F6,80,B7,ED,42,30,12F8 L19BE] 
DATA 9D78,04,ED,43,F6,00,DD,6E,@0,3DEB LICDAI 
DATA 9D78,DD,66,@1,E5,DD,E1,18,D8,7CF4 L[L762A] 
DATA 9D88,2A,C6,00,@1,FB,FF,@9,ED,2B4B L[E9EB] 
DATA 9D88,5B,C4,0@,B7,ED,52,D8,EB,108B LDEGEI 
DATA 9D9@,2A,F4,00,19,22,F4,20,2A,2B7A LC18@1 
DATA 9D98,F6,80,B7,ED,52,D®,ED,53,63679 L[BEEEI 


‚BB, LEAABI 
425 DATA FAGB,18,2A,E6,0@,AF,77,23,77,1ED5 LABA2I 
42& DATA 9A18,78,B1,28,39,C5,D5,@E,1A,13AA [94A&1 
427 DATA FA1B,CD,BS,@0,2A,E2,08,11,0C,625E [24661 
428 DATA 9A28,00,19,EB,3A,E9,@@,4F,CD,1F9B L[7BECI 
429 DATA 9A28,05,80,D1,C1,B7,2@,1E,D5,1161 [8754] 
430 DATA 9ASQ,2A,E2,00,11,2D,@@,19,34,2DFE [28501 
431 DATA 9A38,20,82,23,34,D1,21,80,00,1BAC LB9FBI 
432 DATA 9A40,19,EB,2A,E6,00,54,29,@2,5DF2 L[7C&CI 


DATA 9DAB,F6,00,C9,ED,5B,C4,08,73,&D4B Li1EC] 


433 DATA 9A48,23,34,@B,18,C3,2A,E2,08,1B14 [C44A] DATA 9DA8,23,72,C9,5E,23,56,EB,2: LAC82] 
434 DATA 9A58,11,2D,00,19,4E,23,46,11,08831 LBBEB] 542 DATA 9DB0,C4,80,22,DE,00,86,84,36,6BB6 L[B8ESA] 
435 DATA 9A58,DA,FF,19,71,23,7@,11,FC,56F6 [8CD4] 543 DATA 9DB8,@0,23,1@,FB,C9,3E,AF,AF,@2D1 I[2CE&] 
436 DATA 9AsB,FF,19,56,2B,SE,EB,B7,ED,716F ISBSE] 544 DATA 90C8,22,E8,80,AF,77,32,D8,00,2328 LFDS521 
437 DATA 9A68,42,D8,EB,71,23,78,C9,C1,BEFB IFiDCI 545 DATA 9DC8,78,32,EA,80,2A,E2,80,22,2FSA [C4AB] 
438 DATA 9A78,D1,ED,53,E2,8@,05,E5,CD,5593 [33E4] 545 DATA 9DD@,ED,80,21,46,1F ,22,E2,80,7774 LOS6E1 
439 DATA 9A78,5A,1A,D1,B7,ED,52,DA,26,3D62 [9B@21 547 DATA SDD8,E1,22,E4,08,E1,8C,8D,20,6382 [SFB8] 
440 DATA 9ABB,1A,2A,E2,08,01,88,88,89,1BE1 L[282E) 548 DATA 9DEB,@5,CD,26,17,18,83,CD,79,355F I[SFB&l 
441 DATA 9AB8,73,23,72,01,24,80,87,73,3E51 [C3F21 549 DATA 9DEB,17,2A,ED,@8,22,E2,80,2A,1E12 L[379Al 
442 DATA 9A98,23,72,C9,CD,4C,1C,CQ,11,1B71 L[9@FEI 55@ DATA 9DF@,E4,@0,E9,SE,AF,S2,EC,00,68A8 LEEFAI 
443 DATA 9698,0C,00,17,EB,@E,13,CD,@5,@AS3 [C8981 551 DATA 9DF8,22,E8,98,2A,E2,20,22,ED,2E19 [24AA] 
444 DATA 9AAD,OB,SC,CQ,18,3F,FD,E1,2N,1564 TAEB&1 552 DATA 9EBB,00,21,46,1F,22,E2,08,E1,0389 L[5BB21 
445 DATA 9AAB,D2,00,06,18,CD,E2,@5,AF,6D85 TESCHI 553 DATA 9E08,22,E4,8@,E1,22,EA,88,21,2489 [1348] 
446 DATA 9ABD,12,E1,FD,ES,CD,4C,10,C8,2718 IFFFBI 554 DATA 9E10,5C,00,06,1E,CD,E2,85,AF,2A65 [CöBEJ 
447 DATA SABB,ES,CD,F2,83,E1,ES,11,10,5B12 IFFEAI 555 DATA 9E18,12,2A,EA,@8,3A,EC,20,B7,1C17 [E6B2] 
448 DATA JACB,BB,197,EB,21,50,08,81,0C,1BDE [6698] 55& DATA 9E29,28,85,CD,4E,16,18,03,CD,@C1B IGE9AI 
449 DATA 9AC9,00,ED,B@,E1,11,00,00,19,23F1 [53981 

450 DATA 9ADB,ES,EB,BE,17,CD,85,88,D1,4E5D I[B6FC9 Listing 19. »TS2.BIN« (Fortsetzung) 


87 


557 DATA 9E28,72,16,21,D8,80,7E,36,00,3434 
558 DATA 9E30,B7,67,6F ,28,28,DD,ES, FF 
559 DATA 9838, 11,5C,0@,ED,52,EB,2A,E8} 10D@ 
568 DATA 9E40,00,73,23,72,18,A3,C6,00,1Ca0 
561 DATA 9E48)ED,SF,32,CB,80,09,EB,DD,&#9F 
1,E1,78,B1,28,2B,73,5E2D 
8,B1,28,85,54,5D, 13,BEF1 
D,E9,44,4D,DD,EL,ADFF 
8, B1,28,F4,ED,52,57C8 
D,0B,09,EB,89EB,1E8D 
8,DD,E9,55,14,15 


C:15!20.05.69.26.1770 
579 DATA 9ED8,00,54,C9,D1,C1,D5,2D,61,0457 
58@ DATA 9EEB,25,C3,A2,02,7D,CD,A6,04,37B4 
5B1 DATA JEEB,6F,C9,2A,01,00,19, 19,19, Q0DF 
582 DATA 9EFO,E?,21 ,DR,00,7E,36,00)6F )6587 
585 DATA 9EFB, 26,88,C9,CD, 16,03, 7C,B5,@6@1 
584 DATA 9FQB,CB,SA,DD,@0,FS,AF,S2,DD}748D 
585 DATA 9F@B,00,CD,20,03,F1,32,DD,@0,s18A 
5B& DATA 9F1B,7D,FE,OS,CQ,DD,E1,11,01,B82F 
1,34, D0,88,B7)C8,B@n& 


„Di yAt 

571 DATA 9Fs0}7C,DS}DD 
592 DATA 9FA9,00,ED,a2 
593 DATA 9F48, CE, 08,87 a, 07, DS, D5} Es, 7103 
574 DATA 9F58,CD,D7,88,D1,7A,B7,20,14,5C88 
575 DATA 9F58,CD,B0,@2,SE,45,0D,@N,55,614D 
FF6D, zu 65,72,20,62,72,65,&1 ,2EF3 

8, 2B,3D, 20,95, CD, 2583 


20,65, 72 
B,CD,B4,84,CD,S2CD 
603 DATA 9F98,00,02,2C, 20,50, 43,3D,00,04F& 
604 DATA 9FAQ,2A,CE,OG,CD.AF,@4}1B}15,2F1D 
605 DATA 9FAB,CD, 00,02, 4E,6F ‚74, 20) 65, 6@AD 
606 DATA 9FBO,SE,6F ,75,67,68,20)6D)65,276F 
87 ‚DATA 9FBR, &D,6F,72,77,00,CD}00)02,27A& 
608 DATA 9FCQ,2D,0A,50,72,6F,67/72)61,0B41 
609 DATA 9FCB,6D,20,61,62,6F, 72,74, 65, S6BD 
618 DATA 9FD@,64,0D,0A,00,3A,DB,00,87,3207 
611 DATA 9FDB,CA,BE,27,C3,00,@0,E1,D1,4F43 
612 DATA 9FE@,DI,E9,31,00,01,21,C2,98,5573 
615 DATA FFEB,BL,BO,FF)CD,64,05,21,90,1043 
614 DATA 9FF@,21,11,8R,98,01,42,9C)3E,0036 
615 DATA 9FFB,81,CD,D4,04,21,88,00,CD,2AC3 
616 DATA ABRQ,SA,05,CD,4D,05,@0,CD,on}2Rer 
#17 DATA AQQB,@6,CB,45,CA,6B}21,CD}98},371D 
618 DATA AQ18,14,CD,BA,17,42,47,65,62)2CD4 
619 DATA AB18,65,6E,20,53,69,65, 20,64, 2AC8 
620 DATA AQ2B,65,6E,20,4E,61,6D,65,6E)2BFa 
621 DATA AQ28,20,64,65, 73,20, 74,75, 20,82B2 
622 DATA ABS@,6C,61,64,65,6E,64,65,6E,26D4 


141127 
CaBıB] 
[aan] 
£CDA121 
[1266] 
LFABCI 
[1888] 
[69983 
L9EFA] 
L2F@CI 
L97C4] 
19218] 
LSDBEI 
[BBC6] 
[D162] 
ED19AJ 
[BESB] 
[8096] 
E11Cc9 
L9EDA] 
LFS7EI 
[6748] 
LCQB23 
CAZCAI 
[B1A6] 
L1E92] 
ED99EI 
185261 
[6D78] 
L7BCC] 
[D860] 
L980E] 
ESAEAI 
LFBEB) 
[32541 
[6304] 
L44CC1 
EF@CAI 
LAC?AI 
[aB441 
LAGA4I 
[16823 
[2376] 
£[5D78] 
L837E1 
LAFBCI 
[6116] 
[C2F23 
EBAB4] 
E2CBAI 
EDIABI 
76723 
LDFABI 
[34681 
EB7CAI 
13964] 
[94BA1 
Ci18c9 
E11c@] 
[E7941 
CABEZI 
CC47E] 
13648] 
[F696] 
E2CF2] 
68683 


623 DATA 
624 DATA 
625 DATA 
626 DATA 


68,61,69 ,6E ,2D,46,293C 
5,73,20,28,6F ,68,2506 
'@,2E,43,48,4E,29,2B2D 
7,6E,20,3A,20,0D,B3ES 


627 DATA 1,80,90,CD,CC,14,@B18 
628 DATA D,BE,16,CD,1B,28,BE12 
627 DATA 1,21,80,80,E5,21,7C1B 


630 DATA AB7O,01,00 
631 DATA AB7a,a8,21 
632 DATA ABB@}CD,3A,@5,CD,4D,05,04,2E,662A 
633 DATA 
634 DATA 
635 DATA 
636 DATA 
637 DATA 
638 DATA 
639 DATA 
648 DATA 
641 DATA 
642 DATA 
643 DATA 
644 DATA 5) 
645 DATA ABEB,CS,@C,21,21,88,00,E5,21,615B 
646 DATA dl »@1,@@,CD,FS,1Fs1 
647 DATA ABFB,08,21,8A,9B,E5,21,80,00,121C 
648 DATA #ENDE* 
649 adr=&97@@0:zeile=104:MEMORY adr-i 
659 READ d$: IF d$="#ENDE#"THEN 661 
#51 pr=® 
652 FOR i=1 TO 8 
653 READ af: a=VAL ( 
654 POKE adr=adr+i 
655 preprezı ir Br?eS935_THEN prepr-65535 
656 pr=UNT(pr)X0R asIF pr<@ THEN pr=pr+6553 
& 


657 NEXT i 

658 READ pr$:pr2=VAL("&"+pr&):IF pr2<@ THEN 
pr2=pr 2465536 

659 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
in Zeile";jzeile: STOP 

668 zeile=zeile+1:G0TD 450 

661 SAVE"TS2.BIN" ‚B,&9000,&110D0 

662 PRINT d*:END 


LECAB] 
LF7ZEI 
187881 
LCBSAI 
E11681 
ECABEI 
145481 
EBB26] 
ECDS6] 
[9188] 
E9BCQ] 
E9F14] 
Cc588] 
ESEC2I 
ECFIEI 
[6894] 
[5E741 
[C348] 
CA9FAI 
[87741 
CEF7AI 
C48081 
EcC4A] 
cD352] 
E@B62] 
C63D8] 
ESF26] 
17391 
LBF161 
C29&C1 
EQ64A] 
196261 
EF9AGI 


LFABEI 
C48141 


EB1ABI 


149281 
CAAGAI 
LF7SAJ 
C4608] 


Listing 19. »TS2.BIN« (Schluß) sind wichtig, damit... 


100 HHHHRRHHRRRERHRERRE 
11@ ’* TS.BAS - Umwandlung in TS.COM #* 
120. HH 
130 

148 MEMORY &7FFF 

15@ LOAD"TS1.BIN" ‚28008 

160 LOAD"TS2, BIN" ‚27008 

170 OPENOUT "T8.COM" 

180 FOR i=&8000 TO LALoa 

198 PRINT ‚#9 ,CHR$(PEEK(T))5 

200 NEXT i 

21@ CLOSEQUT 


Listing 20. ...dieses Programm »TS.COM« erzeugen kann. 


LA2841 
[OEE4] 
L1ABa] 
EDFB6] 
CAEBAI 
E1926] 
[522C9 
E33F4] 
[Sase] 
650761 
L7EF4] 
Cara2] 


REDELELENETTETELESE TU TTETTEETITEELTERET LITER LTLTT ET 


je MATHEMATISCHEFUNKTIONEN xx 
inan fuer OPC-Giga-CAD (0) 1987 dy Marcus Hutter xxx 


IRRRREOHRERIIOHEHRERIRORSOHENOOI 


‚Funktionen nit 1-Byte-Zahlen fangen mit B (Byte) an 
;Vorzeichenbehaftetes +, -, x, / endet auf S (Signed): 
‚Multiplikation (BVULT) und Division (BDIV1,BDIV2,EDIVZ) 
‚Funktionen mit 2-Byte-Zahlen beginnen nit W (Word). 
516-Bit: WIULT=X WMULS=x WDIV=/ WDIVS=/ 


;Funktionen mit 4-Byte-Zahlen fangen mit 1 (Longword) an, 


»32-Bit: IMULT=4 LMULS=4 LDIV=/ LDIVS=/ 


TXTHR EQU OBBSDH 


INULS BIT ;HIADE 


65972 - 88272 
54,B,C werden veraendert 


LBL031 BIT 


HLDE HL,DE = P,K 
‚Wenn HL>O dann schneller 


PUSH HL 
CALL  LNULT 
Pop BC 
Ra 
SBC HL,BC 
LMULT PUSH DE ;HLXDE =e=> HIDE 
1 68 ;HL und DE unsigned 
1D A,L ;A,B,C werden veraendert 
CALL  BNULT ‚6192 - T31Tz 
EX (SP) ‚HL 
Ex DE,HL 
ID HA 
D ac 
w C,H 
CALL  BMULT 
ıD D,A 
1ıD E,R 
eg 
D 6 
EX (SP) HL 
ıD B,A 
m 60 
ADD HL,BC 
POP BC 
iD 3,0 
Ex DE,HL 
ADC HLBO 
RET 


MULS Inc 


# ;HLADE 
Mm 2181011 
H 


JR 2,1B1012 
EX DEHL 
IN H ;0 
IR Z,LBLON 
DEE H 
JR 2,1B1012 
JP MULUBL 

LBLOLL XOR 


1B1012 ı 


MMULT Inc 


‚23812 -31112 


181013 1D 
BMULT 1D 


AHL HL,DE= P,M 
;HL (oder DE) nur 1 
;Verwendung von A : 
;1.) Als MSB Ergebnis 

.JIP A<>255 AND A<>0 JUMP MULUBL 
> B 28512 - 40312 


;HLADE ===> AHL 
;HL (oder DE) nur 1 Byte 
;HL und DE unsigned 


Di 
Byte 


5A a DE =u> AHL 0 ===> B 
;h und DE ohne Vorzeichen 
;h als MSB oder Jberlauf geeignet 


Achtung 


ADD 


s214Ta = 27078 


HL,DE 


Listing 21. Diese schnellen Mathematik-Routinen können 
Sie für eigene Assembler-Programme nutzen 


C-Programmierer aufgepaßt! 


Jetzt gibt es Small-C, ein komplettes 
Entwicklungssystem im CP/M-Modus 
für die Schneider-CPM-Computer. Mit 
Editor, Compiler, Linker und vielen 
weiteren Utilities. 


Alle Programme sind in Small-C 
hrioben, der Quellcode wird 
mitgeliefert. 

So können Sie das Entwicklungs- 
system nach eigenen Wünschen und 
Erfordernissen erweitern und 
modifizieren. 


| 


703233 


FEN 
Markt&fechnik 


Zeitschriften - Bücher 
Software - Schulung 


Das Programmpaket enthält: 

« Small-C-Compiler 

© Small-Mac: Assembler und Utilities 
© Small-Tools: Editor und Text-Tools 


Hardware-Anforderungen: 
Schneider CPC mit mindestens 

56 Kbyte Speicher und einem Dis- 
kettenlaufwerk. Bei den Modellen 
CPC 464 und CPC 664 ist eine 
Speichererweiterung notwendig. 
3 Disketten (3” 


Bestell-Nr. 51484 DM 99,- 


* inkl, MwSt., unverbindliche Preisempfehlung 


Wenn Sie direkt beim Verlag bestellen wollen: Gegen Voraus- 
kosse durch Verrechnungsscheck oder mit der obgedruckten 
Zohlkarte. 


Markt&Technik-Softwareprodukte erhalten Sie in den Fach- 
obteilungen der Kaufhäuser, in Computerlachgeschäften oder 
im Buchhandel 


Markt&Technik Verlog AG, Buchverlag, Hans-Pinsel-Straße 2, 8013 Haar bei München, Telefon (089) 4613-0 


Bestellungen im Ausland bitte an: SCHWEIZ: Markt&Technik Vertriebs AG, Kollerstrosse 3, CH-6300 Zug, Telefon (042) 415656 - ÖSTERREICH: Rudolf lechner & Schn, 
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‚HOMESOMPUTER 


IDIvs 


11032 


131033 


ıDıv 


WDIVS. 


181015 


AB 


[ ;HLEC / DE ===> BC Rest HL 
AFJAF' ;DE wird nicht veraendert 
Ar 397972 - 1197Tz 


‚D ;HLBC_ / DE ===> BO Rest HL 
;DE wird nicht veraendert 
NULDIV  ;87812 - 97472 


;CHL / DE ===> HL Rest DE 
a ;Wie WDIV, nur auch negative 
c ‚Zahlen zugelassen 
1BLO15 ; 0 ===> B 54812 - 86072 


181016 


181014 


BDIvi 


SEHRSgERE 


E 


BBsRgEG58 


ERSHRER 


Srenm 


zw 


Ge 


= 


Sp>umsm>srnmwueno 
Fems 


D 


;CHL / DE =; 
‚Wenn DE. 


=> HL Rest DE 
OH darf das Ergebnis 


NZ,1BL014 ;nur einstellig sein. 


7,E 


;DE<=8000H 


N2,1BL014 ;46412 - 66772 


E 


;CHL und DE unsigned 


2, NULDIV 


1,0 
BDIV2 
AL 
L,H 
B0 
BDIV3 
DE,HL 
H,0 
L,A 


c A Rest C 
O<1Wa<c 
U 24672 - 25472 


;AB / 
< 
;AB= 


Listing 21. Schnelle Mathematik- 
Routinen (Fortsetzung) 


SCHNEIDER PC: DOS Plus UND GEM 
DESKTOP. EINE PRAKTISCHE EINFÜHRUNG. 
Eine Beschreibung des Betriebssystems DOS Plus im 
SCHNEIDER PC nach Anwendungsfällen. Be- 
schreibt die Installation von DOS Plus und GEM 
DESKTOP einfache Diskettenoperationen, Organisa- 
tion von Daten und Dateien, Anlegen von Directories, 
Datenschutz, Installieren von Programmen unter 
DOS Plus, Testhilfen. 

(Sisa/Klüver) etwa 350 Seiten, Softcover, 
DM4‘ 


DAS C-BUCH 

Textbuch für C-Kurse und C-Anwendungen 
auf PCs. Beschreibt sämtliche Konstrukte der 
C-Sprache unter den Betriebssystemen MS 
DOS, CP/M, ISIS, UNIX und für die C-Com- 
piler von MS, DR, LATTICE, INTEL. Didak- 
tisch und typografisch außergewöhnlich. Mit 
über 100 lauffähigen Beispielprogrammen 
für PCs. Zeigt Realisierungen neuester Soft- 
warestrategien in „C. 

Von Herold/Unger. 

576 Seiten, Softcover, DM 79,— 


LOGO- 

Jeder kann programmieren 

(Daniel Watt) 

Buch des Jahres in den USA. 
Best-rezensiert von Pädagogen und deutschen 
Kultusministerien. Ein bildreicher Führer 
durch Gedankenexperimente in LOGO. 

Von Paperts Schüler D. Watt. 

384 Seiten, A4, DM 59, — 


IEINFÜHRUNG-REFERENZ | dBase III - Einführung und Referenz 
Einanschaulicher Mehrzwecktextmitdoppel- 
ter Textfunktion: Einführung und alphabeti- 
sches Beiehlslexikon. Mit Übungs-/Demo- 
beispielen. 

VonR.A. Stultz, 464 Seiten, Softcover. 


Russel A.Stultz 
sul 


WWW .HOMEEOMPUTERWORLD.EOM 


SCHNEIDER PC: BASIC-2-PRAXIS UNTER 
GEM DESKTOP 

Eine systematische, lebendig geschriebene Einfüh- 
rungin die BASIC-2-Programmierung. Durchgehend 
an Musterprogrammen gezeigte Anwendung. BASIC- 
2 unter dem Programmierkomfort GEM DESKTOP. 
Umfaßt Tonerzeugung, Graphik, Peripherieansteue- 
rung, Mittel anspruchsvoller BASIC-Programmie- 
rung. Ein idealer Text für Selbststudium und Kurse. 
(Prof. Dr. D.A. Lien) etwa 400 Seiten, Soft- 
cover, DM 59, — (1. Qu. 87) 


Die 8087/80287 
numerischen Prozessor- 
erweiterungen 

Ideal für Entwickler und Aus- 
bilder. Von K.-D. Thies. 360, 
Seiten. Softcover. DM 69, — 


Die mathematischen 
Grundlagen der Numerik- 
Prozessoren 8087/80287 
Die INTEL-Entwickler des 8087 
beschreiben das Konzept dieses 
Prozessors. Von Palmer/Morse. 
190 Seiten. Softcover. DM49,— 


Das 8086/8088 Buch 
Es wendet sich an Leser, deren Com- 
puter mit einer 8086- oder 8088 CPU 
arbeitet und ist unbestrittenes Stan- 
dardwerk für Entwickler und Ausbilder. 
VonR. Rector und G. Alexy. 

560 Seiten, Softcover. DM 79,— 


UMWELTDYNAMIK 

30 Programme für kybernetische 
Umwelterfahrungen auf allen 
BASIC-Rechnem. Das Buch enthält 
beides: Ein Programmsystem zur 
Simulation eigener Problemformu- 
lierungen und 29 kommentierte 
Modeilbeispiele wie Baumsterben, 
Heizungsbedarf, Nahrungsketten 
usw. Prospekt anfordern. 

Von Hartmut Bossel, 480 Seiten, 
Softcover, DM 59,— 
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;AHL / E 


D<E<WNA< 


59312 - 609Tz 


3 
SBc 
—R 

ADD 
RLA 
ADC. 
SEC 
R 

[) 
RLA 
ADC 
sec 
Mm 

ADD 
RLA 
ADC 
sec 
a 

ADD 
RLA 
ADC 
Sec 
Mm 

ADD 
RIA 
De 
sc 
IR 

ADD 
RLA 
ADC 
SBc 
RR 

ADD 
RIA 
ADC 


cc 


BEBSR 


E28] SE8 SEE 385 SES5H 


Aa ;HLA / DE 
AL,HL ;DE<=8000H 
HL,DE 39012 - 43812 


TATPRT. 


"Jberlauf bei Multiplikation',O 
? bei Division' ‚0 

m durch Mull',O 
?",0DH,0 


ing 21. Schnelle Mathematik-Routinen (Schluß) 


© 
N 
: 
Ma 
ö 
= 
Pr 
Ö 
5 


> A Rest HL 


Das Periodensystem 
der Elemente 


Endlich gibt es mit »Chemie« ein Programm, das 
nicht nur das komplette Periodensystem der Ele- 
mente grafisch übersichtlich darstellt, sondern auf 
Wunsch auch nähere Informationen zu jedem ein- 
zelnen Element preisgibt. 


eder, der sich mit chemischen Stoffen beschäftigt, sei 
J es in der Schule, im Beruf oder als Hobby, weiß, wie oft 

man auf Bücher zurückgreifen muß, um genauere An- 
gaben über die Elemente zu erhalten. Damit macht nun »Che- 
mie« Schluß, denn es informiert per Tastendruck über das 
Periodensystem und einzelne chemische Bausteine. Des- 
halb istes sowohl zum Üben und Lernen wie auch als Informa- 
tionsprogramm zu benutzen. 

Nach dem Start erscheint das Periodensystem auf dem 
Bildschirm. Dabei sind Metalle hell und Halbmetalle etwas 
dunkler hinterlegt dargestellt. Alle Atommassen sind auf die 
‚Atommasse des Isotops C., mit dem Wert 12,00000 bezo- 
gen. Wenn die Atommasse in Klammern steht, istes die Mas- 
senzahl des langlebigen Isotops. Hinter den Isotopen steht 
jeweils ihre Halbwertszeit. 

Während das Periodensystem auf dem Bildschirm darge- 
stellt ist, lassen sich durch Druck auf die Leertaste am 
unteren Bildschirmrand einzelne Menüpunkte aufrufen. 
Durch <ENTER> wählen Sie eins der Unterprogramme. 
Haben Sie sich verwählt, kommen Sie mit der Taste <Z> 
wieder an den Menü-Anfang. 

Anzeige des Standortes eines Elements im PSE 
Nach Wahl dieser Routine erscheint im oberen freien Bild- 


schirmteil ein Untermenü, mit dem Sie die Eingabe des anzu- 
zeigenden Elements bestimmen. Sie wählen wieder mit der 
Leertaste und <ENTER> und das gesuchte Element ist auf 
dem Monitor durch Blinken kenntlich gemacht. Durch erneu- 
ten Druck der Leertaste gelangen Sie wieder zurück. 

Genauere Angaben zu einem Element 
Bei diesem Menüpunkt kommen Sie zunächst in das gleiche 
Untermenü wie zuvor. Nun erhalten Sie jedoch genauere 
Informationen über das gewählte Element, 

Alphabetische Anzeige aller Elemente 
Die Anzeige der Elemente erfolgt tabellarisch in alphabeti- 
scher Reihenfolge. Jeweils zehn Elemente füllen mit näheren 
‚Angaben eine Bildschirmseite. Die folgende Seite rufen Sie 
mit der Leertaste auf. Drücken Sie in diesem Untermenü 
<ENTER>, erscheint das Periodensystem. 

Anzeige aller Elemente nach Ordnungszahlen 
Die Ausgabe erfolgt in Reihenfolge der Ordnungszahlen. 

Drucker 

Den Menüpunkt »Drucker« dürfen Sie nur anwählen, wenn 
ein Drucker angeschlossen ist. 

(Michael Kolbinger/ja) 


K a Img] Eingabe des ante durch: 5 ns | 
an Wein iilsuunı i = 
-2ıjMlın Nebengruppen n|oö Fr |ke 
2 FE} |" Inf" en rt um Tele 
BIEENLEIEILIEIEIEIDIEN Br ir 
b-s [an un man] an] nm man am am Ir 
Fan» [we|anen wenn sem 
7 [mlın]+ 

973 Soounoonunuonu|n 
Elemente de 

Kttetbeethe [anno | num an nlın mlanm| mm] a |m m 


Über ein Untermenü 
ein Element an 


Ord- _ |Elenent Kugel Al; [Dichte at: kastie| ie a- 
zahl nasse Erde m 
1 jWasserstoft |u 1 ja.0rı ]-282.7 |-ese.2 jı 
i je We ja Ta.uze |-200.0 |-20.7 je 
3 nithin vi |6.9 je.ss Te mes [1 . 
4 Bestim |Be |s_ j1. jerm jızm je 
5 Bor B 18.8 |2. = ww) |3 
6 |Konienstoft Ic j12 2.26 jasse Tarar |+-wa 
7 Stickstoff N 1 2.81 195.8 | -218 Husa2 
8 Sauerstoff v 16 1.14 -183 -218.8 | -2 
3 ]fsor Fr 19 1.5 |-1e8.2 [210.6 |-1 
18 Neon Ne 2.2 |1.28 246 28.6 |B 


Hier erscheinen die Elemente nach Ordnungszahlen sortiert 


Steckbrief 
Programm: Chemie 
Computer: CPC 464/664/6128 
Checksummer: Explora 
Datenträger: Diskette, Kassette 
PPPPPPPEPPEEEEEEUEREEEEELERLEEEEE 
wur C9BBC1 
== *.* 
** t4242] 
ne c H E Mm 1 E 
Er LFBSAI 
a0. 
** [87C61 
5 ** written 1986 by 
Er LFERBI 
6 .** Michael Kolbing 
er “.* t&D2A1 
7 ”* 
”* CDEACI 
8 BEHRHRRSSSHHESESH 
DEE EZ CBSCAI 
9 tcDa@1 
10. RR Variable 
n festlegen KR 
L2BAAI 
20 MODE 1: INK ®,13 INK 1,2 4: LOCATE 12 
PRINT "Bitte warten!!!" LASF61 
5@ DIM e#(11@) ‚n#(11@) aik 10) ‚sied# (11@ 
) ‚schmelz#(11®) ‚isol$(110) ‚1s024 (118) 
‚is03# (110) ‚iso4$ (110) ,isaö#(11M) ‚axy 
d$ (118) „dicht#(1190) „as (39) ‚druck# (5@) 
‚alpha (110) LE9DEI 


RR Daten La 
den HR 
wr CA94EI 

S® FOR i=1 TO 11@:READ e#ti) ‚n#(i) ‚mbci) 
„oryds (i) ‚dicht#(i) ‚sied#(i) ‚schmelz+ 
(i) ,isol$(i) ‚iso2#(1) ‚isoss(i) ‚isoAhl 


i) ,isoS$(i) TE468] 
68 FOR i=1 TO 2S:READ druck#ti) 
3 NEXT C10AB1 
7@ FOR i=1 TO 1@S:READ alphaci) 
NEXT CA3961 
88 FOR i=1 wo. „ZEREAD arıı) 
£D71C9 
98 FOR i=1@ TO IS:READ asti) 
ET NEXT EcoDSc9 


122 


Das Programm »Chemie« ist eine große Hilfe für jeden 
Chemiker 


Rs Windows 


IBRW HOMECOMPUTE 


93 


118 
120 
138 
148 
158 
168 
178 


188 
190 


200 
210 
220 
238 
240 
250 


268 


270 


200 


270 
308 
3ı@a 


320 
338 
340 
358 


368 
37@ 
380 
398 
420 
410 
420 
430 
440 
4580 
468 
470 
480 
498 
soo 
sıa 


520 
530 


540 
550 
560 
570 


seo 
590 
sau 
618 


620 
650 


648 
650 
668 


festlegen ernennen 
.r 

MODE 2 

WINDOW #1,15,53,2,5 

WINDOW #2,1,80,25,25 


pen PS E ze 
igen RunKnEHnuKuESunnEEE nun 
w. 

FOR i=1 10 7 

LOCATE 1,1#243: PRINT CHR$(74+ )4"-"+ 
STRE() 

NEXT 

LOCATE 1,13: PRINT 
LOCATE 14,7: PRINT 
LOCATE 14,8:PRINT a$(3) 

LOCATE 14,9: PRINT a$(4) 

FOR i=1 TO 4:LOCATE 5441 ‚6: PRINT CHR 
$(218) :LOCATE S4+i ,7: PRINT CHR$ (207) 


3 LOCATE 54+i ,8:P 
RINT CHRS (216) :NEXT 

FOR i=1 TO 4:LOCATE 58+i, 8:PRINT CH 
RS (218) :LOCATE SB+i, F:PRINT CHR$ (28 
7: LOCATE 58+1 ,10: 
PRINT CHR$ (287) :LOCATE S8+i ,11:PRINT 
CHR# (207) z LOCATE 
S8+i ,12:PRINT CHR$ (216) :NEXT 

FOR i=1 TO B:LOCATE 62#1 ‚1@: PRINT CH 
R$(218):LOCATE 62+1 ,11:PRINT CHR$ (28 
7: LOCATE 62+i ‚12: 
PRINT CHR$ (287) :LOCATE 62+1 „IS PRINT 
CHR$ (287): LOCATE 
62+i ,14:PRINT CHR$ (216) :NEXT 

FOR i=1 TO 4:LOCATE 66+i ,14:PRINT CH 


RS (287): LOCATE 66+i ,15: PRINT CHRS (28 
7: LOCATE &6+i ,16: 
PRINT CHR$ (216) :NEXT 
FOR i=1 TO 56 
GOSUB 828 
IF i<5 AND i>2 OR i<14 AND i>1@ OR i 
>18 AND i<32 

OR i>36 AND i<51 OR i<57 AND 


THEN PRINT CHR$ (24); 
e$(i);5CHR$(24) ELSE PRINT e$s(i) 
NEXT 
FOR i=72 TO 88 
GOSUB 948 
IF i<8B4 OR i<89 AND i>86 


THEN PRINT CHR$(24)5e$(i);CH 
R$(24) ELSE PRINT e$(i) 
NEXT 
LOCATE 16,15: PRINT "=" 
LOCATE 16,17:PRINT "+" 
FOR i=57 10 71 
GOSUB 978 
PRINT CHR$ (24) je$ ti) ;CHR$ (24) 
NEXT 
FOR i=89 TO 185 
GOSUB 1928 
PRINT CHR$ (24) 5e$ ti) ;CHRF (24) 
NEXT 
LOCATE 2,19:PRINT 
LOCATE 2,22: PRINT 
LOCATE 2,28: PRINT 
LOCATE 2,23: PRINT 


i>54 


as(5) 
as(5) 
as (6) 
as(7) 


NE 1,19: PRINT"#*":LOCATE 1,22:PRI 
BL 

GOSUB 618 
ER Tastatur 
abfrage sAunnnunnnnunnunnununannunne 
wur 


i$=INKEY# 

IF i$=" " THEN IF a<5 THEN a=a+1:608 
UB 740 ELSE a=1:G0SUB 748 

IF i$=CHR$(13) THEN ON a GOTO 197,1 
119,1150,1548,153@ 

S0TO 55a 

ee PS E d 
eutich machen sruununnnunnnnener 
Er 

MOVE @,22:DRAW 9,399:DRAW 623,399: DR 
Au 623,22:DRAW @,22 

FOR i=118 TO 342 STEP 32 

IF i=342 OR i=278 THEN MOVE @,i:DRAW 
1ilyis 


MOVE 

432,i:DRAW 623,i 
EL 

SE MOVE 8,i:DRAW 623,i 
NEXT 
FOR i=47 TO &4@ STEP 32 
IF i<143 THEN SOSUB 78 
8: 


ELSE IF i>416 
GOSUB 728: 


THEN 


L22CC1 
(98521 
LBCc81 
15838] 
C@2B81 
CE1BAJ 
[@4BC) 


CAC821 
[2062] 


C95D01 
CDGE2I 
C440E] 
(52861 
L228C3 
[B292] 


L1BE6] 


CDSAB1 


tEFBAI 


C1D941 
L79CE] 
LF2DAI 


[253E1 
[7368] 
L1ESEI 
[6BEBI 


L7A2A1 
L&BF@] 
E20C0] 
[3DC8] 
L3F40] 
L73EC] 
[65161 
[DZEA] 
ta878] 
L3F36] 
EFL1E] 
ESAF2] 
ED49A1 
1C69@1 
15290] 
CDC883 


CB326] 
L87DC1 


13432] 
[364BE1 
LEB9®] 
CD8521 


EDCEAI 
1580A1 
187623 
LeDaaı 


L678C1 
[28681 


LS6FB1 
L74F2] 
LE1621 


678 
688 
678 
708 


zıa 
728 


738 
748 


75@ 
768 


770 


788 


798 


s8o® 
818 
828 
838 
848 
858 
868 
878 
888 
898 
a0 
ge 


938 
940 


758 
968 


978 
988 
970 


1900 


ELSE MOVE i,22:DRAW i,286 


MOVE 8,7@:DRAW’ 623,70 
NEXT 
THEN MOVE i,1 
ELSE 
MOVE i,118:DRAW 1,367 
RETURN 
IF i=431 THEN MOVE i,2 


2:DRAW i,399: 


MOVE i,22:DRAW i,367 

RETURN 

ee Menue x* 
PrRebeteiejebeebeteiedeieetebeteieehe bee 
u. 

ON a GOTO 748,778,788,790,808 
PRINT#2:LOCATE #2,17,1:PRINT #2,CHR$ 
(24)5" Anzeige des Standortes eines 
Elements im PSE ";CHR$(24) :RETURN 
PRINT#2:LOCATE #2,23,1:PRINT #2,CHR# 
(24);5" Genauere Angaben zu einem Ele 
ment ";CHR$ (24) :RETURN 
PRINT#2:LOCATE #2,22,1:PRINT #2,CHR$ 
(24);" Alphabetische Anzeige aller E 
lemente ";CHR$ (24) :RETURN 
PRINT#2:LOCATE #2,18,1:PRINT #2,CHR$ 
(24);5" Anzeige aller Elemente nach O 
rdnungszahlen ";CHR$ (24) : RETURN 
PRINT#2:LOCATE #2,29,1:PRINT #2,CHR$ 
(24)5" Drucker ";CHR$ (24) :RETURN 
RETURN 

er Anzeigep 
unkte der Elemente 1-56 Hanne 


ELSE 


IF 1356 THEN 998 

IF i<57 AND i>54 THEN LOCATE (i-55)%* 
IE Tess AND i>36 THEN LOCATE (i-35)* 
ie 1es7 AND i>18 THEN LOCATE (i-17)%* 
Te icıo AND i>12 THEN LOCATE (i+1)#4 
ie i<13 AND i>1® THEN LOCATE (i-9)#4 
ie i<11 AND i>4 THEN LOCATE (i+9) #4, 
Tr i<5 AND i>2 THEN LOCATE di-1)#4,7 


IF i<3 THEN LOCATE 19#4,5 

IF i<2 THEN LOCATE 8,5 

RETURN 

RT Anzeige 
punkte der Elemente 72-88 sr 
.. 

IF i>88 THEN 1920 

IF i<89 AND i>86 THEN LOCATE (i-85)%* 


4,17 

IF i<87 THEN LOCATE (i-67)#4,15 
RETURN 

RHRRHRRRRHRRRRRRR Anzeige 
punkte der Elemente 57-71 "rate 
.rr 

IF i>71 THEN 940 


191@ LOCATE (i-52) #4 ,2@: RETURN 


1020 Re Anzeig 
epunkte der Elemente 89-103 nk 
Peer 

1030 LOCATE (i-84) #423: RETURN 

1040 ' 

1050 ° 

1m60 ' 

1070. Anzeige 


des Standortes eines Elements im P 
SE * 


1089 a=d:CLs#1 
1090 GOSUB 2808 
11@@ CLS#1:CLS#2:60T0 1668 


1110 rer Genauer 
e Angaben zu einem Element #aununa« 
wu... 

1129 a=ß:cLs#1 

1130 GOSUB 2808 


114@ CLS#1:CLS#2:60T0 1728 


115@ 


1148 
1178 


ek Alphabe 
tische Anzeige aller Elemente #rx#* 
w.. 

a=a 

MODE 2:LOCATE 1,1:PRINT as(1®) 


118@ LOCATE 1,2:PRINT a$(11) 
119@ LOCATE 1,3:PRINT a$(12) 
1288 FOR i=1+a TO 1@+a 


121@ LOCATE 2,(i-a)*2+35: PRINT 
122@ LOCATE 17, (i-a)*2+5: PRINT 


1238 LOCATE 23, (i-a) *2+3: PRINT 
1248 


n$talphat 
e$lalphat 


i)) 


FOR 
alphati) 
LOCATE 31, (i-a)#2+3:PRINT m$(alphat 
im 


1CA741 
L451A3 
CSCFAI 
[B1SE1 


La1Dc1 
[CESB] 


L976E] 
LAAS4] 


LAC34] 
[442A] 


C@7B01 


1C6081 


L99EB] 


CBBAAI 


17462] 
EDF32] 


166981 
L991A] 


CB94A1 
LFB441 
[31421 
[51741 
L897A1 
ECE161 


E1A9C] 
[5062] 
18342] 
1B038] 


£72BC] 
EFS6CI 


£CC721 
CIEICI 
CB2421 


EFFBC]I 
LABS61 
£161C] 


L&EOCI 
[8130] 
CB518] 
[B61Al 
[931C] 


LEF64] 
CAB4E] 
C3AABI 
137021 


LF14A1 
14744] 
L2F9E1 
[87041 


LABS6] 
EDCSCH 
CB73C1 
E71EB] 
CDCE&] 
L&B3A1 


L&Dscı 


L37A8] 
[36F@1 


[8DB41 


OAWWW.HOMESOMPUTER 


1580 


1590 


LOCATE 38, (i-a)#2+3: PRINT dicht$(al 
hadi)) 

PoCATe 46, ti-a) #243: PRINT siedstalp 
hati)) 

LOCATE 55, (i-a)#2+3:PRINT schmelz#( 
alpha(i)) 

LOCATE 64, (i-a)*2+3: PRINT oxyd$talp 
hati)) 

NEXT 


FOR i=343 TO 24 STEP -32:MOVE @,i:D 

RAW 572,1: NEXT 

MOVE 128,22:DRAW 120,400:MOVE 168,2 

2: DRAW 148,400: MOVE 232,22:DRAW 232 

„408: MovE 288,22:DRAW 288,400: 

MOVE 352,22:DRAW 352,4@0: MOVE 424,2 

2:DRAW 424,400: MOVE 494,22: DRA 

W 494,400 

i$=INKEY$:IF i#=CHR$ (13) THEN 100 E 

LSE IF i$c>" " THEN 1320 

asa+lß: IF a>ıa® THEN 100 ELSE 1178 

ARRRHHHEHRR Anzeige 

aller Elemente nach Ordnungszahlen 

wer 

a=d 

MODE 2:LOCATE 1,13PRINT a#(15) 

LOCATE 1,2:PRINT a#(14) 

LOCATE 1,3:PRINT a$ (15) 

FOR i=1+a TO 1@+asLOCATE 1, 

S:PRINT USING" ###"5i:LOCATE 18, (i-a 

)*2+3: PRINT n#(i) 

LOCATE 1,(i-a)*2+3: PRINT USING"#H# 
ns(i) 


"si 
LOCATE 18, (i-a)#2+3: PRINT 
LOCATE 25, (i-a)*2+3: PRINT e$(i) 
LOCATE 31, (i-a)*2+3:PRINT m$(i) 

3B, ti-a)#2+3: PRINT dicht$(i) 
sied$(i) 


LOCATE 
LOCATE 46, (i-a)#2+3: PRINT 
55, (i-a) #2+3: PRINT schmelz#( 


LOCATE 
64, (i-a) #243: PRINT 


i) 
LOCATE 
NEXT 

FOR i=343 TO 24 STEP -32:MOVE @,i:D 
RAW 572,1: NEXT 

MOVE 64,22:DRAW &4,4@0:MOVE 184,2 
2: DRAW 184,400: MOVE, 232,22: DRAW 232 
„400: MOVE 288,22:DRAW 288,400: 
MOVE 352,22:DRAW 352,400:MOVE 424,2 
2:DRAW 424,400: MOVE 494,22:DRA 


W 494,408 

i$=INKEY$: IF i$=CHR$ (13) THEN 188 E 
LSE IF i$<>" " THEN 151@ 

a=atiQ: IF a>10Q THEN 180 ELSE 1368 
a Drucker 
PP er 
wur 

PRINT #8, CHR& (15): 

a=@:CLS#11LOCATE #1,9,1: PRINT #1,CH 
R$(24);" PSE drucken ";CHR& (24) :LOC 


ATE #1,9,2:PRINT #1," Elementenlist 
e drucken "sLOCATE #1,9,5:PRINT #1, 


oryds ti) 


" Element drucken " 
i$=INKEYE 

IF i$=" " THEN IF THEN a=1:LOcA 
TE #1,9,12PRINT #1," PSE drucken ": 
LOCATE #1,9,2: PRINT wi chne 2a" E 
Tementenliste drucken "}CHR$ (24) :60 
TO 1568 


IF i$=" THEN IF a 
TE #1,9,2: PRINT #1," Elementenliste 
drucken LOCATE #1,9,3:PR NT #1,C 
HR$(24);" Element drucken "CHR$ (24 
):GOTO 1560 

IF i$=" " THEN IF a=2_THEN a=@:LOCA 
TE #1,9,3: PRINT #1," Element drucke 
n,"sLÖCÄTE #1,9, 11 PRINT #1 CHR# (24) 
+" PSE drucken "ICHR$ (24) : GOTO 1568 


IF i$=CHR$ (13) THEN ON ati GOTO 189 
0,1958, 2558 

IF i$="Z" OR i$="z" THEN CLS#1:CL5# 
2:G60T10 538 

60T0 1548 


THEN a=2:LOCA 


ARRRHRBHRRERRERRSGRRH Element 
im PSE anzeigen HHHRHHERHHR 
war 

WHILE INKEY$<>" ":GOSUB 828 

PRINT e*(i):GOSUB 820:FOR a=1 TO 18 
@:NEXT:PRINT CHR$ (24) ;e$(i) ;CHR$ (24 
):FOR a=1 TO_18@:NEXT 

WEND: GOSUR 828 

PRINT_CHR$ (24) je$ (i ) ; CHR$ (24) :GOSUB 
820: FOR a=1 TO 18G:NEXT:PRINT e$(i 
):FOR a=i1 TO 1Q@:NEXT:G0TO 538 
RER Informa 
tionen zu einem Element zeigen «xxx 
ar 

GOSUB 822 


140821 
180341 
L&CDBI 


148761 
(20561 


CE9181 


LA6941 


LDIEA] 
1297A 


L3FFEI 
LEI6EI 
12044] 
C13EB] 
[BEEE] 


LEBS41 
L[BSF4] 
CAEBRI 
ESIFCI 
[CEBB] 


[6356] 
[ES88) 


C1D2C3 
CaDcAI 
L2F581 


1682C) 


L6E6A1 
L8SEE] 
[B27EI 


14548] 
[70223 


L26BE1 
CABBA] 


151309 


tagBAı 


LFFSCI 
1577A1 


LF@S2] 
EBAICI 
18221 
[C1241 
[E2261 


EF2DAI 
CB9FCc1 


L34BC1 
CCF143 


taaaaı 


L44BE1 
[2841 


1748 
1758 


1768 
1778 


1788 
1798 
1808 
1818 
1828 
1830 
1848 
1858 
1868 
1878 


1888 
1898 


1708 
1910 


1920 
1938 
1748 


1950 


1968 


1978 
1988 


1990 


2000 
2018 


29020 
2030 
2040 


2050 


2040 


2070 
2u88 
2090 


2100 
2110 


2128 
2138 


2140 
2158 


2168 
2178 


FOR j=1 TO S5:60SUB 828 

PRINT es(i):GOSUB 820:FOR a=1 TO 1@ 
B:NEXT:PRINT CHR$ (24) je#ti) ;CHR$(24 
):FOR a=1 TO 1G®:NEXT a,j:G0T0 1798 


FOR j=1 TO S:G0SUB 828 

PRINT CHR$ (24) ;e$i) ;CHR$ (24) :GOSUB 
820: FOR a=1 TO 1Q@:NEXT:PRINT e$(i 
):FOR a=1 TO 1QB:NEXT a,j 

MODE 1:LOCATE 1@,1:PRINT n#(i) 


LOCATE 10, ZPRINT STRING LLEN (ns ci 

Y,t=") 

LOCATE 18, 4: PRINT "Kuerzel:£2>"je% 

Gi) 

LOCATE 5, StPRINT "Ordnungszahls " 

si 

LOCATE, 5, &:PRINT "Rel. Atommasse: 

<2>" sms ti) 

LOCATE 3, B:PRINT "Oxydationszahlı 
"yaxydsci) 

Ehre 7,10: PRINT "Siedepunkt :<2>" 


;sied$(i)}" Grad Cels 
LOCATE 5,11:PRINT "Schmelzpunkt:ı<2 
Qugsshmelz#ci)a" Grad Celsius 
OCATE 11,15: PRINT "Dichtes<22"jdic 
htsti)s" g/cem" 
LOCATE 18,16: PRINT_"Isotope:$2>"jis 
al$(i) :LOGATE 20, 17:PRINT imo: 
LOCATE 28, 18: PRINT 
“i):LOCATE 20,19: PRINT iso4$(i): 
LOCATE 28,20:P 
RINT_isoS$(i) 


WHILE INKEYS<>" "sWEND:GOTO 188 
RRRRRRRRHRRRHS PSE deu 
cken tet aba 
u... 

FOR i=1 TO S:PRINT#B,CHR$(1B) NEXT 
PRINT RR SCHREULA) SSTRINGE (ZEN H) a" 
PERIODENSYSTEM" PRINT #B:PRINT #8,C 
HR$ (14) ;STRING$ (26," "); "DER ELEMEN 
TE":PRINT #8: PRINT '#8,CHR$ (15) 5 

FOR i=1_TO 25 

PRINT #8,STRING$(2@," ") 5druck$#(i) 
NEXT=PRINT #8,CHR$ (12) 1 CLS#13CL5#2: 
soTO 538 
a Element 
enliste drucken HH 
wu 

a=@:CLS#1:PRINT #1," Liste aller El 
emente ausdrucken: ":LOCATE #1,5, 
PRINT #1,CHR$(24);" alphabetisch 
CHR$ (24) :LOCATE #1,5,3: PRINT #1 
ach Ordnungszahlen " 

i$=INKEY$ 

IF i$=" " THEN IF a=® THEN a=1:L0CA 
TE #1,5,2:PRINT #1," alphabetisch " 
:LOCATE #1,5,3: PRINT #1 ‚CHR£ (24) 5" 
nach Ordnungszahlen ";CHR$ (24) :GOTO 


1978 
" THEN IF a=i THEN a=9:LOCA 


IF i$- 
TE #1,5,2:PRINT #1,CHR$(24);" alpha 
betisch” ";CHR$(24)2LOCATE #1,5,3:PR 
INT #1," nach Ordnungszahlen '":G0T0 
1970 

IF i$=CHR$ (13) THEN 2050 


IF i$="Z" OR i$="z" THEN CLS#1:CL5# 
2:60T0 538 

G0T0 1978 

IF a: THEN 204@ ELSE 2298 


FOR i=1 TO 3:PRINT #8,CHR$ (10) :NEXT 


PRINT re DI 
Alphabetische Liste":PRINT #8,CHRE( 
14) 3STRING$ (15," ")5"aller Elemente 


"HPRINT#B,CHR& (15) 5 
PRINTSBLPRINTAG, STRINGE (15,1 "rast 
18) 

PRINT#8,STRING$ (15," ")zas(1i) 
PRINT#8,STRING£(15," ")3a#(12) 


ERINTBELSTRINBELER, 
FOR i=1 TO 105 
IF alpha(i)=57 THEN FOR j=1 TO 7:PR 
INT #8,CHR$ (10) : NEXT: 

PRINT #8,STRING$(15," "3; 


" "I HSTRING$ (72, 


a$(1@) :PRINT#B,STRING$(15," "Irasti 

PRINT#B,STRINGS 

“ ")3a$(12) :PRINT#B,STRINGS (15, 
STRING$ (72,"-") 


i$=STRING$ (17," ")+n$ (alpha 
IF LEN(i$)CSL"THEN iseise" 
138 

i$=i$+e$(alphali)) 


i)) 
60T0 2 


IF LEN(i$)<36 THEN i$=i$+" ":G0T0 2 
158 

i$=i$+STR$Calpha(i)) 

IF LEN(i$)<45 THEN i$=i$+" ":G0T0 2 


178 


Das Programm »Chemie« (Fortsetzung) 


LEZAEI 


LF7AAI 
L76B21 


C14E81 
[39021 
[41081 
L674E1 
LE98@1 
LF9BCI 
LEAFCI 
LA87A] 
LF&F41 
LF6781 


693081 
[0638] 


[96441 
CF&B@] 


C15C2] 
L7E281 
[B722] 


[28881 


CBES41 


[2546] 
EFSBEI 


[S5B@] 


C28B2] 
EC58A1 


141481 
caaıcı 
EDB9AI 


L99EBI 


L8ABAI 
L6BA4] 
C@B641 
[6268] 


L1E9CI 
£C1781 


L9B081 
13482] 


CA1481 
CF9B6] 


198521 
[81321 


ECBSAI 


2378 
2380 


2398 


2200 
2410 


2420 
2438 


2440 
2450 


2440 
2478 


2480 
2490 


2500 
2518 


2520 
2538 
2540 
2550 
2560 
2570 
2588 
2590 


2600 
2618 


2620 
2630 


2640 
2658 


2668 
2678 


2480 
2698 


2700 
2718 


2720 
2738 


2740 


$+m$ (alpha(i)) 
IF LEN(i$)<52 THEN is=is+" 
198 

i$=i$+dicht$(alphati)) 

IF LEN(iS)<ER THEN i$=ist" 
218 

i$=i$+sied$(alpha(i)) 

IF LEN(i$)C69 THEN i$=i$+" 
230 
i$=i$+schmelz$(alpha(i)) 
IF LEN(i#)<78 THEN is=is+" 
250 

i$=i$toxyd$(alphati)) 
PRINT #8,i$:NEXT 

FOR i=1_TO S:PRINT #8,CHR$ (18) :NEXT 
:CLS#1:CL8#2:60T0 538 

FOR i=1 TO S:PRINT #8,CHR$(1@) :NEXT 


PRINT #8,CHR$ (14) ;STRING$(15," "33" 
Liste aller Elemente": PRINT #8,CHR$ 
(14) STRING (15," ")3"nach Ordnungs 
zahlen" :PRINT#B,CHR$ (15) 3 
PRINT#B: PRINT#8,STRINGS (15, " 
13) 
PRINT#8,STRING$(15," ")5a#(14) 
PRINT#B,STRINGS(15," ")5a8(15) 
RRINT#B,STRINGS (14, " "I FETRINGS (65, 
FOR i=1 TO 103 
IF i=45 THEN FOR j=1 TO 74PRINT #8, 
CHRS (18) ıNEXTı 
PRINT #8,STRING$(15," " 

a$ (13) :PRINT#B,STRING$ (15,“ ");as 
Lie} PRINT#B,STRINGS 
115," ")3a$(15) :PRINT#8,STRING$ (14, 
" "STRING (6 *) 
i$=STRING£ (14 ) 
IF i<18 THEN i1$=i$+"<2>"+STR$Ci) 

ELSE IF i<1@@ THEN i$=i$ 
+" "4STRE(H) 


si) 

IF LEN(i$)<24 THEN 
39a 

i$=istng(i) 

IF LEN(i$)<39 THEN 
410 

i$=i$+es(i) 

IF LEN(i$)<45 THEN 
430 

is=is+ms(i) 

IF LEN(i$)<52 THEN 
458 
i$=i$+dicht$(i) 


G0TO 2 


60T0 2 


":6070 2 


":6070 2 


"rast 


ELSE i$=i$+STR 


i$=i$+" ":G0T0 2 


iseigee " 


0T0 2 
i$=i$+" ":60T0 2 


i$=i$+" ":G0TO 2 


IF LEN(i$)<6B THEN i$=is+" ":60T0 2 
470 

i$=i$+sieds(i) 

IF LEN(i$)<69 THEN i$=i$+" ":G0T0 2 
498 

i$=i$+schmelz$(i) 

IF LEN(i$)<78 THEN i$=is+" ":60T0 


2510 

i$=i$toxyds(i) 

PRINT#B,i$: NEXT 

FOR i=1 TO S:PRINT #8,CHR$ (19) :NEXT 
:CLS#1:CL5#2:60T0 530 
RR Element 
drucken HRHRHRRO 
Lore 

a=0:CLS#1:G0SUB 2808 

FOR j=1 TO S:PRINT #8,CHR$ (19) :NEXT 


PRINT #8,CHR$ (14) ;STRING$ (19," ");n 
*() 
PRINT #8,CHR$ (14) ;STRING$(19," ")45 


TRING$ (LEN (n$(i)) „"=") 

PRINT #8: PRINT #8 

PRINT #8,CHR& (14) HSTRING$(19," 
Kuerzel:12>";je$(i) 

PRINT #8 

PRINT #B,CHR$ (14) HSTRING$(14," 
Ordnungszahlı "zi 
PRINT #8 

PRINT #8,CHR$ (14) 3; 
Rel. Atommasse: <2> 
PRINT #8: PRINT 
PRINT #8,CHR$ (14); STRING$ (12," 
Oxydationszahl:<2>"saxyds(i) 
PRINT #8: PRINT 

PRINT #8,CHR$ (14) 5STRINGS(16," "15" 
Siedepunkt:<2>";sied$(i);" Grad Cel 
sius" 

PRINT #8 

PRINT #8,CHR$ (14) ;STRING$ (14 
Schmelzpunkt:<2>";schmelz$ti 
d Celsius" 

PRINT #8:PRINT #8 

PRINT #8, CHR$ (14); STRING£ (28, " 
Dichte: <2>" ;dicht$(i)3" g/cem" 
PRINT sSzPRINT #8 


RING$ (12, 
si) 


ug" 


ug" 


DrE 
;" Gra 


nygn 


OBRWW.HOMESOMPUTER 


[BF1EI 


L98SEI 
[614E] 


L3F48] 
CFEB4] 


LAASAI 
LC92A1 


L2F621 
[81CA] 
[B14A] 
CFFi®) 


LE6F6I 


148741 
L91A6] 
[03661 
EBCEA] 


16996] 
[717E] 


LFAF2] 
L1BEE] 


158C8] 


118641 
[BF&8] 


c@c541 
LıDSAl 


[3856] 
CAFSEI 


LIFSAI 
[B9B0] 


L3F68] 
[9BE6) 


1927A1 
1177A] 


L389E] 
C2A1A] 
18908] 
CABBEI 
C19821 
L7D9E1 
taaFaı 
t6DC4) 


114181 
174641 


L715C 
CB6E41 


L989C1 
LEAEBI 


CDSD81 
[C87@] 


LAB16] 
1F274] 


[B584] 
LBFE21 


L79EC3 
[82641 


LA14E] 
TEBSEI 


2758 


2768 


2770 
2788 
2798 
2808 


2818 


2820 


2838 
2840 


2858 


2868 


PRINT #8,CHR$ (14) ;STRING$(19," ")5" 
Isotope: 22>";isol$(i): PRINT #8,CHR$ 
(14) ;STRING$(29," ")51s02% (1) :PRINT 
#8, CHRS (14) ;STRINGS(29," ")}iso: 

i) PRINT #8,CHR$ (14) 5STRING$ (29, 
)3iso4$(i):PRINT #8,CHR$ (14) STRING 
#129," ")zisoßs(i) 

PRINT #8,CHR$ (12) 5 CHR$ (15) :CLS#1=CL 
S#2:60T0 538 


en Name, K 

uerzel oder Ordnungszahl xunnmunke 

x. 

PRINT #1," Eingabe des Elementes du 

rch: ":LOCATE #1,9,2:PRINT#1,CHR$ (24 

);" Name ";CHRE(24) 

LÖCATE #1,9,5:PRINT#1," Kuerze 

1 "sLOCATE #1 9,4: PRINT#L," Or d 

nun wii * 

i$e""i5=INKEYS 

IF i$=" " THEN IF a=@ THEN LOCA 

TE #1,9,2:PRINT#1," N a m »LOCAT 

E #1,9,3:PRINT#1,CHR$(24)5" Ku er 

z e'ı ";CHR$(24):G0TO 2830 

IF is=" " THEN IF a=l THEN a=2:L0CA 

TE #1,9,3:PRINT#1," Kuer zel " 

:LoCAte 61,9, 8: PRINTOL,CHR# (241% 0 
2) 


rdnungszahl ";CHR#(2 
0TO 2938 
IF i$=" " THEN IF a=2 THEN a=@:LOCA 


TE #1,9,4:PRINT#1," Or dn ung s 
z an] ":LOCATE #1,9,25PRINT#1,CH 
R$(24)5" Na me "ICHRF(24):G0T0' 28 
er 

IF i$=CHRF(13) THEN ON a+i GOSUB 29 
0@,2948, 2780: RETURN 

IF’i$="2" OR i$="z" THEN CLS#1:CL8# 
2:60T0 538 

60T0 2838 

RR Eingabe 
des Elements ueber Name #xuuxunnne 
u. 

CLS#1: INPUT #1, "Name: " ,i$ 

FOR i=1 TO 11@:IF UPPER£ (i$) =UPPER$ 
{n$(i)) THEN RETURN 
NEXTSCLS#1:PRINT#1CHRS(24)5" "ji5 
* ";CHR$(24);" existiert nicht! !!": 
FOR a=1 TO 10@@:NEXT:GOTO 2988 
anununnnunneneeneenee Eingabe 
des Elements ueber Kuerzel xxnkune 
...- 

CLS#1: INPUT #1,"Kuerzel:",i$ı IF LEN 
(i$)<2 THEN i$2i$+" " ELSE IF LEN 
$)>2 THEN i$=LEFT$i#,2) 

FOR i=1 TO 11@:IF UPPER$ (i$)=UPPER$ 
(e$ti)) THEN RETURN 
NEXT:CLS#12PRINT#1,CHR$ (24) 5" "3i$; 
“ "ICHRE(24)5" existiert nicht!!!": 
FOR a=1 TO 18Q@0:NEXT:G0T0 2948 
RR Eingabe 
des Elements ueber Ordnungszahl #* 
x. 

CLS#1: INPUT #1,"Ordungszahla",i 

IF i>103 OR i<1 THEN S01@ ELSE RETU 


RN 
ELS#1:PRINT#1,CHRS(24)5" "zi;" "SCH 
R$(24);" existiert nicht!!!":FOR a= 
ı TO 10@0:NEXT:GDTO 2988 


nn Data 5 
PEPPER Pe 
u... 

DATA "H " "Wasserstoff" "1 

DATA "1", 252.7" ,"-258.2", 
"H3(12.38) 

DATA "He" 


"2770" ‚"1277" "kein 


2038)" ‚"keine 
DATA’«C’" ‚Kohlenstoff 
DATA_"+-274 

C14 (5708a)", 


"16" 
-183? ,"-218.8","k 


1.14%," 


LoABAI 
ECBAEI 
C972E1 


CC0301 
CE1321 


LEDIEI 


[SCE®I 


CF1SC] 
[4E461 


LOB4EI 


C1B541 


18500] 
LCASa1 
[D466] 
[74321 
[SEE] 
E1D88] 
L7D281 


18672] 


L7FAEI 


[8036] 
LABL6] 
ca2821 
[394C1 
197701 
14600] 
18734] 
CB918] 


EBALAI 
£931C1 


133061 
L94EE] 


C76AE1 
EBB1C] 


cogas] 
[35E81 


[94521 
E1AB2] 


105201 
C3D24] 


LC3681 
[2F221 


Li1accı 
L7F7AI 


L6BC61 
CAA761 


L9A14] 
[34341 


3238 DATA "-1","1.585", 
„"keine", 


Na24 15h)", 
"Magnesium 


‚"keine 


»"1418","kein 


y 
3350 DATA "+-3/5/4" "1.82 an 
ee ‚"Alle Daten" "weisser 
3360 DATA ",‚"Schwefel 
3370 DATA _"+-2/4/6 
0" ,"535(88d) 
3399 Data "Cı","Chlor!, 
3390 DATA "4-1/3/5/7", 
21" ,"C136 (30008) ? 
3490 DATA "Ar" "Argon 
DATA "0" "1,20" 


"Kaacı 


"Calcium" 
„53" ,"1449" ‚"838 
"Ca45t165d)")"Cas7 14.54)“ 


„"Scandium" ‚"45" 
12730" ,"1539", 


„Cast 


"Sca6t 


3"3a5a" "1900", 


2" 
12665”, 


3530 DATA "68/372", 7.19" 
Ers11270) "ef nh,nn 


"1875" ," 


2150" ,"124 


"2900" ‚"1495", 
"CH60 5. 27a) "ri ,nn nn 
" "Nickel .7 
13% ,"8.9" ‚"2730" "1453" ,"Ni6 
S(1200)" "09 (arıanaaı 1", 
3620 DATA „"Kupfer" 
3638 Data "2/1 „"Cu 


64 (12.8h) 


91" 112237°, 529.8" ,"Ga72 


"72.0" 


."Ge7 


‚"S 
„"Br 


DATA "Kr 


„"38.9" ,"RbB&( 


3808 Strontium" ,”87.6” 
"2.6" "1380" "760" ‚"Sr9@(2 
Ba)" "Erde Sid) „"SrB5(64d)?, er 
"Yetrium", "88.9" 
1589" ‚"vo@c 
1.2" 
„i2deg- „12795 
"2468" ‚"kei 


3880 DATA "Mor} M&iybdaen" er 


LES48] 
186981 


[62BAJ 
EB87A1 


L7AEZ1 
162081 


CEBBBI 
[45161 


[SFA4] 
c15143 


{DD86]J 
CE2DEI 
10322] 
[8F641 


L43BA] 
tEB7CI 


1Aa621 
[A484] 


[848€] 
[272977] 


LEFBB] 
[71DC3 
L6ECCI 
1513C1 


L911E] 
C7ABBI 


[26F@1 
Larzal 


CD@F2] 
C9DBA] 


LAF241 
TEA4E1 


tEC32] 
[EE761 


L1BE6I 
134623 


13A24] 
[55401 


L[ar38] 
152741 


124203 
L1SF8] 


L9E16] 
1D4281 


[22361 
1[39DA] 


tA3D2] 
LEBBE] 


LC9BEI 
[88023 


C3D1A] 
[2DCEI 


130281 
[81A6) 


[8E621 
C452A] 


CDSFAI 
TESCI 


CAc1E] 
L1A32] 


L33E81 
[B256] 


LE7081 
[96521 


L&BSE] 
CeFFAI 


389@ DATA "6/5/4/37/2" ,"19.2" "5560" "261 
8" ,"M099 (67h) " "nu, nu tun 

3988 Data "Te" ‚"Technetium" 399)" 

391@ DATA "7" ,"11.5","—" "2j4 
1862)" ,"TC97 (10762) " "ui, 

392@ DATA "Ru" ,‚"Ruthenium" ,"1@1.1" 

393@ DATA _"2/374/6/8" ,"12.2" "4990" ‚"250 

8" ,"Rul@3taud) ","Ru97 (2.90) ","" u", 


3948 DATA "Rh" ‚"Rhodium" 
395@ DATA "2/374" 

keine” ," 
396@ DATA "Pd" 
397@ DATA "27. 


C97 (2x 


"192. 
"4500", 


1960" ," 


183174) 
3988 DATA jez. gu 
399@ DATA "1","10.5","2210", 
10 (248) " 11117.5) 


4008 DATA "Cd" 
4818 DATA "2", 


51434) 3 
Indium" ‚"114.8" 
49838 DATA "3" 2000" ,"156.2", 
14 (580) * Sana 


4850 DATA "4/2 
n113(119d4) 


"8.65 


"Ini 


"231.9" 


4860 DATA "Sb", "Äntimon" "121.8" 
4878 DATA _"+-3/5" ,"6.62" "1380", 
"Sb122(2.84)","5b124 (604) "}" 


4080 DATA "Te 
A890 DATA "-27/8/ 
“ "Te127(9.3h) 
DÄTA "I ","Jod 
a11@ DATA_"+-1/6/7" 

„"1129018°7a) * 


412@ DATA "Xe" ‚"Xenan" "131.3" 

4130 DATA "@" ,"3.06","-108.0" = 
keine" ,"i,nn, 

4148 DATA "Cs" ,"Cae: 


4158 DATA "1", 
(Za)t, 


31.90" ,"690 
"63135 (3x1@"6a) 


4168 DATA "Ba" ‚"Barium®, 

4178 DATA "2" 13.5" "1641 Baisıt 
12d) ","B3133(7.28) 

418@ DATA "La" ‚"Lanthan" 

4198 DATA_"3" s170", ‚"La14a 
(48. 2h) rn 

4200 DATA "Ce", 8.1" 

421® DATA_"3/4} ,"6.67" "3468" ,"795" ‚"Cei 
41 (320) " ;"Celäs(zSn)","Ce144 (2854) " 
er 

4228 DATA "Pr" ‚"Praseodym" ,"148.9" 

4230 DATA "3/4" ,"6.77" "3127" "935" "pri 
AS(13.Bd)" ur ,nn, 

4248 DATA "Nd" „INeodym“ ‚"144.2" 

425@ DATA "3" 7.00” ,"3827" "1024" ‚"Ndia 
71.100, 

4260 DATA "Pa" } "Promethlum® ‚" (145) " 

4270 DATA 13" (1827) ‚"Pm147 (2. 
ale 1.» 

4288 DATA „"Samarium" ‚ "158.4" 

329@ DATA "3/2" ,"7.54" ,"1908" ,"1972" ,"Sm 
153 (470) * ‚1S5m145 (3400) ”s 

430@ DATA "Eu" }"Europium" 

4318 DATA "3/2 
5416)" 

4528 DATA Ga! „"Gadotinium 

4338 DATA "3", 
3 (236g) " 

4340 DATA "Tb 

4358 DATA 
1691734)" 


Dysprasiun on 
„2600 


4368 DATA 
4370 DATA "5% 


4389 Data "Ho! ‚"Holmium" „"164.9" 

4398 DATA "3","8.8@", "2600" "1461" ,"Hol& 
6(27.3n) > "a nulun, m 

4400 DATA Erbium" "167.3" 

4418 DATA "1497" ,"kein 
er... } 

4428 DATA „"Thulium" „168. 9" 

4438 DATA "3/2","9.33 7" "1545" ,"Tm 


17@ (1344) " ,u","" 
4440 DATA "Vb", 
4458 DATA "37 
7514.20) 
4468 DATA "Lu" 
4478 DATA "3", 
&110"1Ba}" 
4488 DATA "HF" 


449@ DATA "4" "15.1", "Sada", "2222" ‚"Hr18 
10450) " „An, un uf 
4598 DATA "Tar,"Tantal","100.9% 


Das Programm »Chemie« (Fortsetzung) 


L47C01 
177841 


CCF46I 
CBFBAI 
L7Ea@] 
[24841 


LEBACI 
134201 


L2AFA] 
120841 


c14401 
Ei63E] 


ECBBC1 
t82BA] 


LLE@CI 
cagaal 


LAS641 
CDEIAI 
LFADA1 
£35F2] 
£B72C] 
LAE94] 
£cD21@] 
[56003 
T1C68] 
c89821 
68181 
CiF9@] 


17608] 
tES821 


CAD2B1 
L&8DC1 
1C724) 
[8470] 


LaA2cı 
EBFBE]I 


134701 
CBC381 


[D368] 
153861 


Liaacı 
E3CDAI 


LAC821 
(65F2] 


LDBF6] 
CacBal 


[4998] 
ECDB63 


EDALCI 
L&DC21 


C84B4] 
caAcaı 


14724] 
L7CEEI 


184201 
L7ECAI 


L3EAAI 
L3AB6] 


LFFE4] 
[358€] 


L96BA1 
[C6081 
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Ergänzen «AAPPy.x 
Sie jetzt Ihre COMPUTER „Sammlung 


Schaffen Sie sich ein 


interessantes Nachsch und 
Archiv! 


Kennen Sie alle »Happy Computer«- Ausgaben von 1985? Suchen Sie einen ganz bestimmten 
Testbericht? Oder haben Sie einen Teil eines interessanten Kurses versäumt? Suchen Sie nach 


gleichzeitig ein wertvol 


einer speziellen Anwendung? 


Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen 
Seiten eine Zusammenstellung aller wesentlichen Artikel der noch lieferbaren Ausgaben. 
Und so kommen Sie schnell an die gewünschten Ausgaben: Prüfen Sie, welche Ausgabe in 


Ihrer Sammlung noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer 


dieser Ausgabe und das Erscheinungsjahr (z.B. 2/85) auf dem Bestellabschnitt der hier 
eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte einfach heraustrennen und 
Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs- 


eingang umgehend zur Auslieferung gebracht, 
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Die Ausgaben 
6/85, 7/85 und 9/85 
sind bereits vergriffen 
und nicht mehr lieferbar! 


Auch die bisher 
erschienenen Sonderhefte 


können Sie 
jetzt direkt bestellen: 


hrliche Informationen. 
Computern EIS} und Spectrum. 


SONDERHEFT 01/85: SPECTRUM 
Am 1e Listings und Tips& Tricks 
füralle Spectrum = 


SONDERHEFT 02/85: SCHNEIDER | 
Eine Fülle wertvoller Beit und 
Eine Fi ‚Beiträge und Listings 


SONDERHEFT 03/85: SPIELE 
Ein Super-Nachschlagewerk für alle Spiele-Fans mit 
100 Spielen im Test und großer Marktübersicht. 


SONDERHEFT 01/86: SCHNEIDER 2. 
‚Noch mehr Tips und Tricks für Einsteiger und Fort- 
ne mit vielen interessanten Programm- 


SONDERHEFT 02/85: ATARI 1 
Besonders 800 XL- und 130 XE-Fans erwarten jede Menge 
Anwendungs- und Spiele-Listings sowie Informationen. 
SONDERHEFT 03/86: 6800er 

Umfassende Informationen zur neuen Computer- 
Generation und eine große Vergleichstabelle, die im 
Detail über alle r informiert. 

SONDERHEFT 04/86: SCHNEIDER 3 

Eine Erweiterung für alle Schneider-Anwender, Super- 
Programm-Lisings und großer Einsteiger-Teil. 
SONDERHEFT 05/86: PROGRAMMIERSPRACHEN 

Fuß fassen in »Pascal«, »C« und »Forth« mit jeweils ei- 
‚nem grundiegendem Kurs und vielen Anwendungs- 
Listings. 


SONDERHEFT 06/86: 6800er 2 
Umfangreicher Listingteil, viele Informationen, Tips 
[cs für Anwender der 53000er Computer 


SONDERHEFT 07/86: SCHNEIDER 4 
Mit den Schwerpunkten Joyce und CP/M plus, Rat- 
schlägen zur Vortex-Karfe und vielen Tips & Tricks. 


SONDERHEFT 08: COMPUTER ALS MOBBY 
Wissenswertes für Einsteiger und zusätzliche Informa- 
tionen zur Fernsehsendung Computerzeit. 


SONDERHEFT 09: 6800er 3 
Mit den Schwerpunkten Sound- und Videodigitalisie- 
‚rung und Spieleprogrammierung. 

SONDERHEFT 10/86: SCHNEIDER 5 

Der neue Schneider-PC wird vorgestellt. Wieder viele 
Hilfestellungen und Kurse. 


SONDERHEFT 11/86: SPIELE-TESTS 
Alles über aktuelle Spieletests, Computerprogramme, 
Grafik: und Musik-Soltware er 


SONDERHEFT 12/86: 6800er 4 
‚Ausführliche Testreihe aller Grafikprogramme 
AlarısT, Amiga und Sinclair OL sowie viele Grund: 
lageninformationen zu diesen Com; 


SONDERHEFT 13: SCHNEIDER 6 
Diskettengrundlagen-Kurs. Reiche Auswahl an Pro- 
‚grammen für CPC. Schneider CPC oder PC: Fakten 
und Vorteile. 

SOnDEI 


IRHEFT 14: SOFTWARE 
Der Softwareführer 1987 für Ihre optimale 
Programmauswahl. 


SONDERHEFT 15: TIPS UND TRICKS UND FLOPPY 
Alles über Laufwerke und Datasetten. 
‚Neue interessante Grundlagen. 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 08/85) auf dem Bestellab- 
schnitt der hier eingehefteten Bestell-Zahlkar- 


WWW. HOMECOMPUTERWORLD.COM 


Am besten gleich 
mitbestellen: 
Die Happy-Computer- 
Sammelboxen 


Für alle Leser, die »Happy 
Computer« regelmäßig 
kaufen, sammeln oder im 
Albonnement beziehen, 
gibt es ein interessantes 
Service-Angebot: die Hap- 
py-Computer-Sammelbox! 


Mit dieser Sammelbox 
bringen Sie nicht nur 
Ordnung in Ihre wertvol- 
len Hefte, sondern schaf- 
fen sich gleichzeitig ein 
interessantes und attrakti- 
ves Nachschlagewerk. Ein 
kompletter Jahrgang (12 
Ausgaben) paßt in eine 
der praktischen Sammel- 
boxen! 


Übrigens: Die Sammelbox 
ist nicht nur ein prakti- 
sches Aufbewahrungs- 
mittel: Sie eignet sich 
auch hervorragend als 
Geschenk für Freunde 
und Bekannte zu vielen 
Anlässen. 
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DATA 


u; "2996" ‚"HFIB 


"16.6" ,"5425" 


1tasdy" iu ,nn ni, LACF@I 
DATA "w’", "Wolfram" "183.9" [ESS6] 

DATA "6/5/4/3/2" ,"19.3","593@" ,"341 
B" ‚"WIBSC7BA)" ‚ui,un nnsun c39481 
DaTa "Re" ,"Rheniunm" ‚"188.2" [39821 
DATA "7/6/4/2/-1" "21.8" "5988" ,"31 
80" ‚"Reia8(16.7h)","Reia«3. 7a)" ,"" 

" (63681 
DATA "Os" ‚"Osmium" ‚"198.2" EC5861 
DATA "2/3/4/6/8" "22.6" "55Q8" "308 
@" ‚"0s191(15d) Ann LAsFC] 
Data "Ir" ,"Iridium ECFB23 
DATA "2/374/6" 

‚"Ir192(74 CB9Q&] 
Data "Pt", [89841 
DATA "274° 
197(18h)", [5Dpa2 
DATA "Au" Ense] 
Data "3/1", 2970" ‚"1863" ‚"Au 
198 (2. 69d) ” CDAB23 
DATA "Hg", "208.6" EFED&I 
Data "2/1", „"3S7" ," "Hg 
197 (65h) " „"Hg283 (A7d E c897@1 
DATA "Tl" )"Thallium" ,"2@ EBIECI 
DaTa_"3/1","11.85 „3Qs" “Tl 
204 (3.81a)" ‚un nn 123781 
Data "Pb" "Biel" „g (Bee) 

ı 
" gciec9 

DATA "Bi" "209" ECB3@) 

DATA "3/5 60" ."271.3"."Bi 
[221€] 
[9F921 
CSBBEI 
LECCE] 

DATA "+-173/5/7 
t21@(8. 5h)" „"At211(7!2h CB42C] 
DATA "Rn" ‚"Radan" ," (222)" LE2D41 
DATA "® 61!8","-71","keine", 

” 192081 
LFFACI 
LFCS@] 
- CABBBI 
„"Ra226 (162 
(98781 
ium" ‚" (227) " [2F2C1 
‚"1050" ‚"Ac227 (22a) 
L1D2aJ 
[7As81 
“Th23 

F LF914] 
BATA "Pa" ‚"Protactinium","(231)" _ LFECEI 
DATA "5/4" ,"15.4" «1238) ","Pa2 
31 (34008) ER CB1BAJ 
DATA "u " 38" [38F4] 
DATA_"6/574/3° ,"19.87" ,"3818" ,"1132 
","U238 (4x 1098) " ‚"U23A (2x 1052)" ," 
L235(7x18"4a)" "U233(2x1@"3a)",""” LSCEBI 
DATA "Np", (28761 
DATA_"6/574/3 
237 (2.2x1@"6a) sdı",ie, 

Bern LFABEI 
DATA "Pu" ‚"Pluti : 3" [DD943 
DATA "6/5/4/3" ,"-" "3235" "648" "Pu 
242 (4x 10”. Pu241(13a)","Pu239(2 

" 174221 
120861 
t2DSE] 
[74C81 

nz 3 Cm243 3.52)", 

"Cn245 (93@0a} " ‚"En247 (1972) 

LFaF&] 

DATA "Bk", 1247)“ £s81C1 
Data "asst,n-n, Bk245 (4.90) 

" "Bk249 (3140) },unyun, in CABBaı 
DÄTA "C#" ‚"Californium" ," 251)” [F79C3 
DATA "3", „"-" „"C#246(35h)"," 

C£249 (36Ba) " ,"C#251 (B@Qa)","", caEa41 
DATA "Es" steinium"," (d54)" [73661 
Data "=", " "ES253 (204) "," 

Es254 (1a) 170721 

"(257)" [SA7C1 
Fn255 (20h)"," 

LSFaC3 

ium" ‚" (257) * [28081 
„"Md256 (98m) "," 

[3426] 

m" "(255)" C3B4B1 
aan un un, 

A 137583 
DATA "Lw" ‚„"Lawrencenium" [5308] 
ae Dale 
Bee EEBaRı 
Data [758C3 
Data "- 
une [744E1 


100yw HomesomPuTeRr 


5542 


5558 


5568 


5578 


ssea 
59a 


E21] 


"keine" ,un,nn, 


RR DruckS-D 
ata” 5 Ant e 
.... 
DATA " Gr.<82>" 
Data " \<4>Hauptgr .<51>Hauptgruppen 
dran "Per.<3>1 II<A7>IIISZ>IIVC2>V 
VI VII I er 
atnins 
DATA "K- I<3>H<73>He<3>" 
DATA "<ga>® 
DATA "L- 


<3>11$2>Be<17>Nebengruppe 
SEN < ZNecse" 
VI VITTSSDIE 


Data" 


DATA "m- ScHNac22 IVEA2VIES2VI 
MISAVILLCEDTICBSAI LESS CEPCSIBLE> 
DntAreägs" 

DATA_" K<3ICag5>5c<2>Ti <2>V. 
2Cr<2>Mn. RE Sen cSzneE 
Be: <2>8e<2>Br <Z2>Kr Ss" 

DATA "D- S<Z>RD<Z>SrSS2VSZ>ZrSZINDS 


-Te<2>Ru<Z>RnCZ>PAL2>Ag<2>CHT 
an 'S5n<2>5b<2>Te: ee gu gger 
® Zar 
DATA «Bez ESZICHL2IBa<5>#<Z>Hfg, Re 
EWSSIRe TEE Aus2>Hg: 
GES Z ERS SB <Z>Po<2>At<2aRngS>" 


DATA S3IFrSZIRa<SI+<7>" 

DATA 1<B6> 

DATA "Elemente der<67>" 

DATA " Lanthanr sine<62lasz2teszpprs 
152380 


a 
nn ie mez>Yb<2>Lu<s>! 


DATA "+Elemente der<67>" 

DATA “ Actiniumreihe<S>Ac<2>Th<2>Pa 
USS2Np<2>Pu<2>Am<2>Cm: 124.210 74 
E m<Z2>MdZ2>NoLZIL mL SI" 

DATA BE 


a  Alphabe 
tische Reihenfolge Hrn 
.... 

DATA_89,13 


95,51,18,33,85,56,97,4,8 
2,5,35,48,55,20,98,58,17,24,96,46,7 
9,28,68,63,180,9,87,64,31,52,79,72, 
2)67,49,77,53,19,27,6,36,29,57,183 
3}71,12,25,1@1,42,11,60,10,93,28,a1 
„182,76 
DATA’46,15,78,94,84,59,61,91,80,88, 
86,75,45,37,44,62,8,21,16,34,47,14, 
7,38,73,43,52,25,81,98,69,22,92,23} 
1,83,74,54,70,39,30,50,40 
rs Ergaenz 
ungs-Data’s Kunnannn nn 


Er r 
DATA " Gr.<77>\£4>Hauptgr . <45>Haupt 
<3> 1anistrreen v 

DIT" 


gzupeens > 
EEE 
A "<14>Nebengruppen: RIER 
VÖ&>VIILS>VIIIESI1LZ2", "LA>IVga>| 
Yrıı 1323" 


1118 
"Elemente der","Lanthanreihe", 

"Actiniumreihe 

DATA " Element<8>Kuer- Ord-<4>Rel.< 

32Dichte<2>Siede-<S>Schmelz- Oxyd 

ri "<16>zel<3>nungs-£2>Atom- 

<i@>punkt<4>punkt<ä>tions-" 

“$3222ahl<#>masse<1@>Grad CX3>Brad 
ah" 

DATA "Ord-<5>Element<8>Kuer- Rel.<3 

Michte<2>Siede-<3>Schmelz- Oxyd, 

’ 'nungs-<18>zel<3>Atom-<19> 

punkt<4>punkt<4>tions-", "za 

h1<26>masse<1@>Grad [<3>Grad CX3>za 

hı" 


Das Programm »Chemie« (Schluß) 


1339@1 


[30521 
139941 


L1C56] 
LA7981 


L185A1 
CAFBAI 


C354C] 
L&FBEI 


[3150] 
[85929 


L70541 
16258] 
[E666] 
L18EA] 
CDascı 
11340] 
[5804] 
LEDS@1 
t24E8] 
1907A] 


CD9F&I 
1D9581 


[3452] 
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L5QE41 
[354E1 
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LEE92] 
Ci3DC) 
17508] 


[21681 
C16D8] 
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CCE28] 


L6BF61 


t98aDC1 


L52A4) 


L7EEA] 
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L76E81 
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Nullstellen 
schnell ermittelt 


Eine kleine Basic-Routine hilft Ihnen, die Nullstel- 
len beliebiger mathematischer Funktionen ausfin- 
dig zu machen. 


er sich privat oder beruflich mit der Auswertung 
mathematischer Funktionen beschäftigt, kommt 
öfters in die Situation, die Nullstellen dieser Funk- 
tionen ermitteln zu müssen. Diese Arbeit nimmt Ihnen nun 
»Nullstellen« ab. Als Besonderheit erlaubt es die Eingabe 
beliebiger Funktionen, die es mittels eines Basic- 
Zeilengenerators (die Maschinencode-Routine in den Zeilen 
230 bis 260) in sein eigenes Listing als Zeile 420 einfügt. 
Nach Eingabe der Funktion, der Unter- und Obergrenzen, 
sowie der Schrittweite erhalten Sie auf Ihrem Bildschirm nach 
kurzer Rechenzeit eine Liste der gefundenen Nullstellen. 
Zum Verfahren: Der Computer untersucht das Intervall in 
der gegebenen Schrittweite. Stellt er dabei zwischen dem 
derzeitigen und dem vorhergehenden x-Wert einen Vorzei- 
chenwechsel fest, muß dazwischen eine Nullstelle liegen. 


Die genaue Ermittelung dieser Nullstellen erfolgt dann mit 
Hilfe des Sehnenverfahrens (Regula falsi), bis sich die genä- 
herten x-Werte nichtmehr unterscheiden. Mit diesem Verfah- 
ren lassen sich aber keine doppelten Nullstellen finden. Auch 
wenn die Schrittweite zu groß ist, können Nullstellen verloren 
gehen - wenn die Kurve die x-Achse innerhalb einer Schritt- 
weite zweimal schneidet. 
Die Fehlerroutine in den Zeilen 690 und 700 fängt Fehler 
durch Überlauf und Divisionen durch Null ab. 
(Dirk Haltermann/ja) 


Steckbrief a] 
Programm: Nullstellen 
Computer: CPC 464 
Checksummer: Explora 
Datenträger: Diskette 


198 [DEB@I 
118 "Nullstellenprogramm mit Errarbearbe 

itung fuer CPC 464 EDBE41 
120 ' LEQ@BA] 
138 '(C) 1986 by Dirk Haltermann [B76C] 
190 ' Lueftibergstr. 1 [79801 
158 8378 Passau C3C7C1 
168 [@4BC] 
17® "Basiczeilen - Generator CE1BS] 
188 ° La6cQ1 
198 MEMORY &IFFFE t8Acsı 
200 FOR i-1 TO 20@G:NEXT:FOR b=&ABQa TO 

ABIT [DSE6] 
21@ READ d$:bs="&" ES9BC1 
220 POKE b,VAL (b$+d$) :NEXT EFFEE] 
230 DATA FE,@1,C0,EB,4E,06,00,23 C9FSAI 
24@ DATA SE,23,56,21,A4,AC,EB,ED ED9B41 
258 DATA B8,77,12,21,A4,AC,CD,08 EBCSAI 
2680 DATA B9,CD,bc,e6,09 [BORD] 
270 ° LESCQ] 
288 "Nullstellenberechnung: Sehnenverfah 

ren LF9201 
290 ' CADG41 
S@@ MODE 2:INK @,@: INK 1,26: BORDER @ [46761 


31® LOCATE 30,2: PRINT"Nullstellenprogram 
m" EC#9E1 
32® LOCATE 1,5: INPUT"Haben Sie schon ein 


e Funktion eingegeben (j/n)"za$ L7@2E1 
330 LOCATE 17,15:PRINT CHR$(18) ;CHRS (18) 

fl LFCB6] 
348 IF a$="j" THEN 420 [68861 
35@ LOCATE 1,7:PRINT"Geben Sie bitte die 

Funktion ein: f(x) [52021 
368 LOCATE 42,7:LINE INPUT b$ CAF241 
378 ° LESC21 
388 ‘Funktion einbauen ESD2EI 
398 ° [a9C61 


408 #$="42Q def fn f(x)="+b# L56AAI 
418 CALL SABAR,@r$ C87BC1 
420 DEF FN # (x)=x"2-3 [765A1 
438 LOCATE 1,9:PRINT"F(x) = "b$;CHR$ (18) 

L77B@] 
448 LOCATE 1,11 L879E] 
458 ON ERROR GOTO 498 TAass@] 
468 INPUT"Untergrenze<2>"zu L942E] 
470 INPUT"Obergrenze<S>";o LADSB1 
480 INPUT"Schrittweite ";s E91BAl 
498 LOCATE 1,15:PRINT"Nullstellen bei: " 

LESB41 
son [@&B81 
51® ‘Vorzeichenwechsel feststellen 1255C1 
528 ° L@BBC1 
538 IF FN ftu)>® THEN #=1 ELSE f=@ [91681 
540 usu+s L2BFC1 
558 FOR _x=u TO 0 STEP s [50581 
56@ IF FN f(x) > THEN g=1 ELSE g=@ L5F783 
578 IF #<>g THEN 62@ ELSE NEXT EF1C2] 
588 FRINT"Fertig !":CALL &BB18:6070 5@@ LFCBEI 
598 Lapcaı 
608 ‘Sehnenverfahren Regula falsi [689C] 
sim ° T@DBCI 
628 u=sx:xi=x-s:x2=% [D9661 
630 WHILE x2<>x1 E7ASEI 
648 x3=x1-FN #(x1)#(x2-x1) / UFNFLRZI-FNEC 

x1)) L6B3A1 
658 »2=x1:x1=%3:WEND: PRINT x15" GOTO 

538 LC926] 
EC L72C6] 
678 "ERROR — Bearbeitung LF7861 
EI: LEACA] 
69@ IF ERL=53@ THEN u=suts ELSE usx+s LC8161 
700 RESUME 538 [128801 


Nullstellen mathematischer Funktionen schnell ermittelt 


D 


ER 2 wieder 


Willkommen 
in Kybernetien 


Helfen Sie mit, die Lebensqualii Ihrem neuen 
Heimatland Kybernetien zu verbessern. 


eit mehr als ein Spiel ist die Simulation »Kyberne- 

tien«. hie in der Wirklichkeit, gelten auch in die- 

sem fiktiven Staat Politik, Produktion, Umweltbe- 
lastung, Lebensqualität, Sanierung, Aufklärung und Bevölke- 
rungsentwicklung als wichtige Bereiche menschlichen Zu- 
sammenlebens. e: 

Alle diese Faktoren sind in unserem Öko-Spiel durch nicht- 
lineare mathematische Beziehungen so verknüpft, daß jede 
Entscheidung eine Kette von Wirkungen und Rückwirkun- 
gen nach sich zieht. Auf diese Weise ändern sich die Bedin- 
gungen in Kybernetien von Runde zu Runde (von Jahr zu 
Jahr). 

Der Computer übernimmt die Aufgabe, diese Kette von Wir- 
kungen und Rückwirkungen auf der Grundlage mathemati- 
scher Funktionen zu steuern. Gleichzeitig erzeugt er zufäl- 
lige und somit meist unerwartete Ereignisse - denn auch in 
der Wirklichkeit geht ja nichts ganz nach Plan. Es ist der Ver- 
such, wichtige ökologische Zusammenhänge spielerisch zu 
verdeutlichen. An Ihnen liegt es nun, die Zustände auf Kyber- 
netien zu beeinflussen und möglichst günstige Verhältnisse 
zu schaffen. Sie werden schnell bemerken, daß es gar nicht 
so einfach ist, als allmächtiger Staatsmann zu agieren. 

Sie können allein spielen, sich aber auch in größerer Runde 
beraten. Bis zu fünf Personen oder Gruppen dürfen parallel 
spielen, wobei sich die einzelnen Aktionen der Spieler ge- 
genseitig nicht beeinflussen. 

Zu Beginn jeder Runde erhalten Sie einen vom Spielstand 
abhängigen Geldbetrag (bis zu zwei Millionen Mark), mit dem 


‚Sie in Sanierung, Produktion, Aufklärung, Lebensqualität und 
Vermehrungsrate investieren können. Kreditaufnahmen sind 
nicht vorgesehen; Restbeträge bleiben für das nächste Jahr 
erhalten. Bei Beträgen unter einer Million Mark beenden Sie 
die Eingabe jeweils mit <ENTER>. 

Danach stellt der Computer den veränderten Zustand 
Kybernetiens durch entsprechende Texte auf dem Bild- 
schirm dar. 

Der Druck einer beliebigen Taste ruft dabei jeweils den 
nächsten Bildschirm auf. Die Anzahl der Spielrunden ist im 
Programm (Zeile 2760) auf maximal 99 begrenzt. 

Auf das Ende der letzten Runde folgt eine Schlußbilanz mit 
Bewertung des Gesamtergebnisses. Am Ende jeder Runde 
kann man jeweils den Spielstand speichern, so daß sich ein 
Spiel problemlos unterbrechen läßt. 

Geben Sie zuerst Listing 1 ein und speichern diese Lade- 
routine. Danach verfahren Sie genauso mit Listing 2. Denken 
Sie dabei daran, dem Hauptprogramm den Dateinamen 
»KYBERNET.PGM« zu geben. Starten Sie dann den Lader. Er 
zeigt das Titelbild und stellt während des Nachladens des 
zweiten Teils einen Auszug der Spielregeln auf dem Bild- 
schirm dar. (Rolf Schultz/ja) 


Steckbrief 


Computer: 


CPC 464/664/6128 
| Explora 
Diskette, Kassette 


| Checksummei 


Datenträger: 


19 ‘*** VORBEREITUNGEN ##** LB6261 
20 RANDOMIZE (TIME+100000) «20 [B946] 
38 '** Deutsche Schriftzeichen == L4348] 
48 SYMBOL AFTER 91 EDZECI 
50 SYMBOL 91,182,60,102,1264,182,102,182 LAZEEI 
60 SYMBOL 92,198,56,108,198,198,1@8,56 L[AB121 
7@ SYMBOL 93,1@2,8,102,102,182,1a2,28 L9F241 
gu SyrmoL 123,108,8,128,12,128 208,118 [Beach 
90 SYMBOL 124,182 ie2,1@2,182,60 _ LS&241 
18a SynBoL 128,182.8,162.162.162.162.62 LEBDsI 
11@ SYMBOL 126,12,58,50,42,50,68,48,8 LE@B2] 
12@ KEY DEF 17,1,123,91 F898] 
13@ KEY DEF 22,1,124,92 LE7BEI 
14@ KEY DEF 19,1,125,95 E46AB] 
159 'x* Farben *+ TEB26T 
160 INK @,1@: INK 1,26: INK 2,1S:INK 3,@:1 

NK 4,11 [4488] 
17@ 'x«*"TITELBILD xx* 18378] 
18@ MODE G:PAFER @:BÜRDER 1B:PEN 3 [97323 
198 LOCATE 6,7: PRINT"KYBERNETIEN":PEN 2 L&sCA] 


20® LOCATE 4,5:PRINT STRINGS(15,CHR$(143 
)):LOCATE 4,9:PRINT STRINGS(1S,CHR$C 
143)) LF55@1 
21@ FOR i=1 TO S:LOCATE 4,5+i:PRINT CHR$ 
1143) ;:LOCATE 18,5+i:PRINT CHR$(143) 


32 NEXT AFCEI 
228 LOCATE 3,17:PRINT"ein !ikologisches": 

PRINT:PRINT"<2>Simulationsspiel LAAECI 
238 LOCATE 3,22:PRINT "fr 1-5 Spieler [ECAA] 
240 a=FIX(RND*S@):WHILE z<a E3BD23 
25@ LOCATE 1,2:PRINT STRING$(19,CHR$ (243 

2); L9B1AI 
260 FOR i=1 TO 1B:LOCATE 2@,1+i:PRINT CH 

R£(241) :NEXT ta2181 
278 LOCATE 2,12:PRINT STRING$(19,CHR$(24 

2; [16883 


Listing 1. Der kurze Lader enthält die wichtigsten Spielregeln 


288 FOR i=1 TO 12:LOCATE 1,11+i:PRINT CH 

R$ (241) :NEXT ED218] 
298 LOCATE 1,24:PRINT STRING$ (28,CHR$ (24 

393 LB47A1 
3®@ z=z+1:stift=(z MDD #)+1: PEN stift L[ASC6] 
TO_3@@: NEXT: WEND E8DD2] 
1:PAPER @:BORDER 1B:PEN 2 EFF2AI 
SS@. LOCATE 15, 13PRINT"SPIELANLETTUNG"ILO 

SATE 15, ZIPRINT STRINGS (14, PRIN 


LALBCI 

348 PRINT"Bei diesen Spiel gilt es, die 
Lebensqua-lit{t in einem unserer Wir 
klichkeit 

358 PRINT"nachempfundenen Phantasieland 
namens<4>Kybernetien zu verbessern. 

368 PRINT"Zu Beginn jedes Jahres verf}ge 
n Sie }bereinen jeweils sich {ndernd 
en Geldbetrag, 

378 PRINT"den Sie Sich aus Steuer- und 5 
pendenauf-kommen zusammengesetzt den 
ken kinnen. 

388 PRINT"Sie kinnen nun in den Lebensbe 
reichen":PEN 3 

39@ PRINT"SANIERUNG, PRODUKTION, AUFKLER 
UNG ,<&>L EBENSQUÄLITLT und VERMEHRUNG 
"PEN 2 

428 PRINT"investieren. Dabei kinnen Sie 
keine<5>Schulden machen, restliche 6 
elder blei- ben jedoch f}r das nichs 
te Jahr erhalten”; PRINT 

418 PRINT"ACHTUNG!! Auch die Drosselung 
der Pro-<2>duktion kostet Geld (wege 
n Umschulungen,"; 

428 PRINT"Sozialplinen, Arbeitslosengeld 
ern u.t.)! 

438 RUN "!Kybernet.pam":CALL &BC6E 


L6@D81 
12968] 


L22BEJ 


165121 
174681 


LCABEI 


Laasaı 


[35B61 


LBF7A1 
LABB&1 


1024, HOMESOMPUTER 


12 "##%* VORBEREITUNGEN ##** [B626] 
20 '** Dimensionierung der Variablen ** LI@ABI 
3@ DIM san? (29) ‚prob4.(29) ‚pror# (29) ‚pros 

%(29) ‚umbb7 (29) ‚umbr 4 (29) „aufb4 (29) ‚a 

ufr% (29) ‚aufgp%.129) ‚aufgn% (29) ‚Laub 

29) ‚1qur%t297n1qug% 129) s1qus% 1297 ‚var 

%(29) ‚bevb/ (48) ‚bevr% (48) ‚bevs% (48) ‚p 

o1b% (48) ‚pols%(48) saacı 
4@ DIM san$!1B) ‚pro$(15) ‚umb$(14) ‚aufs(9 

) „1qu$ (12) ‚vnr$ (8) ‚bey$(10) ‚ap% (9) ‚r% 

(5) „sf%(5) ‚prf% (5) Juf%(5) satz 5) „IFA 

5) ‚vf4(5) „BFZ (5) ‚paf% (9) „app% (5) ‚nans 

(5) ‚snan# {5) (SBF21 
50 ‘**"Einlesen der Variablen ** EBEACI 
68 FOR i=1 TO 29:READ san (i) ‚prorä(i) ,p 

rob7(i) ‚pros%(i) ‚umbr (1) „umbb% (1) ‚au 

#r%(i) ‚aufb%(i) ‚aufgpZ(i) yaufgn%(i) ,L 

qur%ti} ‚Iqub% ti} ‚Iqus%(1) ‚Lqug% ti) „vm 

FA (A) ENEXT 153541 
7@ FOR i=1 TO 48:READ bevr%(i) ‚bevb%ti), 

bevsZ(i) ‚polb%(1) ‚pols%(i) ıNEXT CeFZEI 
80 FOR i=® 10 9:READ’ sans (1) ıNEXT 144201 
90 FOR i=® TO 1A:READ pro$(i) NEXT CaB981 
108 FOR i=@ TO 8:READ auf$(i) NEXT LEB641 
11@ FOR i=® TO 11:1READ Iqus(i) NEXT E7BE&I 
120 FOR i=@ TO 7:READ vmr$(i) NEXT 157983 
130 FOR i=® TO 9:READ bevs(i) NEXT [A76E1 
14@ FOR i=@ TO 1S:READ umb$ (i) :NEXT CA&DA] 
150 FOR i=2 TO S:READ feld$(i) ıNEXT 1202A3 
160 '** Farben und anderes x* LFDFAI 
170 halt=BB18 CBE&2] 
180 ZONE 48 ED6F23 
190 RANDOMIZE (TIME+1BB00B) x2@ [40763 
200 DEREN gECLITSTRINGSCL ‚61 DEF FN he 

1)=STRINGE (1,32) ıw6="Zuschuv: " caBc21 


218 OPENOUT"dummy "MEMORY HIMEM-13 CLOSEO 


UT L34EC1 


220 ON ERROR GOTO 4508 C2A7A] 
2380 INK B,1@: INK 1,26: INK 2,15: INK 3,8 18888) 
240 '*#%* START ##%* LFE4EI 
250 PEN 2:LOCATE 1,23: PRINT"Bitte":PEN 3 
LOCATE 7,23: PRINT"DRICKEN" : PEN 2:10 
CATE 15,25: PRINT"Sie nach jedem CH 
RS (34) 5 "Bild"; CHR$ (34) e s33PEN 
3:L0OCATE 1,24: PRINT"TASTE":PEN Z:LOC 
ATE 6,24: PRINT", um weiterzukommen!" 
tEBSCı 
260 CALL halt LCFSA] 
270 '** Die Spieler ** L7B9C)] 
288 CLS:PRINT"Wollen Sie einen Spielstan 
d laden (j/n)?"; [3DAAI 
290 a$=INKEY$: a$=LOWER$ (as): IF as<>"j"AN 
D asc>"n"THEN 290 taase3 
308 PEN S:PRINT a$,,: L[3F38] 
318 IF ="j"THEN as [94BE] 
328 a$="":PRINT"Wie viele Spieler nehmen 
teil (1-5)? 180309 
330 e$=INKEY$:sp%=VAL (e$) ses="":IF sp%=@ 
OR sp%>5 THEN 3380 LEIBEI 
348 PEN S:PRINT sp%,,‚:ıPEN 2 LFEIEI 
358 PRINT"Geben Sie ihren Namen ein":PRI 
NT"(bis zu 10 Buchstaben) !", TE484] 
368 FOR i=1 TO sp%:PRINT"Spieler Nr."isı 
PEN 3:LINE INPUT nams(i) 20981 
370 IF nam$(i)=""THEN nams(i)="#. Vester 
[99F2]1 
38® nam$(i)=LEFT$ (nam$ (i) „1B) ınam$ (i)=UP 
PER$ (nam$ (i)) ısnam$ (i)=nam$(i)ıPEN 2 
ıNEXT 15316] 
390 "### START ## L195A] 
488 CLS:LOCATE 1,11: PRINT"D: Ausgangssi 
tuation, die nun vorg: >stellt wir 
d, ist Br alle Mitspi <A>gleich. 
LB7DEI 
418 CALL halt tE@34] 
420 n=1:nam$(n) :GOSUB 1898: nam$ (n)=sn 
ams(n) 145701 
438 '** Entscheidungsfeld ** [CEsAI 
449 FOR n=1 TO sp%ır%in)=Brapin)=Bisf%in 
J=lsprf%tn)=i2:uf%(n)=13:afkin)=Bılf 
Zn) =1Bı vf%in)=2@:bf% (n)=21:pafkin)= 
11:NEXT e; [8682] 
450 FOR n=1 TO sp% [848E] 
468 IF nam$(n)=""THEN 1858 LA1SCI 
479 raln)erkin)+ L9aaBı 
488 ap (n)=ap (n) /1@BQ@B: ap (n)=ap (n)+pros% 
(prf%in))+lqusi (1% (n))+bevs% (bf% (n) 
)+pals%(pof%(n)):IF ap(n)>2B THEN ap 
(n)=28 [C4D2] 
490 ap (n)=ap (n)*10B000 L67CAI 
5@8 MODE 1:PAPER @:BORDER 28: PEN 2 t1c2c1 
518 PRINT CHR$(2) TaBCEI 
520 WINDOW#1,2,39,5,15:WINDOW#2,1,1@,17, 
25: WINDOWRS, 12 21,17,25:WINDOW#4,23, 
31,17,25:WINDOW#S,33,48,17,25 LATAAI 
538 FOR i=1 TO S:PAPER#i ,1:PEN#i ,2:NEXT L[F3923 
548 LOCATE 1,4: PRINT STRING$ (40,287); .., 
7313333 ,STRING$S (40,207); LFFFAI 


55@ FOR i=5 TO 15:LOCATE 1,i:PRINT CHR$( 
2@7)5:LOCATE 4@,i:PRINT CHR$(207)5:N 
EXT 

FOR i=17 TO 25:LOCATE 11,i:PRINT CHR 
$(287)5:LOCATE 22,i:PRINT CHR$ (207); 
:LOCATE 32,i:PRINT CHR$ (297) 5: NEXT 
LOCATE 1@,1:PRINT"Sie haben":GOSUB 3 
638: LOCATE 28,1:PRINT"DM":LOCATE 5,2 
:PRINT"f}r Investitionen zur Verf}gu 


568 


57@ 


ng. 
PRINT"Entscheiden Sie, wo Sie aktiv 


werden! 
PRINT#1 „CHR$ (24) jnam$ (n) ;CHR$ (24) 
:PRINT#1 , "SANIERUNG" LO 


Er] 


sa 
&@@ LOCATE#1,15, 
CATENL „15,2: PRINTHL,FN 947) :PAPERHI 
619 &OSUB SBQB:PRINT#1,"Die Umweltbelast 
ung durch die Produk- tion ist mamen 
tan "}unb$ (umbb% (uf%(n)) 4". "ıGOSUB 
PRINT#1, "Erfolgreiche Gegenma”nahmen 
sind etwa Umweltschutz, Recycling, 
sanfte Ener 


Amis 'n, Humanisierung der Arb 


620 


630 
eitswelt<S$>usw. So werden z.B. nat)r 
liche Kr 

PRINT#1,"1{ufe angekurbelt, die Natu 
r entgiftetu: Ihre Sanierungsbestr 
ebungen sind "jsans (sank (sf4(n))) 5". 


LOCATE#1,19,11: IF sf%tn)=29 THEN PRI 

NT#L "NICHT "ERH\HBAR"S ELSE PRINTAL, 

668 FOR i=2 TO Sı PEN#i „23 PRINT#i ‚felds(i 

I); FN gs LEN(feld$ cl II), PAPER#i „B:PR 

INT#i ,"momen‘ "NEXT 

GOSUB 3728: PRINT#2 Ras (prob% (prf%tn 

)))5:G0SUB 3820: PRINTH2,n# 

LOCATE#2,1,7: IF prf%(n)=29 THEN PRIN 

T#2, "NUR ABBAU! "z3ELSE IF prf%(n)=@ T 

HEN PRINT#2, "NUR F\RD."3 

GOSUB 3749: PRINT#3,auf$ (aufb% (af% in) 

))3:GOSUB 3848 

LOCATE#S,1,6: PRINT#S ,wE 

IF af%(n)=29 THEN LOCATEH3,1,B: PRINT 

#3,"nicht mehrsteigerbar"; 

7zU GOSUB 3750: PRINT#4 ,Iqus(lqug% (1f%(n) 
));:B0SUB 3858 

LOCATE#4 ‚1,6: PRINT#4 ‚ws 

IF 1#%(n)=29 THEN LOCATE#4,1,8:PRINT 

#4, "nicht. 'erhihbar"; 

G60SUB 3778: LOCATE#S, 1,4: PRINT#S, vmr$ 

(varitvf%tn)));3sGOSUB 35888 

LOCATE#5,1,6:PRINT#S,w$ 

IF. v#%tn)=29 THEN LOCATE#5,1,8: PRINT 

#5,"nicht<3>erhihbar"; 

FOR i=1 TO S:PAPERMi „1:NEXT 

IF sf%i(n 9 THEN 838 


640 


650 


w=1:x=27:y=11 
GOSUB 3496 
sf%in)=sf% (n) +CINT (e/100090) : feld/= 
d4:uf% in) 


#%(n) :GOSUB 3650: sf7, (n)=f 
zuf% (n)-san% (sf%{n))ıfeld%= 
SUB 3658: uf% (n)=feld%: feldy=®, 
we2ıx=1ıy=6& 

GOSUB 3498 

IF e=® THEN 918 

LOCATE#2, 1,8: PRINT#2,CHR$ (24) 
R£(24) 3 

(24) 


"F"CH 
Irderung/" ; CHR$ (24) 3 "A" 3 CHR$ 
"bbau? 
LOCATE#2,8,9:a$=INKEY$: a$=UPPER$ (a$) 
:PRINT#2,a% 
IF as<>"F"AND as<>"A"OR(prf%in)=@ AN 


D a$="A")OR(prf%(n)=29 AND as: ITH 
ENITBCHTERZ 73 PRINT#2,FN h$(1) 1G0T 
IF a$="F"THEN prf%(n)=prf%(n)+CINT(e 
/10@Q8B) ELSE prf%(n)=prf%(n)-CINT (e/ 
100000) 

feld%=prf% (n) :BOSUB 365B: prf%(n)=fel 
di: feld4=Q:e=@ 


918 IF af%tn)=29 THEN 958 

920 w=Iıx=1:y=7 

930 GOSUB 3490 

948 af%,(n)=af% in) +CINT (e/100Q00) : feld/= 
#%(n):GOSUB 3658: af% (n)=feld%: feld”: 
G:e=2 

958 IF 1f%tn)=29 THEN 998 

760 w=4 

978 GOSUB 3498 

988 1f%(n)=1f%(n)+CINT (e/10BQ@D) :feldi=1 
#%(n) :GOSUB 3658: 1#%(n)=feld: 1di= 


=a 
IF vf%(n)=29 THEN 1848 

w=5 

GOSUB 3498 
vf%(n)=vf% (n)+CINT (e/100000) : feld? 
vf%({n):GOSUB 3458: vf4 (n)=feldi:feld 


998 
1008 
1818 
1028 


Listing 2. Das Hauptprogramm der Simulation »Kybernetien« 


LECB61 


LE2B41 


119723 
LSC1E] 
[20A@] 


[64201 


[D3F@] 


LF7DAI 


TBE@A] 


LS37E1 


137661 


L3B2C1 
c82A21 


ECOBAI 


C2B94] 
LAADBI 


163941 


18686] 
LABDA] 


LAS7CI 


L77781 
[B8E41 


L8CcS5A] 
18792] 
ECBBCI 
L9CBEI 
L1C52] 


L92FC] 
Li1CEI 
[DES8] 
EBABEI 


LC2821 
15688] 


COBB4] 


E4B7C1 


LiDca) 
LFS92] 
L&AD21 
CEDSB1 


LFEICI 
LE&BB] 
LiC4EI 
CDD&BJ 


£317C] 
ESciAl 
[82941 
[54A4] 


PD 
u ‚HOMECSOMSUTERWORLD. COM 


103 


1258 
1940 
1252 
1068 
1878 
1988 
1298 
11800 
1118 
1120 


1138 
1148 
1158 


1160 
1178 


1188 
1198 


1200 


1218 


1228 


1230 


1248 


1250 


1260 


1270 


1288 


1298 


1308 


1318 


1338 


1348 


1358 


1368 


1378 


1398 


1398 


1408 
1419 
1428 
1438 


1OAuw HOMEcoMmsUTER 


1320 I 


zw=ß:x=Q:y= 
CALL halt 

NEXT 

FOR n=1 TO sp% 

IF nam$ (n)=""THEN 3912 

IF RND>@.S THEN GOSUB 3948 

’*#** PRODUKTIONSFELD ##%* 

MODE 1:PAPER 1:BORDER 2@:PEN 2 

IF r(n)=@ THEN pr# (n)=12 

GOSUB 3780: LOCATE 16,1: PRINT feld$t 
2):LOCATE 16,2:PRINT FN g$(1B) :PRIN 
T:PAPER 8 


PRINT"Unter PRODUKTION wird hier al 
les ver-<3>standen, was mit 
PEN 3:LOCATE 6,6: PRINT"Industrie, " 


;SPACE$ (19) ; "Handwerk, 
ÜOCATE 6,7: PRINT"Landwirtschaft, Di 
enstleistungen":PEN 2 
PRINT"verbunden ist.", 
PRINT"Insgesamt ist Ihre Produktion 
zur Zeit 

PEN 3:G0SUB 3720 

PRINT SPACES(1S) spro$ (prob%(pr#%tn) 
))5"."ıPEN 2:G0SUB 3828 
a%=prob%(prf%(n))+1:0N q% GOTO 1248 
‚1260,1268, 1268, 1268, 1260, 1290, 1290 
‚1298, 1290, 1298, 1298, 1210,1218,121@ 
»1218,1218,121@,1218,1210,1218,1210@ 
‚12180 

PRINT"Gro“industri 
chende Bildin Kybernetien. 
llautomatisie- 


ist das beherrs 
Durch Vo 


PRINT"rUNg wird eine genaltige Mass 
enprodukti-an von Konsumg!tern ausg 
esto“en. 


PRINT"Entsprechend hoch ist der Roh 
an und Energieverbrauch. ":G0TO 
PRINT"Es gibt also ‚praktisch kaine 
Industrie, nur etw ndwerk und v 
ielleicht eincz>wen: g Fremdenverkeh 


PRINT"Automatis: 


rung, Massenfabrik 
ation und<2>Gro“technologien sind u 
Abekannt. *rEbro 1518 
PRINT"Die Industrie in Kybernetien 


ist momen- tan noch bescheiden, abe 

r anwach: d. 

PRINT"Viele Handwerksbetriebe wande 

Iten sicheZ>durch EinfIhrung, der Ma 
ion<2>zu Industriebetri 


PRINT"Der Fremdenverkehr ist gut en 
twickelt.":G0T0 1318 

PRINT"Mehrere Gro“industrien haben 
siedelt. Auch der Dienst 
ektor spielt eine bedeute 


wirtschaft und Handwerk d 
ben an Bedeutung verlore 


n. 
IF pror%tprf%(n))=@ AND prob%(prf%t 
n))<>14 THEN PRINT"Demgemt” hat sic 
h in der Produktion naochkeine Eigen 
dynamik entwickelt. "16070 1368 
pror%tprf%(n))=1 THEN PRINT"Eine 
gewisse Eigendynamik und die Markt 
-gesetze }ben einen leichten Zwang 
zum<S>Wachstum aus. ":G0T0 1368 
IF pror%tpr#%(n))=2 THEN PRINT"Ein 
sich verselbst{ndigender Zwang zum< 
Wachstum und die Marktgesetze tr 
ben<Szdie Produktion weiter in die 
Hihe. ":G0T0 1368 
IF pror%tprf%(n))=@ AND prob%(prf%( 
m))=14 THEN PRINT"Aussto” und Verbr 
auch von Konsumg)tern<2>halten sich 
die Wa ge; eine weitere Er- hihung 
wire unklug. ":GOTO 1368 
PRINT"Die Marktgesetze zwingen soga 
r zu einer gewissen Drosselung der 
Produktion. 


Brei -prtninn ror%tprf%tn))ıteld 
=prf%,(n) :BOSUB 365@:prf% (n)=feld%: 
feld! 


PRINT"Jegliche Produktion belastet 
in entspre-chenden Ma” die Umwelt d 
urch Abgase, Ab-"j 

PRINT"w{sser und Abw{rme. Unter Ums 
t{nden wirdRaubbau an der Natur get 
rieben. 

uf% (n)=uf% {n) +prob% (prf% {n) )ıfeld/= 
uf%(n) :GOSUB 3650: uf n)=feldä: feld 
CALL halt 

*%## UMWELTBELASTUNGSFELD #** 

IF r%{n)=@ THEN uf%in)=13 
CLS:PAPER 11G0SUB 37@@:LOCATE 13, 
PRINT"UMWELTBELASTUNG":LOCATE 13,2: 
PRINT FN g$(15):PRINT=PAPER ® 


LCOF8] 
[5B261 
[01941 
EF74A] 
L8B6A1 
[8F941 
L8ES8] 
EDD941 
LE288] 
C138C1 


L3@8A1 
[82181 
L721C1 


[78021 
EF4981 


LAICEI 
L&rac] 


LS1EC] 


EC63AJ 


[295E] 


LICF41 


L389AJ 


L4A281 


LABD21 


LES2CI 


LTAES2] 


L8BDEI 


t27BE] 


EBEIEI 


cacABı 


L8BC21 


CB29E1 


CS5AAI 


LF9A21 


[93081 


LSBBEI 


L7@FCI 


LA146] 
LC5941 
115741 
CA9S@] 


LC5981 


1448 


1458 


1468 


1478 


1480 


1498 


1508 


1518 


1520 


1538 


1540 


15580 


1568 


1578 


1588 


1590 


1608 


1610 


1628 


1638 


1648 


1658 


1668 


1678 


1680 


1698 
1708 
1718 
1728 


1738 


1748 


1758 


1768 


GOSUB S8AG: PEN S:PRINT"Die derzeiti 
ge Umweltbelastung ist":PRINT umb$( 
umbb% (uf4{nd))5"."sPEN 2:G0BUB 3918 


=umbb% (uf%(n))+1:0N q% GOTO 1550, 
1508,1508,1570,1610,1618,1618, 1618} 
1818, 1618, 1440, 1460, 1460, 1460, 1440, 
1460, 1460, 1460, 1460, 1440, 1460, 1468, 
1460, 1460, 1468 

PRINT"Die Produktionsprozesse belas 
ten durch<2>Abgase, Abwirme, Abutss 
er usw. die Um- 

PRINT"welt derartig, da” klimatisch 
e@ Ver{nde- rungen die Folge sind. D 
er Raubbau an 

PRINT"der Natur u.(. #}hren zu schw 
erwiegendenZerst rungen der Landsch 
aft und zum Zer-"; 

PRINT"schneiden nat}rlicher Kreislt 
ufe. Der<S>fortschreitende St(dteze 
rfall provoziertimmer wieder chaoti 
sche Verkehrsverh(lt-nisse. "16070 1 
650 

PRINT"Abgase und Abw(sser von Indus 
trie und{3>privaten Haushalten sind 
noch so ertrü 

PRINT"lich, da“ man sich deswegen s 
cheinbar<3>keine Sorgen zu machen b 
rauch 

PRINT"Saurer Regen wird nur ein- od 
er zweimal im Jahr festgestellt und 
wirkt daher 

PRINT“nicht beunruhigend. Die Fl}ss 
e sind zwarschmutzig, man kann aber 
noch in, ihnen<2>baden. 

PRINT"Alles in allem sieht die Welt 
noch in<3>Ordnung aus, wenn auch n 
icht mehr ganz<2>sauber.":G0T0 1688 


PRINT"Abg, 
der Indu-; 
elt noch 
PRINT"Die nat}rlichen Kreisl{ufe fu 
nktionierenund eine Zerstirung von 
Landschaften istnoch nicht sichtbar 
.":G0TO 1680 
PRINT"Vor allem durch 
Produk-<3>tionsprozes 
mwelt durch meh-"; 
PRINT"rere Faktoren unterschiedlich 
stark be- lastet. Dazu z(hlen insb 
esondere Abgase, "; 

PRINT"Abw(sser ünd Abw(rme der Fabr 
iken. Na-<2>t}rliche Kreisl(ufe in 
der Natur werden 

PRINT"gest!rt, und eine fortschreit 
ende Zer-<2>stirung von Landschafte 


Abwisser und Abw{rme 
thrden die Umw 


tsprechende 
wird die U 


n ist zu bach-ten. Raubbau de 

r Natur i „:G0TD 1458 

PRINT"Abg. r und Abwirme 

der Indu-; esitzen schon d 
arti ® 

PRINT" limatische Ver inde 


sichbemerkbar machen. 
Natuı 
andschaftszerst!rungen und d 
nende Zerfall der St{dt 
zu 

PRINT"}bersehen. Nat}rliche Kreisit 
ufe werden nachhaltig gestirt. 
PRINT"Die nat}rliche Regeneration d 
urch Gew(s-ser, Pflanzen- und Tierw 
elt kann etwaigeSch(den nur zum Tei 
1 beheben. 

PRINT"Als Folge der Umweltbelastung 
wirken<4>sich Giftbelastung, Stre” 
„ Entfremdung 

PRINT"und fehlende Naherholungsgebi 
ete negativauf die Lebensqualitit a 


rungen 


Raubba 


uff tn) =uf% (n) -umbr%(uf% tn) ) s feldi=u 
f%(n) :BOSUB 3650: uf% (n)=feld%:1lf%tn 
)=1f% tn) -umbb% (uf% in) ) efeldZ=1f% in) 
1G0SUB 36458: 1#% (n)=feld%:feld1=B 
CALL halt 

"*##* AUFKLERUNGSFELD #** 

CLS:PAPER 1:IF r(n)=@ THEN af {n)=8 
GOSUB 370@:LOCATE 16,1: PRINT felds( 
3) :LOCATE 16,2: PRINT FN g$(1B):PRIN 
T:PAPER 0 

g%=aufbZ (af%(n))+3:0N q% GOTO 1828, 
1828, 1820,1888,1880,1888,1740,1740, 
1748 

PRINT"Durch ein wohldurchdachtes Bi 
ldungs-<4>system leben in Kyberneti 
en durchweg 

PRINT"aufgekl{rte Birger, die sich 
vor alleml2>durch gesunde Lebenswei 
se, }berlegte 
PRINT"Geburtenkontrolle und sinnvol 
le Frei-(S>zeitgestaltung erfolgrei 


EFC7CI 


LFAA6] 


LDEC2I 


[18981 


CC8C41 


L7FDCI 


144721 


La7EAI 


LFIFCI 


LAB7&1 


LSECEI 


CB918] 


LE9SCI 


[86CC)9 


CEA6BI 


L7asa] 


154721 


L6BFCI 


109281 


CA7441 


ED22C1 


L@38E] 


[19083 


L7CDEI 


617541 
[BAAAI 
C1D86] 
L6F7EI 


[C5981 


L39F2] 


L2E321 


[43821 


1778 


1780 
1790 


1808 


1818 


1820 


1830 


1848 


1850 


1868 


1978 
1880 


1899 


1908 


1910 
1920 


19350 


1948 Pi 


1950 


1968 
1970 
1988 


1990 


20080 
2010 
2020 
2038 


2040 
2050 


2068 
2070 
2080 


2090 


2108 
2110 


2128 


ch selbst 
PRINT"zu verwirklichen suchen. Birg 
erinitiati-ven sch{rfen das Umweltb 
ewu“tsein und 
PRINT"zeugen von guten zwischennens 
chlichen<S3>Kontakten. 
PRINT"Entsprechend positiv wirkt si 
ch dies<4>alles auf den Gesamteindr 
uck der Lebens-"; 
PRINT"qualit(t in Kybernetien aus. 
Dies und<S>eine recht hohe Lebenser 
wartung kinnen 
PRINT"- bei entsprechender Geburten 
planung -<2>die Vermehrungsrate sta 
rk steigen lassen":G0TD 1958 
PRINT"Sinnvolle Freizeitgestaltung 
und gesundeLebensweise sind fr die 
Birger in 
PRINT"Kybernetien nahezu Fremdworte 
. Ein Um-<2>weltbewu“tsein ist kaum 
entwickelt} 
PRINTEETENS. nitiativen gibt es nic 
ht. Auch£S>eine sinnvolle Geburtenk 
ontrolle Er unbekannt. 
PRINT"Eine relativ hohe Zahl an Unf 
{llen tut<2)ein }briges, da” die du 
rchschnittliche 
PRINT"Lebenserwartung relativ gerin 
g ist. Ins-ge: amt ist damit auch di 
e Vermehrungs 
PRINT"te der Bevilkerung nur wenig 
ansteigend. ":G0T0 1958 
PRINT"Ein recht gute: 
erbunden<3?mit e: R 
Erwai 
PRINT"dung, sind & 
l{rten 


Schulwesen, v 
entsprechenden 


Hauptursachen 
vilken 


D 


innvolle Freizeitgestaltu 
in 


@ Geburtenkontrolle z 
u beobach- ten. 

PRINT"Gute zwischenmenschliche Kont 
akte und<s>vor allem die Arbeit meh 
rerer Birger- 

PRINT"initiativen lassen den Grad d 
er Aufkl{- rung weiter wachsen. Der 
ute Gesund- 

INT"heitszustand und eine ansprec 
hende Um-<2>weltgestaltung wirken s 
i tiv auf<2>die Lebensqualitt 


%tn)+aufr%laf%tn))ıfeld4=a 
#%(n) :GOSUB 3658: af% (n)=feldAslf%tn 
)=1#% (n) +aufb%(af% in) )ıfeld4=lf%(n) 
:GOSUB 3650: 1#% (n)=feld%: feld4=0 
PRINT 
IF aufgn%(af%(n))>=@ THEN 2048 
GOSUB 3778: PEN 1:PRINT"Die Vermehru 
ngsrate ist zur Zeit":PRINT vmr&(vm 
rAtvfktn))) DSUB 3888 
PRINT"Entscheiden Sie, ob Sie sie e 
rhihen "FCHRE (24) 3" CHPTSCHRECZE 
der erniedrigen ";CHRS(24) 5" (N) " 
R$(24)5" wollen! " 
as=INKEY+ı at=UPPERS (a$) 
IF as<>"H"AND as<>"N"THEN 2088 
PEN S:LOCATE 30,25:PRINT a$ıPEN 2 
IF as="N"THEN v#%(n)=vf% tn) +aufgnät 
af%(n))ıGOTO 2058 
vf%tn)=vf% in) taufgpktafktn)) 
feld4=vf%,(n) :GOSUB 3658: vf%(n)=feld 
kıfeldi=Bras="" 
CALL halt 
"x## LEBENSQUALITLTSFELD ##%* 
CLS:PAPER 1:IF r%in)=® THEN 14%41n)= 
10 
GOSUB 37@@:LOCATE 13,1: PRINT"LEBENS 
QUALITLT":LOCATE 13,2:PRINT FN g#(i 
A) :PRINT:PAPER © 
IF lqug%t1f%(n))<=® THEN PEN 3 ELSE 
PEN 1 
GOSUB 3750: PRINT"Die Lebensqualitit 
„die man in Kyberne- tien varfinde 
ist nonentan "slqus(Taugz(1#%(n) 
SEN PEN 2rebsub Se: 
a%=lqug%(1f%(n))+11:0N q% GOTO 2130 
‚2130,2138,215@0,2138,2138,2130,2158 
‚2130, 2340, 2340, 2290, 2230,2230, 2188 
;2188 
PRINT"Sichtbar ist das vor allem in 
der Wohn- qualitits Wohnsilos ohne 
Gr’n auf der 
PRINT"einen Seite, wenige gro“artig 
e Villen<Smit Privatparks auf der 
anderen Seite. 
PRINT”<S>0b die Arbeit den Menschen 
einen<3>Sinn gibt, wird nicht gefr 
agt; Erho- 
PRINT"lungsmiglichkeiten durch sinn 


[S5AS81 


[5F26] 
[12381 


[868C1 


LEABa1 


LF3081 


[Z1EE1 


[BC421 


CBDBEI 


[7662] 


196081 
C9B4E1 


L716E] 


115881 


L33DEI 
LAF9BI1 


L87CE] 


L36EEI 


C18881 


C1DSC1 
COBFAI 
[6E64] 


[80261 


CF498] 
CD4941 
[7E64] 
CSAFAI 


CBBS6] 
12C84] 


LEADA] 
LCE9AI 
EFFE4] 
1D47C1 
C3DC81 
L7BC41 
L72FEI 


1147A1 


CABDCI 


187A61 


135281 


volle Frei-zeitangebote sind nicht 
gegeben. 

217@ PRINT"Insgesamt ist es daher nicht 
verwunder- lich, da” die Gesundheit 

der meisten<4>Bewohner Kybernetien 
s im Argen liegt. ",:B0T0 2390 

2188 PRINT"Die meisten Birger k!nnen als 
o einer<4>sinnvollen Ärbeit nachgeh 
en. Fir ihre 

219@ PRINT"Freizeit stehen zahlreiche Na 
herholungs-gebiete und eine gro“e A 
uswahl an inter‘ 

22@® PRINT"essanten Freizeitangehoten zu 
r Verf}gung<6>Die Wohnungen sind fa 
miliengerec! 

221@ PRINT"und gro“z}gig gebaut, wobei d 
ie Wohnge- biete generell in verkeh 
rsberuhigten Zo-"; 

222® PRINT"nen liegen. Gr’nfl{chen und p 
tdagogisch durchdachte Spielpl{tze 
machen die Wohn-bereiche zusttzlich 

attraktiv." ,:GOTO 2390 

2238 PRINT"Es 1{”t sich also in Kybernet 
ien recht<2>gut leben. Die meisten 
B}rger nennen 

224@ PRINT"gro“z)gi durchdacht gebaut 
e Wohnungenihr eigen, die in nett a 

ngelegten Sied 

INT"lungen liegen. Ausgesprochene 
Wohnsilos sind selten zu finden. 
224® PRINT"Die Auswahl an Freizeitangebo 
ten und dieAnzahl der Naherholungsg 
ebiete gen)gen 

227@ PRINT"im allgemeinen f}r die Rekrea 
tion der<S>Bev!lkerung, die auch - 
zumindest zum 

228@ PRINT"Gro*teil - einen Sinn in ihre 
r_Arbeit<3?sehen kann. ":GOTO 2398 

PRINT"Das meisten B} 

ehen 


z zufrieden sind. Da: 
joch nicht, da” nicht e 


Noch gibt 
es zu vie-le Wohnsilos mit zu weni 
en Spielpl (t- 

232@ PRINT"zen. Echte Naherholungsgebiet 
e sind nochzu selten, und das Freiz 
eitangebot ist 

2338 PRINT"streckenweise noch dIrftig. A 
1s Folge<3>davon ist der Gesundheit 
szustand vieler Bewohner nicht der 
beste. ",:60T0 2398 

2548 PRINT"Mit anderen Worten m)ssen vie 
le - zu<ä>viele - Bewohner Kybernet 
iens einer Ar- 

235@ PRINT"beit nachgehen, die sie nicht 

erf)11t.<2>Ihre Rekreationsmiglich 

._,_ keiten in Nah- 

236@ PRINT"erholungsgebieten und durch e 
ntsprechen-de Freizeitangebote sind 

recht begrenzt."; 

2378 PRINT"Auch die Wohnungen sind bei v 
ielen B)r- gern nicht so gestaltet, 

da” sich 

238@ FRINT"darin hundertprozentig wahlf} 
hlen kin-<2>nen. In vielen Bereiche 
n des Alltagsg231 ”t die Sicherheit 

zu wInschen 

2398 IF RATTE DR cqubitlt%in) 
)=@ AND Iqug%(1#%(n))=-1) THEN 2450 


248@ IF Iqub%(1f%(n))>@ THEN IF Iqug%t1f 
%{n))>@ THEN 2458 ELSE 2470 

241@ PRINT"Die Konsequenz ist, da“ eine 
gewisse<4>Wohlstandss(ttigung der B 
$rger die An- 

242@ PRINT"zahl_der Kinder in den Famili 
en gering<2>sein 1{”t.":G0TO 2478 

2438 PRINT"Diese Verhtltnisse motivieren 
die Bewoh-ner Kybernetiens verst in 
dlicherweise 

244@ PRINT"nicht sehr, Kinder in diese W 
elt zu set-zen."iG0TO 2478 

245@ PRINT"Kinder sind darum auch willko 
mmen;<&>Krankheiten sind nicht so g 
ravierend - 

2468 PRINT"all das 1{”t die Vermehrungsr 
ate leicht steigen." 

2478 14%, (n)=1f% (n)+lqur% (14% 1n))zfeld4=1 
#4 (n) :GOSUB 3650: 1f% (n)=feld% 

2488 vf%(n)=vf%(n)+lqub%(1#%n)) efeldi=v 
#20) :B0SUB 3656: vfAtn)=teldk: feldı 


Listing 2. Das Hauptprogramm der Simulation 
»Kybernetien« (Fortsetzung) 


L@1AB1 


EBDBB1 


EF1A6] 


LS6EC1 


152181 


LAFSBI 


LAsS5®] 


C9B@CI 


LIFE&I 
LACDEI 


cD1141 


[70061 
LOS6E1 


CiBSC9 


Lıaaaı 


CBABCI 


11794] 


teF@8] 


105681 


10742] 


C497A1 


C175C1 


L57E0] 


LA9661 
[3988] 


C8542] 
caacal 


EFC6EI 
LBESB] 


LD74E3 
La6A21 
[97663 


L64E01 


HOMECOMPUTERF 


105 


=—— ——_ —— ———— 
— — _ | 

2498 CALL halt LDDAB1 2948 PEN#1,1:LOCATE#1,1,15:PRINT#1,"Wall 

2500 "*** VERMEHRUNGSRATEN-/BEV\LKERUNGS en Sie den<6>Spielstand "CHR$(24)"s 
FELD ##* LASaA1 "CHRS (24) "peichern";:LOCATE#1 ,1,17: 

251@ CLS:PAPER 1:IF r%(n)=® THEN vf%(n)= PRINT#1,"oder "CHR$ 124) "WCHR$ (24) " 
2a L768E1 eiterspielen? [74881 

2520 GOSUB 37@@:LOCATE 16, 1:PRINT"BEV\LK 2958 s$=INKEY$: S$=UPPER$(s$) IF ss<>"S"A 
ERUNG":LOCATE 16,2:PRINT FN g£(11 ND s$<>"W"THEN 2958 LaABAI 

APER 2 LiDFCI 2960 LOCATE#1,28,18:PRINT#1,5$;:FOR i=1 

2538 jeburten und Sterbef{lle sawi TO 308: NEXT [B18@] 
e Unf{lle, Zu- und Abwanderungen ma 2978 " THEN GOSUB 4528 LAFCCI 
chen — im Ver- tBeaaI | 2980 {5A161 

2548 PRINT"gleich zum jeweils vorherigen 2998 IF as(n)="n"THEN nams (n)="":msp? 

Jahr - dieVermehrungsrate der Bevi P%+1 13704] 
lkerung aus. CEEZEI 3008 attn)="" [72501 

2550 GOSUB S77@:PRINT"Sie ist zur Zeit " 3@1D NEXT CEFA61 
zvmr$(vmri(vf%(n)))3".":GOSUB SB8B LFEBBI 302@ IF msp%=sp% THEN 3848 [75881 

2568 bf% (n)=bf% in) +varZ tvf% {n) )*bevrä(bf 3038 FOR i=i TD sp%:60T0 45@: NEXT EDFABI 
%n)) :feld%=bf%(n):GOSUB 367 S@aQ msp% tES921 
I=feld4:1#%(n)=1f% (n)-bevb2 (b 3Q5B '*** SCHLUSSBILANZ [57683 
:feld%=1f% (n) :GOSUB 3658: 3062 FOR n=1_TO sp%:nam$ (n)=snam$ (n) LA2BE1 
di: feld4=B L95BAJ 3278 CLS:PAPER 1:50SUB 3700: LOCATE 14 

2570 IF r%{n)=® THEN bfZ{n)=21 LABS61 PRINT"SCHLUSSBILANZ":LOCATE 14, 

2588 IF_(vmr%tvf%(m))>1 AND bevbZtbf%(n) INT FN g$(13) =PRINT:PAPER ® [88422 
I%3) OR_(vmr%tvf%in))<2 AND bevb%(b 3088 PRINT"Ihre Sanierungsanstrengungen 
#%{n))>2) THEN 2628 L3BA8] sind" ‚sans (san% (sf%{n))); q LIASAI 

2578 SOSUB 3788 L46041 3098 GOSUB’372@:PRINT"Die Produktion ist 

2628 FRINT"Das hat nattrlich entsprechen ":pro$(prob% (pr#%{n)))5".",„ıGOSUB 
de Auswir- kungen auf Bevilkerungsd 3828 T&6ACI 
ichte und [B29C1 3128 SOSUB SBAQ:PRINT"Die Umweltbelastun 

2618 PRINT"-wachstum, so da” die Bevilke g ist insgesamt" ‚umb$ (umbb% (uf% {n)) 
rung zur<3>Zeit ";bev$(tbevb%tbf% in) )3".",,:G0SUB 3718 177203 
));* ist.":60T0 2638 L7DSAJ 3118 GÜSUB’374@:PRINT"Die Aufkl£rung der 

2428 GOSUB 3780: PRINT"Trotzdem ist die B Bev!lkerung ist" ‚auf$(aufb%(af% (n) 
evilkerung zur Zeit"sPRINT"noch "jb 2)5".",,:GOSUB 3848 LDaaa1 
ev$ (bevb% (bf%{n) )) 5". L27F8] 3128 G0SUB 3778: PRINT"Die Vermehrungsrat 

2630 GOSUB 3898 L4EBEI 8 ist_";vmr$(varktv#kin)))5".",,260 

264@ IF NOT (bevb%(bf%(n))>2 AND bevbZ(b#f SUB S888 L7B5@3 
Ain))<S)THEN 2648 LF2E@I 3138 GOSUB 3780: PRINT"Die Bev!lkerungsza 

265@ PRINT"F}r viele ist diese Bevilkeru hl ist" ‚bevs(bevb% (bf4 {nm} )) 5 ".",,:6 
ngsdichte<2>schon zu hoch, so da” d OSUB_ 3898 L77161 
ie Lebensqualitttleicht gesenkt wir 3148 GOSUB 3750: PRINT"Insgesamt ist die 
d.":6070 2718 LFA92] Lebensqualitit inc bernetien "51 

2660 IF bevb%tbfZ{n))<5 THEN 2710 [9B101 qu$(1qug%(1f%{n))) »,:G0SUB 3858 

2678 PRINT"Diese hohe Bevilkerungszahl b 1BD28] 
edeutet<4>nat}rlich eine gro“e Mens 3158 PEN S:PRINT"In Punkten ausgedr3ckt 
chendichte. L7aBE1 wird daher Ihre<2>Erfolgsbilanz als 

2688 PRINT"Der Altersaufbau ist ung’nsti Politiker mit ";polb% (pof% {n)) "von 
9, die<5>Sozialstruktur schwierig, ","37 Punkten bewertet. ":PEN 2 L1D7A1 
Ärbeitspl(tze sind relativ knapp. L[3196J | 3168 CÄLL halt LESIEI 

2698 PRINT"Die Folge davon sind Konkurre 317@ LOCATE 1,3:PRINT CHR$(2@) :LOCATE 1, 
nzkampf ‚<S>G}terverknappung und ein 4 158221 

relativ hoher tD@121 | 3188 spp (n)=(polb% (pof% {n) )+3#1qugZ (14% 

2708 PRINT"Prozentsatz an Arbeitslosen: n)))*1Q: spp (n)=spp (n) / {rA(n)+3) ECDSEI 
insgesamt<2>eine Verschlechterung d 3198 IF spp(n) >28 THEN 3248 ELSE IF spp( 
er Lebensqualittt"; L@E7@1 n)>15 THEN 327@ ELSE IF spp(n)>1Q T 

271@ CALL halt TE79E1 HEN 3308 ELSE IF spp (n) >5_THEN 3348 

272@ IF r%(n)=® THEN RETURN [23581 ELSE IF spp(n)>=@ THEN 337@ ECEEBI 

2738 ’*** POLITIKFELD #** to1ac] | 3202 PRINT"Sie haben durch Ihre Entschei 

2742 CLS:PAPER 1:WINDOW#1,21,42,8,25:PAP dungen gan-zen Teilen der Bevilkeru 
ER#H1 ,DEPEN#1,2 TA6FEI ng die Lebens- [6EB41 

275@ GOSUB S7@@:LÖCATE 12,1:PRINT"POLITI 321@ PRINT"grundlage entzogen!" "Seien S 
SCHE BILANZ":LOCATE i2,2:PRINT FN q ie bei einem nichsten Spiel etwasvo 
$t17) :PRINT=PAPER ® 151081 rsichtiger - es sei denn, Sie wollt 

2768 PRINT"Sie haben jetzt das ";USING"# en EDA42] 
#"3r%tn)zLOCATE 23,43PRINT". Jahr d 322@ PRINT"nur einmal die Grenzen der me 
urch Inve-"; [91521 nschlichen Entscheidungsfreiheit ke 

277@ PRINT"stitionen politisch weitreich nnenlernen und Lıaacı 
ende Ent-<2>scheidungen getroffen. [8274] 3252 PRINT"haben dabei erfahren, da” die 

2780 PRINT#1,"Die Bewertung Ihres politi dann noch migliche Freiheit auf Nu 
schen Be-<5>schicks, die Lebens-qua 11 sinkt.":6010 3408 L739C1 
litt in Kyberne-tien bis heute zu< 3248 PRINT"Sie sind ein wahres Genie! De 
S2verbessern, sehen<3>Sie in dem Di r Klub der kybernetischen Denker ni 
agramn. LABSCI amt Sie mit [BEC21 

2798 ORIGIN 0,0,0,298,298,0 TADS58J | 3258 PRINT"gro“em Vergn’gen in seine Rei 

2808 CLG 1:PEN 2 EFBaQI hen auf.<3>Wenn nur Leute wie Sie a 

281@ ORIGIN 168,80:MOVE-15,9:DRAW 129,0, n_den entschei- LESA4] 
2:MOVE 2,-75:DRAW 0,190,2 LB72A] | 3268 PRINT"denden Stellen s{“en, wIrden 

2820 TAG LBF903 die kommen-den Generationen mit gr! 

2838 MOVE-28,5:PRINT"@"; :MOVE-160,-60: ”erer Freude an die Taten Ihrer Vor 
INT"mi serabel "; :MOVE-145,-3@: PRIN zur>ckdenken.":50T0 3408 LAZACI 
schlecht"; :MOVE-1@5,65: PRINT" m{”i 3278 ie haben das Ziel mit Bravau 

MOVE-68 , 139: PRINT"qut" r erreicht.Durch kluge Entscheidung 
190: PRINT"sehr gut"; 122QE1 en und voraus- L&B961 

2848 TAGOFF [aaanı | 3288 PRINT"schauendes Steuern haben Sie 

285@ pof% (n)=pof% tn) +1qug4(1f4n)):feld% den Zustanddes Systems um einiges v 
=pof# (n) :GOSUB 3678: pof% in)=feldZ: erbessert. Sie LDD64J 
eld4=@ LASBE1 | 329@ PRINT"d3rfen Sich als Kandidat #}r 

2868 IF pof%in)>=11_THEN h=198* (pof% (n)- den Klub<3>der kybernetischen Denke 
11)/37 ELSE _h=75*(pof% (n)-11)/1@ t21B81 r_f3hlen. ":GOTO 3408 L71AQ1 

287@ FOR i=1 TO S@:MOVE 3Q+1 ,Q:DRAWR B,h 3388 PRINT"Sie sind mit den Rıckwirkunge 
33: NEXT LCAEZI n des Simu-lationsspieles einigerma 

288@ PEN#1,3:LOCATE#1,1,15:PRINT#1,"Woll “en gut zurecht-"; EB2A&1 
en Sie es ein<S>weiteres Jahr wagen 331@ PRINT"gekommen, wenn auch im Schnit 

13/m)? CDEQ43 t die ÄAus- gangsbedingungen nicht g 

2898 a${n)=INKEY$: a$ (n)=LOWER$ (a$ (n) )z IF erade umwerfend CF1941 

astn)<>"j"AND a$(n)<>"n"THEN 2898 LFEDEI | 3328 PRINT"verbessert worden sind. Immer 

2900 LOCATE#1,16,18:PRINT#1,a$(n) [95543 hin haben<2>Sie eine stabile Gleich 

2918 FOR i=1 TO ABG:NEXT [B8741 gewichtslage er- 100561 

2920 IF n<sp% THEN 2990 134221 isti i i 

2930 FOR i=8 TO 2:LODATE#1 ,1,15+i:PRINT# Listing 2. Das Hauptprogramm der Simulation 
1,FN h#(20) 3 :NEXT [832E3 »Kybernetien« (Fortsetzung) 
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Die Schneider-Sonderhefte 
von Happy-Compufter: 
eine runde Sache 


Schneider 2 

Wichtige Tips& Tricks für An- 
fänger und Fortgeschrittenene. 
Grundlagen: So programmiert 
man 3D-Grafik. Die interessan- 
testen Firmware-Routinen., 


Schneider 1 

Alle’ Schneider-Computer im 
Vergleich. Grafik: »Geheim- 
codes« zur Bildschirmgestal- 
tung. Listing: Malen wie auf 
einer Leinwand, Musik und 


Sound selbst programmieren. 
Anwendungen: Echtzeitverar- 
beitung auf dem Schneider 
‚Assembler-Disassembler für 


I 


Preiswert selbstgebaut: RS232- 
Schnittstelle mit maßgeschnei- 

dertem DFÜ-Programm, Hard- 

ware-Einkaufstips: Drucker, 


Floppy-Laufwerke und Spei- 


den CPC464. ; 
= [de) chererweiterungen. 
se 


Lernen Sie den ersten Personal 
Computer von Schneider ken- 
nen. Wir berichten über die 
CP/M plus-Funktionen BIOS 
und BDOS, Weitere Hilfe gibt 


eingehefteten Zahlkarte im vorliegenden Sonderheft 


Schneider 3 

Eine ausführliche Beschreibung 
der Hardware aller CPC, Der 
Basic-Kurs für Anfänger hilft 
bel den ersten Programmier- 
schritten. Fortgeschrittene fin- 
den eine Einführung in CP/M. 
Spiele, Anwendungen sowie 
Grafik und ein Funktionsplot 
Programm gestalten dieses 
Heft zu einer int ;anten und 
herausfordernden Begleitlek- 
füre. 


es mit den Basic-Erklärungen. 
Ein »Flugzeug in Not sorgt für 
eih sprammendesiliting. Wir 
zeigen, wie Sie mit der Pro- 
grammiersprache »Logo« Mu- 
sik machen können. 


Schneider 4 

Einsteigern hilft eine ausführli 
che Basieprogrammierung so- 
wie Nützliches zu Sound und 
Grafik auf Schneider CPCs. 
Ebenso Kaufberatung und 
Grundlagen zu Diskettenlauf- 
werken. Wieder gibt es jede 
‚Menge Tips& Tricks, Spitzen- 
spiele, Grafik und Anwen- 
dungslistings, 


Nutzen Sie die Bestellmöglichkeit 
der Schneider-Sonderhefte 1 bis 5 mit der 


von »Happy-Computer«! 
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3339 


3348 


3350 


3368 


3370 


3388 


3390 


3408 
3418 
3420 
3430 


3448 


3458 
3460 
3470 
3480 
3498 
SssoB 
3510 
3520 


3530 
3540 


3550 
3560 


3570 
3588 


3598 
E73] 
3618 
3628 
3630 
3648 
3650 


3668 
3678 


3688 
3698 
3708 
3710 
3728 
3730 
3748 


3758 


3768 


3778 
3788 


3798 
s800 


3818 
3820 


3838 
3848 


3358 
3848 


PRINT"reicht, die den Stand einer q 
ewissen Le-bensqualittt auch fr di 
e_Zukunft<7>sichert.":50T0 3488 
PRINT"Sie haben Sich f}r den Anfang 
nicht<5>schlecht geschlagen, denke 
n aber wahr- 

PRINT“scheinlich noch zu kurzsichti 
g. Sie<5>kinnen daher das Ergebnis 
mit etwas 

PRINT"weitsichtigeren Entscheidunge 
n im n{ch- sten Spiel sicher verbes 
sern. ":G0TO 3408 

PRINT"Um zu einem guten Steuermann 
zu werden, m)ssen Sie lernen, vorau 
sschauender zu 

PRINT"denken und Wechselwirkungen z 
u ber}ck-(2>sichtigen. Dann werden 
Ihre Entscheidun-"; 

PRINT"gen weniger unreflektiert bzw 
. weniger<2>heftig, und Sie lernen 
kurzsichtige,<4)}bersteuerte Reakti 
onen vermeid 
IF sp%>1 THEN CALL halt 

NEXT 

IF sp%>1 THEN END 

PEN S:LOCATE 1,24:PRINT"Wollen Sie 
es noch einmal versuchen<9> (j/n)? 
a$=INKEY$: a$=LOWER$ (as): IF as 


N 3448 

LOCATE 25: PRINT as 

IF as="j"tHEN a$="":G0T0 440 
END 


"##%* ROUTINEN #* 
'** Zuschu“-Routine #* 

LOCATEHW KsyaRRINTAREN hs(@)ı 

FOR k=1 10’7:CALL &BBAB 
IF_INKEY(79)=® THEN LOCATE#wW,x+k-2, 
:PRINT#w,FN h#(1):k=k-2:G0T0 3568 
F INKEY(16)=® THEN k=k-1:60T0 3568 


IF INKEY(18)=® OR INKEY(6)=@ THEN z 
Fik)=".D LOCHTERMTNORZITVIPRINTANG 


z*(k)si=k-1:k=71G010 356 
z$ (k) =INKEY#: LOCATEHw x +k-1 „ys PRINT 
#nnzsck) 

NEXT 


IF 1=® AND z$(1)<>".@" THEN 1 
FOR k=1 TO 1:IF z#ck)<>"@" AND VALL 
z#(k))=D THEN z(k)=@ ELSE z(k)=VAL( 
KI)RLR“ (IK) 


+2 (k)ız (k)=O:z$ck)="":NEXTIl=O 
IF e>ap(n)THEN e=B:PEN#w,3:LOCATENn 
U_VIEL!"5:FOR i=1 TO 


„% „yEPRINTAw 
768: NEXT : PENMW 23 60TO 5490 
FOR i=1_TO 7@@:NEXT:PEN#w, 1: LOCATER 
w,x ,yEPRINTAW,EN ht (8), + PENAn 2 
PENdw, 33 LOCATE#w „x „ys PRINTHw, 05 "DM" 


apın)=a (n)-e:PEN 3:LOCATE 2@,1:PRI 
NT USING" #444" ap in) PEN 23 RETUR 
N 


’** Fehler-Routine ** 
IF feld%<1 THEN feld/=1 ELSE IF fel 
d4>29 THEN feld4=29 

RETURN 

IF feld4<i THEN feld%=1 ELSE IF fel 
d%>48 THEN feld%=48 

RETURN 

"xx Namens-Rautine ##* 

LOCATE 1,1:PRINT CHR$ (24) inams(n);C 
HR$ (24) : RETURN 

’** Felder-Angleichungs-Routine #* 
IF prob%(prf%(n))=18 THEN prob (prf 
%(n))=11 ELSE IF prob%(pr#% (n))=22 
THEN prob% (pr#% (nd )=13 

RETURN 

aufbä (af% (n) =aufbZ (af tn) )+2:RETUR 
IF 1gugZ (1 #2 m) )r-1Q OR Iqugzilf%in 
))=-8 THEN Iqug% (1f4n))=B.5rlqug%C 
144m) 

1aug” 14% (n) )=lqugk (LA (n)) +6: RETUR 


var%(v#% (n) )=vmr%(v#%(n) ) +4: RETURN 
IF bevbä(bf%(n))=1Q THEN bevbä(bf% 
nd)= 

RETURN 

IF umbb% (uf%(n))=14 THEN umbb% (uf% 
nm))=9 ELSE IF umbb% (uf%(n))=18 THEN 
umbb% (uf% (n))=11 ELSE IF umbb%tuf% 
{n))=25 THEN umbb% (uf% in) )=13 
RETURN 

IF prab%tprf%(n))=11 THEN prob%tprf 
%tn))=18 ELSE IF prob% (prf%{n))=13 
THEN prob% (prf% (n))=22 

RETURN 

Aufbilafz(n) )=aufbä(af%(n) )-ZIRETUR 
1qug%t1f% (m) )=1qugk (14% (n))-& 

IF Iqug%t1f%4{n))=-5 OR Iqug% (14% (n) 


EBAFCI 


LEF@AI 


LF9@B1 


L3BA41 


EC9BAI 


C5@B8J 


L9C741 
CSFC2] 
ESB4E] 
LA9AAI 


L@D201 
[59821 
[5148] 
[9418] 
LD@BAI 
[4380] 
[C5241 
[60283 
L9EFZI 
138441 


175881 


L712A1 
CDDB®] 


LFASAI 
ECB2AI 


15738] 
E7FAEI 
tacac] 
LED941 
[2282] 
LE12CI 
EDDcAI 


LSF7EI 
L8B9E1 


[D786]1 
EBFA2] 
ESEECI 
LABACI 
LE7CB] 
L75D8] 
LAEFAI 


CA248] 


LABD21 


L44E41 
[22741 


LD34C1 
LFAA&I 


ESCB6] 
LC7981 


E9BDAI 
LAS9CI 


LAD46] 
[44B4] 


3878 
E::7] 
3898 


3982 
3910 


3920 
3939 
3948 
3950 
3760 


3978 


788 


3998 


a0a0 


4010 


4020 


4050 


4048 


4058 


4068 


4070 


4088 


4098 


4108 


4110 


4120 


4138 


4140 


)554 THEN 1qugl(1#% (nm) )=2elqugktif% 
n)) 

RETURN 
var%evf% (n) )=vmr 
IF bevb%(bf% (n) 
))=1B 

RETURN 

IF umbb% (uf%(n))=9_THEN umbb% (uf% (n 
))=14 ELSE IF umbb% (uf%(n))=11 THEN 
umbb% (uf%(n))=18 ELSE IF umbb% (uf% 
(n))=13 THEN umbb% (uf%(n) )=25 
RETURN 

"**# EREIGNISKARTE *%** 

MODE 1:PAPER @:BORDER 2@,11:PEN 1 
GOSUB_ 3700 

LOCATE 7,7: PRINT"EIN UNERWARTETES E 
REIGNIS"!LOCATE 7,8:PRINT FN g#(25) 
:PEN 2 

LOCATE 1,11: 
OD 28#1 

ON 2% GOTO 4278,4250,4290,4150,4008 
»4160,4280,4070, 4230, 4030 ,4820,4138 
‚4300,4180,4010,4240,4140,4310,4040 
4050 ,4060, 3990, 4120,4110,4210,4190 
A000, 4108 

PRINT"In diesem Jahr waren die Smog 
-Alarme derWarnstufen 1 und 2 so za 
hlreich, da“ dieProduktion stark be 
gintrchtigt wurde. "spZ=-3: 5070 489 


FRINT"Um Regierung und Gewerkschaft 
en unter<3>Druck zu setzen, drossel 
n eine ganze<4>Reihe von Unternehme 
rn die Produktion. ":p%4=-3:60T0 4098 


vf%n))-4:RETURN 
THEN bevb% (bf% (n 


%=FIX (RND#108) 


1=2% M 


PRINT"Ein achtt{giger Generalstreik 
wirkt sichstark hemmend auf die Pr 
oduktion insge- samt aus. ":p4=-3:G0 
TO 4978 

PRINT"Der starke Kursverfall des Do 
llars er-<2>schwert den Expart.","D 
ie Produktion sinkt daher etwas ab. 
"3p%=-2:G0T0 4890 


PRINT"Die gro“en Kursschwankungen d 
es Doll verunsichern viele Produ 
zenten Die Produktion wird leich 


t_gedrosselt. ":p%=-2:60T0 4098 
PRINT"Di preise wurden drastisch 
erhiht.","Um die Mehrkosten aufzuf 
angen, mu*te dieProduktion erniedri 
gt werden. ":p%=-3:G0T0 4998 
PRINT"Die \lpreise fielen unerwarte 
t stark.","Die dadurch verbilligten 
Produkte’erfuh-ren eine gro“e Nach 
frage, so da” die<4>Produktion erh! 
ht werden mu*te. ":p%=2:G0T0 4090 
PRINT"Ein starker Birsenkursverfall 
der Aktienfihrte bei vielen Firmen 
zu Schwierig-<2>keiten, so da” d: 
Produktion Insgesamt sank. "ıp%= 
GOTO 4078 

PRINT"Eine unerwartete Nachfrage na 
ch Aktien<2>der Stahlindustrie hat 
eine entsprechen-de Steigerung der 
Produktion auf diesem Gebiet zur Fo 
:p%=3:G0T0 4090 


ie Aluminiumpreise fallen, w 
as die Pro-duktion auf diesem Gebie 
t,in die Hihe<S>schnellen 1(*t.":pZ 
Pr#%{n) =prf%(n) +p%ı feld%=prf%, (n) :GO 
SUB SeSgspr#Z(n) =feldz:p7=0: feld7=Q 
6070 433 

PRINT"Die Kohlekraftwerke schalten 
ihre Filternur ein, wenn staatliche 
Kontrolleure<3>erwartet werden." ," 
Die Umweltbelastung ist daher wesen 
tlichhiher als vermutet. ":p%=5:60T0 
4170 

PRINT"Per Gerichtsbeschlu” wird die 
chemische Industrie gezwungen, ihr 
e Abw{sser zu<3>98% gekl{rt in die 
Fl}sse zu leiten.<4>Die Umweltbelas 
tung geht durch diese<4>Ma“nahme le 
icht zur}ck."ıp%=-1:60T0 4178 
PRINT"Untersuchungen haben ergeben, 
da” in denNachbarstaaten regeim(“i 
9 gro”e Salz-<3>mengen in einige Fl 
}sse geleitet werden,die auch durch 
Kybernetien flie“en. " ‚"Entsprechen 
d hiher mu” die Umweitbela-<2>stung 
eingeschttzt werden. ":p4=3:G0T0 41 
78 

PRINT"Drei gro”“e Sonderm}l1deponien 
werden<ä>entdeckt, bei denen gifti 
ge Substanzen<2>ins Grundwasser sic 
kern.","Die Umweltbelastung ist als 
© hiher als<2>angenommen. ":p4=3: BOT 
0 4178 

PRINT"Der Staat firdert sehr stark 
den Indivi-dualverkehr.","Die Umwel 


[5984] 
EC3A4] 
[6582] 


cacsa] 
LC2981 


LESBAJ 
LE&9CI 
[313E] 
LARBCI 
EDAB&I 


LEDBB] 


12424] 


L7CF6] 


L4C181 


L1C59] 


EDSA4] 


18406] 


EDF26J 


LF154] 


C2BSE] 


E1B821 


LFEICI 


LSEFAI 


L2F681 


CAS961 


LB86A61 


LCBE6I 


L7F@81 
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4158 


4168 


4170 


4188 


4198 


4200 


4210 


4220 


4238 


4240 


4250 


4260 


4270 


4288 


4290 


4300 


4318 


4320 


4338 
4348 
4358 


4368 


tbelastung durch Autoabgase<4>wichs 
t in entsprechendem Ma*e.":p%=2:60T 
0 4178 
PRINT"Die langjthrigen Forschungen 
nach alter-nativen Energien zeigen 
erste gri“ere<s>erfolge.","Die Umwe 
ltbelastung sinkt etwas. ":p4=-1: 60T 
0 4178 
PRINT"Der Staat firdert gezielt die 
Massenver-kehrsmittel wie Busse un 
d Bahnen." ,"Die Umweltbelastung sin 
kt daher etwas ab":p%=-2 
uf% (n)=uf% (n) +p%: 
3650: uf% (n)=feld%:p%4=B: feld 
0 4338 
PRINT"Eine gro”angelegte Anzeigenka 
mpagne der Autoindustrie verharmlos 
t die durch die Abgase hervorgerufe 
nen Umweltsch(den.<3>Die Bev!lkerun 
g li*t sich f}r dumm ver- kaufen.": 
P%=-3:G0T0 4208 
PRINT"Eine Anzahl von Birgerinitiat 
iven hat<3>sich zu einem Verband zu 
sen und kann sich d 
Ir<4>verschaffen." ," 
Aufklirung der Bevilkerung tut 
ur_gut.":p%=2 
af%. in) +p%ı feld%=af% (n) :GOSUB 
f% (n)=feld%:p%=B: feld%=@:G0T 


af%in 
3650: 
0 4338 
PRINT"Wegen starker Iberschnemmun: 
n und ver- heerender Wirbelst)rme n 
>Teile Kybernetiens 
eten erkl{rt werden 


PRINT"Die durchschnittliche Lebensq 
ualitit<4>sinkt daher um einige Pro 
zentpunkte. ":p4=-2:G0T0 4268 

PRINT"Der r}cksichtslose Gro“einsat 
z neuester Technologien in der Indu 
str wirk ine gewaltige Zuna 
hme der Arbei ig-keit.","Der du 


rchschnittlici ensstandard<4>si 
nkt daher. :G0T0 4268 

PRINT z wird in Wohnbereic 
hen rell Tempo 38 eingef)hr 


t, was s posi-tiv auf die Lebens 


’ 
qualit(t aller Birger Kybernetiens 

auswirkt. "ıp4=2:G010 4260 

PRINT"Di rkschaften setzen di 

30-Stun len-Woche durch; die Le 
bensqualit(t<5>steigt dadurch etwas 
an. "ıp%=2 


1f% (m) =1#% (n)+p%: feld%=1f% (n) :GOSUB 
3650: 1f% (n)=feld%:p%=Q: feld%=B: GOT 
0 4338 

PRINT"Die Einf}hrung zweier gut bez 
ahlter Er- ziehungsJahre Fhrt zu e 
inem wahren<5>Baby-Boom.","Die Verm 
ehrungsrate erhiht sich demen‘ 
echend um einige Prozentpunkt 
Yndavf% tn) +2: feldA=vr% tn) GOSUB 36 


58: vf% (n)=feld%: feld%=0:G0T0 4338 
PRINT"Ei 

e Politik, 

hl, sprungh. ansteigen. "ıbf% (n)= 


bf% {n) +4: feld%=bf% (n) :BOSUB 3670: bf 
%i{n)=feld%: feld%=®:G0T0 4338 
PRINT"Sie werden in eine Parteispen 
denaffaire verwickelt.","Ihre polit 
ische Beliebtheit sinkt ab. ":p%=-3: 
G0TO 4328 

PRINT"Eine Intrige 1{”t Sie als Ver 
antwortli- chen f}r einige Pannen b 
eim Umweltschutzerscheinen. ","Ihre 
politische Beliebtheit sinkt "um<4>e 
inige Prozentpunkte. ":p4=-4:G0T0 43 
20 

PRINT"Dank Ihres Einsatzes werden e 
inige wich-tige Umweltschutzgesetze 
verabschiedet. Ihre politische Bel 
iebtheit steigt. ":p%=3 

pof% (n)=pof% (n) +p%: feld%=pof% {n) :G0 
SUB 3678: pof% (n)=feld%:p%=2: feld%=8 


CALL halt:RETURN 
"##%* DATA #x* 


18,-- 


Bas 


187821 


LABS6] 


CAD2CI 


CDAF61 


[48081 


CBD421 


C@DAA1 


L3D3E] 


1D7F8] 


L6B241 


CA828] 


LAFAQ] 


L6AREI 


tBB1C] 


L24FC] 


L49F6] 


LSDBCI 


LAsECI 


1388A] 
C17D21 
[70083 


L495E1 


4378 


4338 


4398 


4408 


4418 
4420 


4438 


4448 


4450 


4468 
4470 


4480 


4490 


4518 
4528 


4720 


8, 
„1 
si 
8, 
25 


DATA 3,6,8,34,3,3,7,9,35,3,3,8,9,36 
3,3,10,9,37,3 
Bata’gleich null ‚minimal ‚recht geri 
ng,gering,ganz beachtlich,sehr beac 
htlich,recht stark,recht hoch,sehr 
hoch,nicht zu }berbieten 
DATA'minimal ‚gering,niedrig,klein,m 
ittel ‚anwachsend,beachtlich,ansehnl 
ht hoch,‚höch 
‚tchtig,giganti ig 
ine,nur wenig,wenig,nicht vi 
„ganz gut ‚gut,sehr 'gut,)ber 


ragend 

DATA schlecht ‚"skandal !s" ‚niserabel 
„niedrig,nicht gut ‚gering nt"ig,pas 
Sabel,ganz gqut,gut,sehr gut,herrlic 
h 


DATA sehr neg,sehr neg,negativ,nega 
tiv,null gering,hoch,zu hoch 

DATÄ zu gering,sehr gering,gering,a 
nwachsend,recht hoch,hoch,sehr hoch 
„zu hoch,viel zu hoch,beingstigend 
hoch 

DATA gleich null,noch gering,gering 
„anwachsend ‚noch 'ertr (glich,recht h 
öch,hoch,sehr hoch,best)rzend hoch, 
sehr bedrohlich,kaum ertr{glich,leb 
ensbedrohend,‚bedrohlich,katastropha 
1 

DATA PRODUKTION ,AUFKLERUNG , "LEBENSQ 
U." „"VERMEHR. " 

RESÜME NEXT 

"### SPIELSTAND-SPEICHER #*%* 

** Abspeichern x** 

CLS:PEN 2:PRINT"Legen Sie eine Kass 
ette ein, dr)cken SieREC und PLA 
nd geben’Sie den Namen<4>des Spiels 
tandes an! 

INPUT d$:d$="!"+d$ 

OPENOUT d$ 

PRINT#9,5p% 

FOR i=1'TO sp%:WRITE#7,snams (i) 
PRINT#3,rZ(i) ‚ap(i) ‚s#Z(i) ‚prfZti), 
ufZ(i) zaf%(i) ,1FAi) „vf%ti) zbt%i), 
pof%ti); 

NEXT 

CLOSEOUT 

d$="" RETURN 

"#* Laden ** 

PRINT"Legen Sie die Kassette ein 
r}cken Sie PLAY und geben Sie den N 
amen des Spiel- standes an! 

PEN 3: INPUT d$:d$="!"4d$:PEN 2 
OPENIN d$ 

INPUT#7,_sp% 

FOR i=1’TO sp%:LINE INPUT#9,snam$ (i 
’ 

INPUT#9, rAti),apti) ‚sf%(i) ‚prf%(i) 
„ufzti)safkti) IFA) vfzti),bf4i) 
‚pofZti) 

NEXT. 

CLOSEIN 

FOR i=1 TO sp%:nam$ (i)=snam$ (i)=NEX 
T 

ds= 


:60T0 458 


Listing 2. Das Hauptprogramm der Simulation 
»Kybernetien« (Schluß) 


[51421 


145821 


LCZE4] 


LES4CI 


15028] 
[33141 


LA6ARI 


CD&BA1 


LEDFCI 


L99CC 
L66B41 


c171A] 


L958E1 


L2F481 
18832] 
CDB883 
L35BC] 


LBAEAI 
[1678] 
CD788] 
L8C18] 
[67261 


L7@3E1 
132621 
[39801 
EisiC) 
C9BBE] 


L2F58] 
[7D381 
CB9CQ] 
LE7683 


L11c2] 
C3D1@1 
LFB&A] 
L6@F@1 


11398] 
[BA441 
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»Fire« ist ein actiongeladenes Spiel für Leute mit 
sehr schneller Reaktion. 


illy, der Held unseres Spiels »Fire«, hat alle Hände 
WW: zu tun. Gilt es doch, alle Feuer zu löschen, 

ohne sich durch die vielen Störenfriede davon 
abhalten zu lassen. Für seine Aufgabe ist er bestens gerü- 
stet, gehört er doch der Gattung der Drainees an; einer Art 
Lebewesen, die stets einen Wasservorrat in ihrem Körper mit 
sich herumtragen. Schleudert er einer Flamme eine Portion 
Wasser davon entgegen, verlischt sie augenblicklich. Auch 
seiner Feinde entledigt er sich mit gezielten Wasserstößen. 


Bild 1. 50 Zeiteinheiten hat Willy, seine Aufgaben zu 
bewältigen 


Doch ganz so einfach, wie das zunächst klingt, gestaltet 
sich Willys Kampf gegen die Flammen in der Praxis nun auch 
wieder nicht. Sein Wirkungsradius ist nämlich leider 
beschränkt, so daß er seinen Zielen schon ziemlich nahe- 
kommen muß. Und sein Wasser-Reservoir ist nach jeweils 
zwei »Schüssen« erschöpft. Zum Glück gibt es aber einige 
Teiche, an denen Willy dann seinen Durst stillen kann. 

Seine Widersacher sind Glumpfs, Smarks und Nipps, die 
sich durch Geschwindigkeit und Aggressivität unterschei- 
den. Am gefährlichsten sind die ultraschnellen roten Nipps. 
Den grünen Smarks ist schon leichter zu entkommen, da sie 
sich nur ebenso schnell wie Willy bewegen. Die gelben 
Glumpfs bringen ihn, langsam wie sie sind, kaum aus der 
Ruhe. Gelingt es Willy trotz der vielen Hindernisse, seine Auf- 
gabe innerhalb seines kurzen Lebens von nur 50 Zeiteinhei- 
ten zu bewältigen, winkt ihm als Belohnung eine Verlänge- 
rung dieser Zeitspanne. Und weil er sein Geschick unter 
Beweis stellte, wird seine Aufgabe in neuer Umgebung 
schwieriger. Beginnen sich an der Innenfläche Ihrer Joystick- 
hand nach Stunden verbissener Punktejagd Schwielen zu 
bilden, stoppen Sie den Spielverlauf während einer Runde 
mitder Taste <H>.'Nach der nötigen Ruhepause setzen Sie 
mit <S> das Vergnügen an derselben Stelle fort. 

Am rechten unteren Bildschirmrand sehen Sie in Bild 1 Wil- 
Iys »Lebensuhr« von 50 an langsam rückwärtszählen. Links 
daneben signalisiert eine Zahl, wieviele Versuche Willy noch 
verbleiben. Bei Erreichen von jeweils 2000 Punkten 
(Anzeige unten links) erhält Willy die Chance für einen weite- 
ren Versuch. Wie Bild 2 zeigt, gibt es für das Löschen jeder 
Flamme 100 Punkte, die Abwehr eines Nipps bringt 30 
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Bild 2. Erlegte Nipps, Smarks und Glumpfs bringen Punkte 


Punkte und jeweils 20 Punkte sind für einen erlegten Smark 
zu verzeichnen, während ein unschädlich gemachter Glumpf 
das Konto um nur 10 Punkte bereichert. 

Vor dem ersten Spiel steht die Eingabe der drei Programm- 
teile: Listing 1 (»FIRE.BAS«) enthält das Basic-Hauptpro- 
gramm. Es lädt zwei Maschinencode-Teile nach. Den einen 
mit Grafikroutinen (»FIRE.GRA«) erzeugt der Basic-Lader aus 
Listing 2. Den Programmcode »FIRE.BIN« speichert Listing 3 
automatisch. Bei Kassettenbetrieb ist also auf die Reihen- 
folge (»FIRE.BAS«, »FIRE.GRA«, »FIRE.BIN«) zu achten. 

(Werner Schmidt/ja) 


Steckbrief 
Programm: Fire 
Computer: CPC 464/664/6128 
Checksummer: Explora/CPC 
Datenträger: Diskette, Kassette 
Besonderheiten: |' Nur mit Joystick 


12 MEMORY 36999: LOAD" !fire.gra":LOAD" !fi 
re.bin 

20 DEFINT a-mıFÜR n=® TO 1S:READ a:INK n 
„azNEXT 

30 DATA _8,13,26,23,6,24,18,16,1,15,8,19, 
2,7,25,2& 

40 BÜRDER @:MODE @:high=® 

5@ FOR z=415@8 TO A1SQG:READ a:POKE z,a: 
NEXT:FOR z=41518 TO 41518:READ a: POKE 
Z,a:NEXT 

608 DATA 0,38,4,2,1,144,1,0,1,0,0,4,10,1, 
144,0,1,4 

7@ ENT 1,18,-28,3:ENV 1,1,18,1,18,-1,4:E 
NT 2,50,2,1,10,-2,1,10,2,1,10,-2,1,28 


en EuhBoL 250,0,238,136,136,232,40,40,23 
92 SvmBoL 251,0,238,170,178,174,172,170, 
100 SYNBOL 252,0,224,132,132,224,132,132 
110 SmBaL 253,0,2398,17@,17@,202,17@,17@ 
120 SYMBOL 254,0,170,178,254,254,234,170 
138 ayfnaL 255,0,224,132,132,224,36,36,2 


LF@@AI 
[78861 
LF61E1 
[C9181 
L1F761 
LaEAAI 


CBaAa1 
Ca2Ea1 
[96B61 
L3DE®I 
[BB28J 
L9B061 
LASS8] 


140 ° [92881 
150 "Titelbild C52F41 
168 ' [@4BC1 


Listing 1. »Fire«, helfen Sie Willy, dem Drainee, bei der 
Erfüllung seiner schweren Aufgabe 


520 


MODE @:RESTORE 180: FOR n=1 TO Si:REA 
D_xzyzChli A664, »y,57@00: NEXT 
DATA 9,5,13,5,17,5,21,5,29,5,37,5,41 
,5,45,5,57,5,51,5,25,5,89,5 
Data 9,9,29,9,37,9,89,9,57,97 
DATA 9,18,29,13,37,13,49,13,57,13 
DATA 9,17,13,17,17,17,29,17,37,17,41 
„17,45,17,57,17,61,17,65,17,69,17 
DATA 9,21)29)21,37,21,45,21,57,21 
DATA 9,25,29,25,37,25,49,25,57,25 
DATA 9,29,29,29,37,29,49,29,57,29,61 
129,65,29,69,29 
PEN'121LOCATE 3,245 PRINT CHR$(164) 5 
Werner Schmidt":PEN 23LOCATE 18,25: 
PRINT" / 
CALL_%9674 ,61,49,38120:CALL_&9674 ,65 
‚49 ,39120: CALL _49674,73,49,38344: CAL 
L 23674,77,49,38280 
CaALL_%9864)17,34,37896:CALL_&9674,25 
‚35,38120: CALL 49474, 27 ,35,3B2B8 
EALL &9664,49,34, 37748: CALL %7674,57 
35,30152:CALL &9674,61 ,35,38088 
CALL %9664,17,42,3764B: ALL 49674,25 
43, 381841 CALL &9674,29,43, 38088 
EALL 89664,49,42,37128: CALL &9674 ,57 
‚43,3812@: CALL %3674,61,43, 38088: CAL 
Ü &9674,65,43,38088 
PEN SıLÖCATE 5,18: PRINT"=":LOCATE 14 
184 PRINT"=":LÖCATE 6,22: PRINT"=":LO 
CATE 14,22: PRINT"=" 
WHILE JOY(@)<>16 
CALL_%9664,17,13,37128:CALL_%9664,29 
+1,37128: CALL "89664 ,49 ,21,37128: CÄLL 
%9664,69,13,37128 
FOR n=i TO 25@: NEXT 
CALL_&9664,17,13,37192: CALL_&9664 ,29 
1537192: CALL '%7664,49,21,37192: CALL 
49664 ,69 ,13,37192 
FÜR n=i TO 280: NEXT:WEND 


"Spielfeld 


MODE ®:FOR n=1_TO 77 STEP AtCALL &96 
64 ,n,1,370@@: NEXT: RESTORE 1008 

FOR n=S TO 47 STEP AICALL 89664 ,1,n, 
S7@@0:CALL %9664 ‚77 ,n „37000: NEXT 
FÜR n=5 TO 73 STEP ArCALL &9664,n,45 
„37Q00: NEXT 

LOCATE 1,25: PRINT CHR$ (258) ;CHR# (251 
),CHRS (252) ,:LOCATE 16,25: PRINT CHR# 
1553) ,CHR& (284) JCHR# (255) | 

FOR n=13 TO 29 STEP 4ıCAlL %9674,n,4 

9,38088: NEXTICALL &9674,43,49,38216: 

sp=2208 

FÜR z=42019_TO 42022:POKE z,@:NEXT:b 
ild=lılive=Sı level=1:POKE 42005 ,8: PO 

KE 42004 ‚145: POKE 42023,8:POKE 42024 
147: POKE 42025,136:POKE 42026, 147:P 

ÖKE 42@27,8:POKE 42028, 148 

WINDOWN „2, 19,3, 22: CLE41 

READ x,yılF x=0 THEN 490 

CALL %9664 ,x,y,37000:G0T0 478 

READ x,yılP x=& THEN SI@ ' 

CALL EN 37064: G0T0_490 

FOR n=1 TO’A:READ x,yıPOKE A2B0S+28 ( 
n-1) x: POKE 42006+2% {n-1) „yiCALL &76 
64 ,x,y,3712B:NEXT:READ x „yanvexıyvey 
ıPOKE. 42052 ,0 

POKE 42813,Ö: POKE 42014,x: POKE_42B15 
„yıCALL &9464,x,y,37512:POKE 42001 ,@ 
!POKE 428@2,5:CALL &9674,73,49, 38248 
:CALL &9674, 77,49, 38088 

POKE 42016,156:POKE 42@17,146:POKE 4 
2@10,2:POKE 42053, 1QG:POKE 42054,14- 
Zxlevel 

FOR 2=42029 TO 42044 STEP S:POKE 2,0 
NE 

FOR z=42050 TO 42045 STEP 3 

22=INT (RND*4) 

IF zz=@ THEN IF PEEK(42005)<>@ THEN 
POKE z ‚PEEK (42005) :POKE z+1,PEEK (420 
06) ELSE 540 

IF zz=1 THEN IF PEEK(42887)<>@ THEN 
POKE z ‚PEEK (42887) : POKE. z+1,PEEK (420 
28) ELSE 560 

IF zz=2 THEN IF PEEK(420@9)<>@ THEN 
POKE z ‚PEEK (42089) ıPOKE z+1,PEEK(420 
19) ELSE 568 

IF zz=3 THEN IF PEEK(42011)<>@ THEN 
POKE z ‚PEEK (42011): POKE z+1,PEEK(428 
12) ELSE 568 

NEXT 

SOUND 1,2@@,15,7:FOR z=1 TO 1@@:NEXT 
SOUND 4,218,15,7:FOR z=1 TO 1@@:NEX 
TıSOUND 2,220,13,7:FOR z=1 TO 15G:NE 
xT 


jauptroutine 


CALL &9684: IF PEEK(42052)=4 THEN 858 


172341 
[DAS&1 
as@81 
LE1A61 
L84ACI 
156981 
L6BCAI 


LAca81 


[7DFAI 


EDC961 
LFiEEI 
172021 
L32E6]1 


LBF7EI 


14444] 
(80441 


LFDFEI 
taB1Al 


L598A] 
CEIEE] 
LESC2] 
CE9FA] 
La9C63 
L8E22 
ECCEBI 


C61BAl 


13128] 


119261 


151901 
[3F721 
EC9DCI 
125281 
C43D2] 
103321 


L2AECI 


LFD241 


LBFFBI 
CBSCQ1 


LE2041 
CABD41 


LOAB&I 


L3DC61 


cD1c41 


LICIHEI 
LSBECI 


A542] 
Carcal 
[@4D21 
tB1Ca1 


678 
688 
678 
708 
zıa 


728 
738 


748 
758 
768 
77a 


788 


790 
808 
818 
828 
830 


848 
8s® 
868 
870 
7 
898 
908 
918 
928 
930 
948 
958 
968 
970 


988 
998 


"Leben verloren 


SOUND 2,2@8,1@0,7,,2:FOR n=1_ TO _12:C 
ALL W7ab4PEEK (A2bA) „PEEK (42815) „37 
FOR m=1_TO &@:NEXT:CALL &9664 ,PEEK(4 
2014) „PEEK (42015) „37328 

FOR m=1 TO #B:NEXT:NEXT 
1iya=live-1ıGDEUB 9SBalF livand THEN 
CALL_%9674,43,49,38056+live*32:FOR_z 
=4203@ TO 42045 STEP S:CALL &9664,PE 
EK(z) „PEEK (z+1) „S84@8: NEXT 
x=xvıy=yv:S0T0 528 

FOR n=36& TO 48 STEP -2:PLOT 32,n,B: 
DRAWR 572,@:NEXT 

score=PEEK (42022) #1 BBOB+PEEK (42021)* 
1QB0+PEEK (42820) #1OQ+PEEK (42019) #10: 
IF score>high THEN high=score 

PEN 12:LOCATE 3,9:PRINT"G A M E<2>0 
VE R":LOCATE 6,15: PRINT"Highr ah 


WHILE JOY(@)<>16:WEND:GOTO 170 
ild geschafft 


score=PEEK (42022) + 1DODG+PEEK (42021) * 
1BBB+PEEK (42020) #1OB+PEEK (42019) #1Q: 
bonus=PEEK (42002) +1Q@+PEEK (42001) *1@ 


FOR n=bonus TO 18 STEP -10: score=sco 
re+10: s$=S1R$ (score) 

MID+ (s$,2): FOR m=LEN(s$) TO Aust= 
+s$:NEXT 
FOR m=1_TO 41CALL &9674,44m+9,49 ‚VAL 
(MID$ (s$ ‚m, 1) )*32+38@88 
NEXT:SOUND’2,50,2,7:FOR z=1 TO 2@:NE 
XTENEXT 

bild=bild+1: IF_bild=& THEN bild=1rle 
vel=level+1:RESTORE 1000 

FOR n=1 TO A:POkE 42023-n ‚VAL (MID$ (= 
$,n,1) ):NEXT:BOSUB 930:6070 460 


"Bonusleben 


score=PEEK (42022) *1ODBA+PEEK (42021) * 
1D00+PEEK (42028) #10Q+PEEK (42019) #10 
IF scoreisp THEN RETURN 
live=live+i:FOR n=408 TO 58 STEP -50 
1SOUND L,n,S,71NEXTIIF Yivamil THEN 
live= 

sp=sp+2@@N:CALL &9474,43,49,liven32+ 
8056: RETURN 


‘Bilder 


1000 DATA 9,9,13,9,21,9,25,9,29,7,33,9,3 


1218 


1020 


1838 


7,9,41)9,49,9,53)9,57,9,65,9,9,13,6 
5,18,9,19,19,17,21,17,55,17,49, 17,6 
DATA 21,21,45,21,49,21,53,21,37,21, 
9,25,37,25,69,25,17,29,21,29,25,29, 
29,29,37,29,49,29,53,29,9,33,37,33, 
Data 3633%13,37,17,37,21,37,29,37,3 
3,37,37,37,05,37,53,37,57,37,61,37, 
45,37,69,37,0,0 

Data 33,5,37,17,9,21,69,21,9,29,65, 


33 
1840 DAfA’17,13,49,13,29,25,61,29,37,41 
1850 DATA 9,9,25,9,29,9,37,9,41,9,49,9,5 


1868 


1078 


1888 


1098 
1198 


1118 


1128 


‚49, 
3,9,69,9,9,13,17,13,37,13,41,13,61, 
13,89,13,9,17,17,17,61,17,69,17 
pata 9,21,17,21,61,21,89,21,9,25,17 
‚25,25, 25,29,25,37,25,41,25,49,25,5 
3,28,61,23,69,28 
DATA'9,29,17,29,25,29,53,29,61,29,& 
9,29,9,33,17,33,25,33,53,33,61,33,6 
9133,9,37,17,37,61,37,69,37,0,0 
DATA’S}17,73,17,29,29,49,29,21,33,5 
7,33,0,8 
DATA’17,9,61,9,29,21,49,21,41,41 
DATA 5,9,9,9,17,9,21,9,25,9,3359,37 
»9,41,9,45,9,49,9,57,9,61,7,65,9,69 
19,25,13,69,13,9,17,13,17,17,17,33, 
17337,17,45,17,49,17,58,19,61 119,69 
DATA_17,21,25,21,61,21,69,21,17,25, 
25,25,37,25,41,25,45,25,49,25,53,25 
361,28,17,29,25,29,28,29,41,29,& ,2 


DATA 13,33,17,33,45,33,69,33,5,37,3 
»37,13,87,17,37,29,37,33,37,45,37,5 
7,37,61,37,65,37,69,37,8,8 


113@ DATA’ 13,9,53,9,41,17,49,29,5,33,0,8 


Listing 1. »Fire« (Fortsetzung) 


L9DARI 
EB3C81 
[84801 
LESCCI 
LFD8B1 


C816E1 
LaFacı 


caD7al 
L9DECI 
L4DD®] 
L2CF21 


TaSE4] 


[75541 
167881 
tIBBEI 
EBaACI 
CaEC21 


£751C] 
L256C9 
LS5B6] 
C3E443 
CDABAI 
L9C881 
CBF661 
CaEcal 
E71DC] 
C1aC41 
L794A] 
LEIECI 
[56D61 
CBDBAI 
[7SCE1 


(51741 
CESD2] 


CE8981 


cc12A3 
L9EABI 
c2A141 
[DA76] 
L1AZEI 
158761 
L9F7EI 


L7EEE] 
CDEB2]1 


LDEDAI 


130341 


L527A1 
CD7C21 


HOMESOMPUTER 


111 


1148 DATA 57,5,13,29,33,33,57,33,41,5 _ L[62A8] 69,37,61,41,69,41,0,8 L3A9A1 
1158 DATA 29,9,33,7,37,9,41,9,45,9,49,9, 1180 DATA 49,13,9,23,29,29,41,29,0,@ LAasaı 
53,9,57,9,65,9,69,9,53,13,9,17,17,1 119@ Data 9,13,17,13,85,21 373% »41,57,21_ [82141 
7,9,21,17,21,21,21,25,21,29,21.33.2 12@@ DATA 13,13,17,15,21,13,57,18,61,13. 
Sal Alzalr arzt, 49,21,53,21,57, 65,13,13,33,17,35721,33.07,33.61,33 
21,61,21,69,2 1899R1 „65,33,0,8 LC7BEI 
1160 Data 3.25, 17,25,61,25,69,25,17,29,4 ı2ı@ BatA 29,17,49,17,29,29,49,29,0 [g9ca1 
9,29,53,29,61,29,69,29,9,33,53,33,6 1220 DATA 17.9.21.9.19.28.01 20 4j.258  ranBaı 
1,33,69,33 68741 
117@ DÄTA’9,37,13,37,21,37,25,37,29,37,3 
3,37,37,37,48,37,49,37,53,37,61,37, Listing 1. »Fire« (Schluß) 
108 HH LSIDAI 19a Data 9338,00,78,B7,2n,00,7B,B7,2n,0n28 rar7aı 
1@1 '#FIREGRAF.DAT — DATA-Lader CPC’= L&79AJ i91 DATA 9349, 15,24,00,00,15,2A,00,00,0008 [91861 
192 "Menue: LASDEI 192 DATA 9348,00,51,00,00,00,51,00,00,1504 [63601 
103 ' [DEB&] 193 DATA 9350,0@,51,A2,00,00,51,A2,00,0000 L47ac) 
194 DATA 9888,0C,0C,0C,2C,0C,0C,@C,00,0484 (7C481 194 DATA 9358,00,F3,F3,00,00,F3,F3,00,208A LE7381 
105 DATA 9090,08,00,00,45,00,08,08,48,@@88 Lnaacı 195 DATA 9348,B0,F3,F3,0Q,51,F3,F3,A2,2200 [aAS2I 
186 DATA 9078,08,C0,C0,48,08,C0,C0,AB,2ABG LDAacı 196 DATA 9368,51,79,B6,A2,51,79,B6,02,2862 [&sacı 
107 DATA 9QAB,@8,C0,Ca,48,00,C@,ce,40,2Aae L774E1 197 DATA 9378,51,F3,F3,A2,00,F3,F3,00,022A 130581 
188 DATA 90A8,08,C0,C2,48,08,C0,C0,48,2A@8 LECABI 198 DATA 9378, 15,7B,B7,00,15,78,B7,00,028A L11SC1 
107 DATA FQBQ,08,C0,C0,48,08,C0,C@,48,2ABB LFDS4] 197 DATA 9380,08,00,15,2N,20,20,15,2N,0000 L&79E) 
11@ DATA 9@B8,08,0C,0C,48,08,0C,8C,40,8220 LAs26] 208 DATA 7388,00,00,28,20,00,00,20,00,0550 LD46A1 
111 DATA 90CQ,48,C0,C0,C@,48,C0,Ca,CO,BO0B L7DSEI 2@1 DATA 739@,00,14,28,00,00,14,28,00,0000 caasaı 
112 DATA 9@CB,@2,44,88,00,44,CC,CC,B8,0@08 LAASa] 202 DATA 9398,08,3C,3C,08,00,3C,SC,08,0ERG LZ5FEI 
113 DATA 90D8,CC,CC,CC,CC,88,CC,CC,CC,4224 L6DSC 2@5 DATA 93AB,@0,3C,3C,00,14,3C,3C,28,@88@ LSEIEI 
114 DATA 9@D8,44,CC,CC,88,44,CC,CC,8@,e@a8 152021 204 DATA 93AB,14,36,39,28,14,36,39,28/0282 L7BDAI 
115 DATA 9GEO,CC,CC,CC,0B,CC,CC,CC,@B,ABAB LAAZEI 205 DATA 93B,14,3C,3C,28,00,3C,3C,00,0088 L9E241 
116 DATA 90E8,44,CC,CC,88,44,CC,CC,CC,B@44 [A614] 2@& DATA 93B8,00,1E,2D,@A,Q0,1E,2D,0n,02AB LDB721 
117 DATA 9@FQ,CC,CC,CC,CC,CC,CC,CC,EE,AA44 LDBBCI 287 DATA 73C0,05,0R,00,00,05,0A,00,00,0208 174941 
118 DATA 9QF8,44,CC,CC,CC,44,CC,CC,CC,@484 LF9461 298 DATA 73C8,00,14,00,98,00,14,00,00,0550 LB4761 
119 DATA 9100,44,CC,CC,88,08,CC,CC,@0,02A8 LaBaCcı 207 DATA 73D@,00,14,28,00,00,14,28,00,0000 LD@7E) 
120 DATA 9108,00,00,A0,00,00,00,AQ,00,154@ LSF&EI 218 DATA 73D8,0@,3C,3C,00,08,3C,SC,00,0808 LACi2ı 
121 DATA 9110,00,00,A0,00,00,50,A@,00,128@ LFC&2] 211 DATA 93E0,00,3C,3C,@8,14,3C,3C,28,0B88 17024] 
122 DATA 9118,08,50,A0,00,00,50,AQ,un,aana L9A7A1 212 DATA 73E8,14,36,39,28,14,36,39,28,0202 LDDEGI 
125 DATA 9120, 00,F@,F0,00,00,F0,F0,0@,2820 1L67C81 213 DATA 93F@,14,3C,3C,28,00,3C,3C,00,0808 LCC2A1 
124 DATA 9128,00,F0,F0,00,00,F@,D2,00,2064 LS@EAI 214 DATA 93F8,05,1E,2D,08,05,1E,2D,00,BOAA L@SS61 
125 DATA 9150,58,F@,D2,A8,50,F@,C3,n0,0426 LEF3s] 215 DATA 7400,0@,00,05,0N,00,00,05,0A,0000 LSSAEI 
126 DATA 9158,50,E1,61,AQ,00,E1,61,08,1526 L22E41 21& DATA 7408,00,00,A2,00,00,00,A0,00,1540 L7BEB) 
127 DATA 9140, 08,92,30,00,0@,10,20,0@,2288 L7ES61 217 DATA 9418,00,50,A0,00,00,50,A0,20,0008 L2F741 
128 DATA 9148,00,50,00,00,00,50.00,00,1548 L5Fs61 218 DATA 9418,00,F2,F0,00,00)F0,F0,00,2028 17666) 
127 DATA 9150,08,50,00,00,00,50,00,00,1548 LF2aA] 219 DATA 9428,80,F0,F0,00,50,F0,F@,AB,220@ L&F061 
150 DATA 9158,08,50,A0,00.00,50,A0,0n,aeee Lac7aı 22@ DATA 9428,50,7@,B2,A2,50,70,B@,AB,2ABd 147141 
131 DATA 9160,08,F0,AB,00,08,E1,F@,00,2A64 LB7F&I 221 DATA 7450,50,FQ,F@,A2,22,F0,F0,00,0220 LAZFAI 
132 DATA 9168,00,E1,F0,00,00,E1,D2,08,2468 Lsaraı 222 DATA 7438,00,52,A1,@2,00,52,A1,02,0@08 LBEBAI 
133 DATA 9170,58,92,D2,A@,41,3@,C3,AG,1FZE LFD44) 223 DATA 9440,01,@2,20,00,01,02,00,00,0000 L&9281 
154 DATA 9178,21,92,C3,A0,08,972,C3,@0,1SAE [37361 224 DATA 7448,00,59,00,00,00,50,08,00,1540 [81561 
135 DATA 9180,00,30,61,00,00,10,20,00,0020 127401 225 DATA 7450,00,50,AQ,D0,00,50,A0,a0,0a0a Las7aı 
136 DATA 9188,00,45,8R,28,4S.CF.CF,BA,BBOB LOCABI 226 DATA 7458,08,F0,F0,00,00)F@,F0,00,2020 L6AECI 
137 DATA 9190,00,03,05,08,0@,AB,57,@@,@2A2 L&BBC] 227 DATA 9448,00,F@,F@,00,50,F@,F@,AQ,220@ LABaCı 
130 DATA 9198,00,03,03,28,00,02.01,0@,0@MA L42901 228 DATA 9468,58,70,50,A0,50,70,B@,AB}2ABQ LCF2CI 
157 DATA 91AB,00,02,01,08,A7,0@,0@,56,@5BE LB2E4] 227 Data ‚5@,F@,Fo,AQ,00,F@,F0,00,0220 125121 
140 DATA 91A8,A7,00,00,56,01,08,08,56,5iBE LE2FB] 258 DATA 81 ,52,41,00,01,52,A1,00,0822 L7A9EI 
141 DATA 91B0,01,00,00,56,81,00,00,02,B5EA LaBAsı 231 DATA 9488,00,00,01,02,00,00,01,02,0008 L772E1 
142 DATA 91B8,54,00,00,FC,54,02,@1,FC,2796 [18481 232 DATA 7488,00,00,00,08,00,00,00,00,0200 12834) 
145 DATA 91CQ,FC,02,@1,00,FC,@1,02,00,7948 L520E1 253 DATA 9490,00,00,00,20,00,00,00,00,0000 11721 
144 DATA 91C8,00,45,8A,@0,45,CF,CF,BA,UB@B L6A741 234 DATA 9498,00,68,44,00,08)CC,CC,00,2828 LCi2Al 
145 DATA 91D0,00,03,03,00,00,AB,57,@@,@2A2 LECD@I 255 DATA 74A0,00,44,CC,88,00,44,CC,98,0000 192341 
14& DATA 91D8,00,03,03,00,00,@2,01,00,00AA LS@Aa1 236 DATA 74AB,00,CC,CC,00,08,44,68,08,2ABB LSDACI 
147 DATA 91E0,00,02,01,00,A7,00,0@,36,@5BE LFBER) 257 DATA 74B0,00,00,00,00,00,00,00,00,0000 LC5421 
148 DATA 91E8,A9,00,00,56.A9,00,0@,02,54AA LFB2CI 238 DATA 94B8,08,20,00,00,00,02,00,00,UR0D LIESAl 
149 DATA 91F0,A7,00,00,02,01,00,00.02,54AA LacDcı 259 DATA 7400,00,00,00,00,00,00,00,00,0000 LF7ABI 
158 DATA F1F8,FC,08,@0,AB,FC,@2,@1,A0,7302 187941 24@ DATA 94C8,00,10,30,20,00/F@,F0,20,0208 LD9BA] 
151 DATA 9200,08,02,@1,FC,08,01,@2,FC,@FsC LBF241 241 DATA 74D8,00,50,50,20,00,B0,5@,20,2640 L45B81 
152 DATA 92@8,00,45,8A,@0,45,CF,CF,BA,UBBG LBSAEI 242 DATA 94D8,00,E0,50,20,00,B0,50,20,2648 Liacal 
155 DATA 9210,00,05,05,00,08,AB,57,0@,@2A2 LCıan) 243 DATA 94E0,00,B0,70,20,00)F@,F0,00,2220 L»4DC1 
154 DATA 9218,08,03,03,00,00,02,01.00.00AA L@77E1 244 DATA 94EB,00,00,00,20,00,00,50,20,0208 LES7AI 
155 DATA 9220,08,02,01,00,A7,08,0@,56,@5BE L21CA1 245 DATA 94F0,00,20,50,20,00,00,50,20,@080 LD784] 
156 DATA 9228,A9,00,08,56,01,00,08,56,51BE LDIERI 246 DATA 94F8,08,00,50,20,00,00,30,20,0B20 L2A961 
157 DATA 9230,01,33,33,56,01,33,33,@2,BFEG L75C61 247 DATA 9500,00,20,50,20,00,00,50,00,@aA@ TBB&CI 
158 DATA 9238,54,33,33,FC,54,15,23,FC,2D36 [7664] 248 DATA 9508,00, 10,30,20,00,F0,F0,20,0200 CEAABI 
1579 DATA 9240,FC,13,23,00,FC,01,02,08,7948 LScecı 249 DATA 97510,00,00,50,20,00,10,70,20,0080 LSG4A1 
160 DATA 9248,08,45,8A,08,45,CF,CF,BA,BOBB [B1541 25@ DATA 9518,00,F0,F0,00,00,B0,00,00,20CD LECCE) 
161 DATA 9258, 00,03,03,00,08,AB,57,08,8242 LS1B@) 251 DATA 9520,00,50,30,20,00,F@,F@,00,2A2@ LBICCI 
162 DATA 9258,00,03,03,00,00,02,01,00,@0AA LE7841 252 DATA 9528,00, 10,30,20,00,F0,Fa,20,8200 126901 
163 DATA 9260,08,22,01,00,A7,00,00,56,BSBE LADCAI 253 DATA 9530,00,00,50,20,00,12,70,20,0000 (Ba64) 
164 DATA 9268,A9,00,00,56,A9,08,08,92,54AA LIAGCI 254 DATA 7538,00,F0,F0,20,00,00,50,20,2008 L56B2) 
165 DATA 9270,A9,33,33,02,01,33,33,02,SEAB LDDECI 255 DATA 9549,00,10,70,20,00,F0,F@,00,@A20 LEBBA) 
166 DATA 9278,FC,33,33,AB,FC,13,23,A8,7962 LEAICI 256 DATA 9548,08, 10,00,20,00,50,50,20,0440 192821 
167 DATA 9280,08, 13,23,FC,08,01,02,FC,@F9c L@s4E) 257 DATA 9559,00, B0,50,20,00,50,70,20,2408 LAEAs] 
168 DATA 7288,00,45,84,00,45,CF,CF,8A,000@ LF1sCH 258 DATA 9558,08,F8,F0,20,00,00,50,20.2080 LsABEI 
169 DATA 9290,00,03,05,00,00,AB,57,@0,@2A2 tCicsı 257 DATA 9549,00,00,50,20,00,00,50,00,@8AQ LQS7EI 
178 DATA 9298,88,03,83, ‚aa, M7 3,23,00,88AA [20961 268 DATA 9568, yaa, 10, MH ‚20, an,Fa, IH ‚an, 8220 LFCABI 
171 DATA 92A0,00,13,23,00,A9,33,33,56,9514 LBIBEI 261 DATA 957@,00,B0,@0,00,00,50,30,20,2E80 tAFBBI 
172 DATA 92A8)A9}33)33,5 =77 33} 56, SBB4 11434] 262 DATA 9578,80, FB, F@,20,00,008,5@0,20,2088 L[@ABB] 
173 DATA 92B8,01,33,35,5 3,33,82,0FE® L1SE@I 263 DATA 9589,08,18,70,28,00,F@,F@,0@,@R28 L1Dcal 
174 DATA 92B8,54,33, 33)\ FC, 54, 13,23,FC, 12036 LF&7E] 264 DATA 9588, ‚aa, 10, ‚3a, ‚20, 00,F@,F@,00,80228 L94AC) 
175 DATA 92C0, FC, 13, 23,00,FC,81,82, 20, 7948 [A626] 245 DATA 9598,00,52,00,00, 28, BO, 3a, 20,2E880 LD3C4]J 
17& DATA 92C8,80, ya5, MM 00, ya5)} CF,CF, sea, @808 [8188] 256 DATA 9598, ‚an, Fa, MH 20, 00,60, ‚sQ, 20,2248 LiAE4I 
177 DATA 92D0, aa, 0, 85, au, aa, AB,57, @0,82A2 LCFDCI 267 DATA 95AB,00, BO, 798,20,00,F0,F0,08,2228 LFIE2] 
178 DATA 92D8, MH 03, Mc MTH ‚ao, 13,23,08, aaaa [DABCI 268 DATA 95AB, ‚2a, 10,38, ‚20, 20, FB, 3 ‚20, 22028 LDCC&I 
179 DATA 92E0,09,13,23,08,A9,33,33,56,0514 [@1D61 269 DATA 9559,00, 20,50,20,00,00,50,20,0020 LDEaA] 
18@ DATA 92E8,A9,33,33,56,A9,33,33,02,3EAB [62561 27@ DATA 97558,00,00,58,20,00,00,50,20,@888 LFiaA) 
181 DATA 92F@, A9,33,33,@2,81,33,33,82,5EAB [BC@61 271 DATA ISCH, 28,00, sa, 20,00,00, sa, a0, geaB LB78CI 
182 DATA 92F8, :EC, 3335 cH AB): EC, 13, 23), A8,77&2 L[B6B6] 272 DATA 95C8,28,10, ‚38, 28, ‚ao, FB, FO, 20,8208 LEaCD] 
183 DATA 9308, 20, 13, 23,FC,08,@1, 22, FC,@OF9C C[AFSCI 273 DATA 95D8,20, BB, 52,20,28,BO, 78, 20,26088 LE2C@] 
184 DATA 9388,00, HH sa2, ‚an, ao, MT-M MH 28,1584 [@DBEI 274 DATA 95D8,, 22, ’FB} Fo, ‚20; ‚an, B8,50,20, 2248 LEFCFB] 
185 DATA 9310, @8,51,A2,08,80,51,A2,00,0@8@0 L[S5F86] 275 DATA 95EB, oo, Ba,70, 20, aa, Fa,F8,08,2220 LB7EB] 
185) Bein En @@,F3, ES: eu. ‚aa, F3, sES} ‚en, 288A Sr 
TA @a,FS,F: 51, Ze, F3, 22AB L7E: 
188 DATA 9328,51,791BalA2!31)77!Belnzizue2 Lzvecs Listing 2. Die Grafikroutinen bestehen aus fast 1 KByte 
189 DATA 9330,51,F3,F3,A2,00,F3,F3,00,822A [73521 Maschinencode 


112 www:HoMEcoMmPUTE 


276 DATA 95E8,00,18,30,20,00,F@,F8,20,028@8 LCCCCI 288 pr=UNT(pr)XOR a:IF pr<@ THEN pr=pr+6553 


277 DATA 95F0,00,B0,50,20,00,B0,70,20,2608 [BECC) & ta2caı 
278 DATA 95F8,00,F0,F0,22,00,00,52,20, ‚zaca [24€41 289 NEXT i 146161 
279 DATA 9420,00, 18,70,20,20,F0,FQ, ED&CHI 298 READ pr$:pr2=VAL("&"+pr$):IF pr2<@ THEN 

2a8 DATA sENDEx TBrc8] pr 2=pr 2465536 TED3QI 
281 adr=47@88: zeile=104:MEMORY adr-i IFBS6] 291 1F pr&>pr2 THEN PRINT"Pruefsummenfehler 

282 READ d$: IF d$="#ENDEx"THEN 293 EBBFEI in Zeile";zeile:STOP Laa181 
283 pr=i ta118] 292 zeile-zeile+1:G0T0 282 EBF6EI 
283 FOR i=1 TO 8 [266E) 293 SAVE"FIRE.GRA" ‚B,59888,&58@: END LLAFBI 
295 READ a$ra=vAl ("al+as) 13ac1 

286 POKE adr ‚aradr=adr+1 z ® 

287 pr=pr*2:IF pr>65535 THEN pr=pr-65535 CD9ABI Listing 2. Die Grafikroutinen (Schluß) 

100 'nunnernunnnnrennneeeenennnnnnnnnereee [SID] 188 DATA 9984,@0,CC,45,99,DD,23,DD,23,35CD LAICEI 
1@1 ‘*FIRECODE.DAT - DATA-Lader von 'CPC’* [2A9®I 189 DATA 99@C,DD}23,DD,BE,@®,CC,45,99,7523 LFAF&] 
102. LASDEI 198 DATA 9914,DD,23,DD,25,DD,23,DD,BE,78B@ LEBICI 
103 ' EDEB&J 191 DATA 5,99,DD,23,DD,23,35CD L99E21 
104 DATA 9664,DD,5E,@2,DD,7E,84,DD,46,768C LDFF&1 192 DATA IDBE,@@,CC,45,99,7523 LBBDB] 
1805 DATA 966,01 ,DD,4E,0@,CD,BA, 9,3871 [330AJ 193 DATA D}23,DD}23,DD,BE, 7858 [A942] 
10& DATA 9674,DD)5E,@2,DD,7E,@4,DD,46,768C L7SFAI 194 DATA 5,99,DD,23,DD,23,55CD LAiCE] 
187 DATA 967C,01,DD,4E,@@,CD,2E,91 LESE2] 195 DATA D,BE,@@,CC,45,99,7523 LE4F&] 
i@8 DATA 9684,CD,09, }BB,FE,68,Ci LFF4EI 196 DATA ‚1F,A4,DD,BE,@1,CA,6778 L7E18] 
1989 DATA 18, = 6, BESE LEBFAAI 197 DATA 994C,52,99,3A,1E, na, C9,EL1,E1,GEC7 LIAFEI 
119 DATA C36DA1 198 DATA ;2,3F,A4,32,4B,AA,415C [04761 
111 DATA E39F@1 197 DATA \D6}@2,5F,DD,7E,7C88 [575C1 
112 DATA F6AA,3A,10,AA,E6,@ L3SFB4] 208 DATA ‚CD,8B,9C,FE,801,3A45 L[73AC] 
113 DATA 96AC,3A,18,A4,E6,0 L2E9®) 221 DATA ‚FE,23,CA,7B,79,645F [3E2A] 
114 DATA 96B4,CD,D3,98,3A,1 LEZACI 282 DATA }CB}C&,23,34,DD,0177 LIF96] 
115 DATA 96BC,FE,02,CC,ES, 138281 283 DATA \86,5F ‚DD, 7E,@1,2651 [EEA4I 
116 DATA 96C4 ,E6,81,04,n4,9 t91A2] 284 DATA }8B)9C,FE,01,CA,7548 L7CEA1 
117 DATA 96CC,E6,83,FE,03,CC cc242) | 285 Data 183,CA,9A,99,21,719B LFIFA] 
118 DATA 96D4,10,A4,E6,07,F t5D18] | 29& Data }CE,23,34,DD,7E,230C L8100) 
119 DATA 96DC,9A,3A,1@,A4,E6,05, LEBF6] 207 DATA 2,5F,DD,7E,01,D6,32F4 [7AC6] 
128 DATA 96E4,96,DD}21,2D,A4,C 128664) | 288 DATA D/BB,9C,FE,81,CA,B9,2059 [9A241 
121 DATA 96EC,3A,2D,A4,B7 ,Cı t22FE) | 289 DATA E,@3,CA,B9,99,21,3F,7811 LABEAI 


122 DATA 96F4,2F „AA,SF,SA,ZE, Eh 
123 DATA 96FC,96,CD,BA,9C,3A,ZI 
124 DATA 9704,47,CA,1D,7 
125 DATA 970C,32,2F ,A4,SF, SA 
126 DATA 9714,4B,27,A4,CD,B 


CiFAB) 21@ DATA 99BA,, Ra, CB}D6,23,34,DD,7E,02,7AlA LOEE2I 
[71441 211 DATA 99BC,C6,@2,5F,DD,7E,01,C6,06,67CE 167001 
C3ADBI 212 DATA 99C4,CD,8B,9C,FE,@1,CA,D8,97,5427 (BB4Q1 
C9DEA) 213 DATA 99CC}FE,@S,CA,DE,99,21,3F,AA,6F96 LSF20 
CABBBI 214 DATA 9904,CB,DE,23,34,3A,40,A4,FE,5446 [5@D8] 


127 DATA 18C44) 215 DATA 99DC,01,C2,E7,99,3A,3F,A4,DD,25C9 (6610) 
128 DATA CD4D6) 21& DATA 99E4,77)08,09,FE,02,02,F6,99,2F2D LBCE4] 
129 DATA £895C1 217 DATA SIECsSR, SF,A4,DD,As,00,CA,AS,@F77 [35141 
1390 DATA TEBICI 218 DATA 3A)C9,ED,SF,CB,57,CA,20,61A® LFC2C) 
131 DATA ca000] 219 DATA gBEc, 9A,3A,1E,A4,DD,BE,@1,DA,AECH L2D7EI 
132 DATA La7cA] 22@ DATA 9AB4}13,FA,SA,SF,AM,CB,SF,CA,ZDCB [DAlAı 


133 DATA, „3A, LES88] 221 DATA 9ARC,AS,9A,DD}36,00,08,C9,SA,1EA8 LIEABI 
134 DATA '9754,5F ,34,2E,A4,3C,32, CABACI 222 DATA 9A14,3F,A4,CB,57,CA,43,9A,DD,2C25 LC506) 
135 DATA 975C,ED}AB,27,A4,CD,BA,9C,SA,6F62 LADAAJ 223 DATA 9A1C}36,00,04,C9,3A,1F,A4,DD,1729 LALIE) 
138 DATA 9764) 10,A4)E6,07,C2,79,97,DD,SBB7 (ABBA] 224 DATA 9A24,BE,@2,DA,S6,7A,3A,SF,AA,4342 [A9BCI 
137 DATA 976C,21,50,A4,CD, BER 99,DD,21,0587 L8SBEI 325 DATA 9A2C)CB,AF,CA,AS,9A,DD,36,00,4CF8 [SES4) 
138 DATA 9774,33,A4,CD}55,99,3A,18,A4,28D4 [598E] 226 DATA 9A34,02,09,3A,3F,A4,CB,47,CA,SiBB LZDE&I 
139 DATA 977C,E6,01,C2,0C,98,DD,21,30,6C@6 L[2C9E] 227 DATA 9ASC,4S,9A,DD,36,0@,01,C9,ED,1EBB [6306] 
140 DATA 9784,A4,DD}7E,08,B7,CA,FC,97,6D7F [893A] 228 DATA 9As4,5FJIF,E6,03,C2,58,9A,5A,S2CE LOCE2I 
141 DATA 978C,DD, 7E,@2,5F,DD,7E,@1,01,73A5 L9EDEI 229 DATA 9AAC,SF)AS)E&,B1,CA,A3,9A,DD,2CES [00541 
142 DATA 9794,08,76,CD, 'C,DD,7E,@8,34E8 [A1FE] 23® DATA 9A54,36,80,81,C9,FE,B1,C2,6A,11AA LBBO@I 
143 DATA 979C,CB,47 ‚@2,6152  [39F41 231 DATA FASC,FA,SA,SF,AA,E6,@2,CA,AS,AGCF LIBQEI 
144 DATA 97A4,3D,DD,77,@2,5F,DD,7E,01,2671 L[D7C61 232 DATA 9A64}9A)DD,36,80,02,C9,FE,02,7EAA LECD@) 
145 DATA 97AC,ED,4B,29,A4,CD,BA,3C,C3,6ESB [4882] 333 DATA PA&C,C2,7C,FA,SA,SF,A4,E6,04,6C4B LF6F@I 
14& DATA 97BA}FC,77,CB,AF)CA,DB,97,DD,42B5 [5854] 23a DATA 9A74,CA,4S,9A,DD,56,00,04,C9,6A21 LBDABI 
147 DATA 97BC,7E,02,3C,DD,77,@2,5F,DD,56053 L[BCE4] 235 DATA 9A7C}SA,SF,AA,E6,QB,CH,AS,9A,OBSA [OSF21 


148 DATA }4B)29,A4,CD,BA,24A8 LACIE) 236 DATA 9AB4/DD}36,80,08,C9,3,22,AA,65CQ LOBBEI 
149 DATA LSDAB] 237 DATA PABC,FE,@2,CA,A2,9A,SE,U2,32,6BFE LABIA) 
158 DATA (9202) 238 DATA 9A94,22,04,21,88,92,22,20,A4,sasct LOFZEI 
151 DATA £55DC1 239 DATA 9A9C}11,1C,A2,CD,D3,9F,97,C9,1215 LFIE6] 
152 DATA 166861 2a@ DATA 9AAA}SA,27,AA,FE,QB,CA,B2,9A,BDS6 LOFFEI 
153 DATA Lasıcı 241 DATA 9AAC,21,08,93,C3,B5,9A,21,48,0B1A [D2981 
154 DATA 143481 242 DATA 9ABA,93,22,27,A9,C9,3R,27,A4,49F6 LEFARI 
155 DATA c2878] 243 DATA FABC,FE,88,CA,C7,9A,21,88,93,ADE7 1A5481 
156 DATA EcSAB] 244 DATA 9ACA,CS,CA,9A,21,08,93,22,27,4631 LD4901 
157 DATA 980C,5 \4,E6,0F,C2,27,98,005A L2F921 245 DATA 9ACC,AA,C9,3A,2B,A4,FE,OB,CA,6SB2 [2546] 


158 DATA 9814,DD,21,36,A4,CD,55,79,DD,6093 LS6E6] 24& DATA 9ADA,DC,7A,21,08,94,C5,DF,9A,4ARB LBAZAI 
159 DATA 981C)21,39,A4,CD,55,97,DD,21,@7C7 TA@BA) 247 DATA 9ADC,21,48,94,22,2B,A4,C9,3A,1040 LE6B4] 
160 DATA 9824,30,A4,CD)55,99,3A,18,A4,2F54 LA99Al 248 DATA FAEA,22,A4,B7,C2,FF,9A,3R,28,2704 LDOCEI 
161 DATA 36,67AB LF2C2I 249 DATA 9AEC,A4,FE,88,CA,F8,9A,21,88,7542 [A430] 


162 DATA C1F28] 258 DATA 9AF4,91,C3,FB,9A,21,08,91,22,6DAB L25E41 
163 DATA CB1D8] 251 DATA 9AFC,28,A4,C9,FE,@1,C2,17,9B,2C69 LEFFCI 
164 DATA LEAFEI 252 DATA 9B04,3A,20,A4,FE,@8,CA,12,9B,0DB7 LBADE] 
165 DATA EDS1AJ 253 DATA 9BRC}21,@8,92,C3,15,9B,21,48,QESE L8S4E] 


166 DATA 9854, SD, jop, 177% ‚a2, MH MM DIE ‚ai, 2671 IC4B8] 254 DATA 9814,92, 122, 28,A4,C09, ;3n, ‚20, yAa, 4984 LBC4EI 
167 DATA 98SC,EI B, ZB,A4, co) BA,IC, cs, sE1B L&17E) 255 DATA FBiC,FE, 88, CcA,27, 38, 21,88, 92, ASEE [B786] 
168 DATA 9864 ,AC,78, ’CB, af ,CA, ve, ‚98,DD, }&82D LıF3Al 256 DATA 9B24,C3, 2A, MH 521 c8,' MH ‚22, 20, }7EIC T288E1 
169 DATA 986C,7E, a2, 3C, DD, 77,82,5F,DD,36@83 [27D61 257 DATA 9B2C,A4, cs, CD,24, BB, 32, 1D,A4,7EZE LCB3S8] 
178 DATA 9874,7E,B1,ED,4B, 28}, A4,CD, BA, 2468 [1212] 258 DATA 9B34,C9, 3A, 1D, MH CB,67,C04,47, N6SEB LEBSBEI 
171 DATA 987C, °C, c3, Ac, 98,CB,57,CA,9A,64CA [455C] 259 DATA 983C,90,CB,47,CA,77, 98, ‚3A,iF,79BF [A168] 
172 DATA 988: ID, 7E, ya2, SF, ‚DD, TE, Bi, ;75D1 TaBEAI 268 DATA 9B44,A4,3D, SE, SA,IE, MH C6,82, )S6EE EBBEE] 
173 DATA 988C,3D, DD, 77,81, ED, 4B,2B, AA, 2186 ICAEBI 261 DATA 9BAC, ‚CD, 8B, IC, FE, es, CC,89,9A,5A80 LF456] 
174 DATA 9894,CD,BA, ,9C, jes; ac, ,98, DD,7E, 15174 LFS54C] 262 DATA 9B54,FE, ’a2, CB, SA,iF, HYH ‚SF 3A, }87CC ctc81Cc] 
175 DATA 98% F1DD17£.01.36.0D,77,0BBS ICEBEI | 263 DATA 9BSC,1E,A4,1,88,96,CD,BA,9C,20CC LEEBAI 
176 DATA 98A4,B1,ED, JaB, CH AA ,| CD, BA,SIC, S7EC L[CD56] 264 DATA 9B64,3A, ı1F,na SD, 32} 1F,AA,SF, Jonas EBSECI 
177 DATA 98AC, DD, ES,E1,3E,3C,BD,CA, ‚BE, 4ASE TEZBCI 245 DATA 9B&C, ‚3a, 1E,A ED, ‚48,28, Aa) co, 838D L&4241 
178 DATA 98B4,98,DD,23,DD, u23, DD,23, cz, 7819 [8408] 266 DATA 9B74, JBA}9C,C9,CB, Jar, CA,B2, I9B} FF [L6A9BI 
179 DATA 98BC,35,79,3A,44,A4,FE,84,08,3798 L[1CDC] 267 DATA 9B7C, 3A,1F,A4,C6,84,5F, ;3A, 1E,8316& L72CC] 
188 DATA 98C4,CD,DS, ‚98, ZA, MICH YA, 2B,7C, 34372 [a6&CcA] 268 DATA 97B84 /A4)C6,82,CD, 8B, ,3C, IFE} L.x77 36ac7 TBE28] 
ı81 DATA 96C1 5,C2,CA,98, Ess 84,96, DD, 7F39 [0854] 267 DATA 9B8C,CC,87,9A,FE, 22, ca, SA,iF,SBBB (84781 
182 DATA 98D4,21,15, MY SA,IE, MT DD,BE, j2184 [B3C6] 27@ DATA 9894, na. „SF ,3A,1E,AA, ‚ei, ‚as; 96, 13602 LEBFAI 
1a Dan Fene" a0’ 26,as)9910D.23.DD,25,35CD E9BBB] | 271 DATA FB9C.CD,BA,TC,SA,1F,AA,SC,S2,S002 [91201 
1 DATA de ID, ‚BER, „EC, 2: zer ‚DD, ‚23, en ter 
‚85 DATA :C,DD,23,DD,BE, 45,79, [BA16; ä ii ii I. 
182 DATA sGFA!DD}23,DD,23,DD,BE,@@,CC,7B@C LECS6I Listing 3. Annähernd 3 KByte Code bilden die Maschinen 
187 DATA 98FC,45,99,DD,21,2E,A4,DD,BE,1F74 L@B4A] Routinen 


113 


a u __ —i 


272 
273 
274 
275 
27& 
277 
278 
277 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
274 
295 
296 
297 
298 
299 
s2B 
301 
302 
303 
304 
305 
386 
307 
Er} 
307 
ET} 
Si 
312 
313 
314 
315 
316 
317 
sı8 
317 
328 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
36Q 
361 
362 
343 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 


DaTa 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BA ,1F,A4,SF „SA, 1E,A4,ED,4B,2D31 
9BAC,20,A4,CD}BA,9C,C9,CB,57,2Das 
9BB4 ,CA,EC,9B, SA, 1F,A4/C6,82,4D26 
9BBC,5F,SA, 1E,A4,3D,CD,88,9C,2BD6 
9BC4,FE,03,CC,89,9A,FE,92,C8.6934 
9ECC,3A,1F,A4,5F,3,1E,A3,01,@B51 
98D4 ‚08,76, CD, BA,3C, 3A, 1F,A4,3712 
9BDC, SF ,3A,1E,A4,3D,32, 1E,A4,2938 
9BE4JED,AB, 28, A4,CD}BA}9C,C9,6F71 
9BEC,CB,SF,C8, SA, 1F,A4,C6,@2,6BQ6 
9BFA,SF ‚3A, 1E,A4,C6,84,CD,BB,2FB1 
SBFC,9C,FE,@3,CC,89,9A,FE,@2,7AFE 
9CB4,C8, 3A, 1F,A4,5F,3A,1E,A4,61AB 
9CaC,81,88,96,CD,BA,9C, SA} IF, 1BSB 
9C14,A4,5F ‚3A, 1E,A4,30,32,1E,46CA 
9C1C,A4,ED, AB, 20,A4,CD,BA,9C,&SDC 
9C24,C9,21, Ä 5,7E,FE,FF,&SFS 
9C2C,C2, 38,4 7,23,35,7E,7FF@ 
9C34 ,FE,FF,C2,3B,9C,E1,C9,3A,SDFC 
9CSC, 11,A4,CD,39,9D,3E,AD, 1E,3F24 
9C44 ,31 ,CD}2E,7D,3A,12,A4,CD,27CD 
FCAC,S9,9D, 5 
9C54,90,C9, 2 
scan ER Eh 


er Ei 
9C7C ‚ED,4B, 1 
9C84,23,DD,, 
FCAC,43,CA, 
9C94,9E,9C, 
9C9C, 20,09, 
FCAA)F6, DL, 
9CAC,@2,CB), 
FCBA,CB,4E, 
SCBC,43,CA, 
3CCAJES,QG, 
ICCC,S@,0R, 
9CD4,C9,1D, 
SCDC, 28,20, 
FCEA JEI ES, 
SCECJCDIFA,ICHEL 
9CF4,86,04,CD, En 
sc 


»BA, 9C, DD, 6985 
@,E7,C9,CB,2CF5 
D,@B,9D,C3,@FBD 
B,9D,01,00,655E 
E,CA,A6,9C,@D18 
AD,9C,F&,62ER 


FCFC,84,1A,77, 
JDB4,FC,07,09, 
FDOC,@8,QE,28,1 


9D1C, 18,F7,5F,19,1 5 
9024 ,C9,CD,89,BB,FE,73,C2,25,SACD 
902C, 9D,C#,C5,CD,@B,9D,D1,84,4B38 
9034 ,88,CD,FA,9C,09,47,94,21,26BD 
9DSC,AB,94,11,20,08,19,18,FD,7199 
9044 ,44,,4D,C9, 34,22, ‚Aa :B7, »C2,29EC 
9D4C,57,9D,3A,1D 


14,32, 41,A4 
9D7C,04,32,42,n. 


A.7548 
9DBC,C3,9D,3E,08,32,43,A4,34,486E 
90C4,43,A4,47,05,34,42,A4}5F \BDFF 
9DCC,SA,41,A4,01,88,96,CD,BA,IAES 
DD. A,42,n4,30,32,42 
A,41,A4,01,88,9 


s1E,AM, 32} 4 
F,A4,C6,84,32,42,53526 
9E14,A4,5F,3A,41,A4,01,88,94,4238 
9EIC,CDJBA,IC,CD,FC,9F)11,Z 
9E24 ,A2,CD,DS,9F,3A,42,A4}Cı 
9E2C,86,5F,30,21,A4,C6,@2,CD,1161 
9E34 ,8B,9C,FE,@1,CA,AB,9F ‚SE, 7BAC 
9ESC,04,32,43,A4,30,42,A4)C6,@DF& 
944 JOR, Si 
SESCHEBNEE, 


SERIE „42, 
2,A4,5F,3A,41,5B87 
9E74,A4 ,01,88,94,CD,BA}9C,CDJAF7S 
9E7C,FC,9F,C1,18,DB,CS,AB}IF,44FD 
9E84 ,CH,57,CA,17,9F,3A,1F,A4J6C1A 
9E8C,C6,02,5F ‚3A, 1E,A4,D6,@2,4BBE 
9E94,CD,8B,9C,FE,@1,CA,4E,9D,5BQ1 
9E9C,SA,1E,A4,D6,04,32,41,A4,@SAE 
JEAA ‚SA, 1F,A4,32,42,A4,5F,SA,0D6a 
9EAC,A1,A4,D1 ‚88,74, CD, BA} 9C,@7SC 
9EB4 ,CD,FC,9F,11,26,A2,CD,D3,4981 
gEBC,9F ‚34,42, A4,C6,92,5F,3A,ASBC 
9E04,41,A4,D6,82,CD,BB,9C,FE,14E2 
9ECC,01,CA,AB,9F,SE,@4,32,43,2F57 
9ED4,A4,3A,42,A4,06,92,5F,3A,583C 
9EDC,21,A4,D6,86,CD,8B}3C,FE,162 
gEEA,B1}CA,ED,9E,SE,08)32,43,2767 


[@BS4] 
CABAS] 
[37F23 
LBABEI 
[CBEAI 
[8E74] 
[29FEI 
£S6DCI 
LCB921 
EFCa@] 
12512] 
£C5D4] 
15782] 
C55DAJ 
c912AJ 
c4Da@1 
LAZFCI 
CE874] 
[DSEAI 
LACSE] 
CB9DEI 
12188) 
18A723 
CSCIC9 
[6538] 
£C278] 
CEB141 
ECAECI 
[85381 
LA9CA] 
(8B5@] 
CFFD2] 
[FiEZI 
£D77C1 
ESF68] 
£6B28] 
[3198] 
13984) 
187383 
L8F26] 
[7@DEI 
EC8543 
CB9DC1 
ECAE6I 
Car1al 
ED33A] 
CEB243 
L78783 
[B6CBI 
CBC9CI 
£D32C1 
[46021 
C118A] 
CEB241 
EDFD2I 
LFEB@] 
[6F1EI 
EF2DCI 
CAIFAI 
135881 
C198AJ 
EICF2] 
c558A1 
[B6IEI 
EFECEI 
128521 
CBBDa] 
caDsa] 
1594C] 
19864) 
[67€2] 
£539C3 
tE9741 
LEBABI 
LFFAAI 
14448] 
CEESAI 
CESDEI 
C2DB@J 
ECEACI 
[2828] 
EBIBEI 
CDA2CI 
[DSE21 
[20561 
C11CAI 
C6SCEI 
ESFBEI 
14428] 
CE114] 
[4326] 
EIFFa] 
CD@D&1 
ED14C1 
L9SEEI 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


READ 
r=@ 


READ 
POKE 


NEXT 


pr=pr#2: IF 
Pr=UNT (pr) X! 
& 


gEEC,A4,3A,43,44,47,C5,3A,42,5FBA 
JEF4,A4,5F,SA,41,A4,01,88,96,4332 
JEFC,CD,BA,9C, 3A,42,A4}5F,30,5824 
E04 ,41,04,3D,32,41,A4,21,88,0D12 
FFOC,94,CD,BA,9C,CD,FC}9F)C1,637 
9F14,18,DB,C3,AB,9F ‚CB, SF CA, 2BEQ 
9FIC,AE,9D,SA,1F,A4,C6,02,5F,0093 
9F24,3A,1E,A4,C6,86,CD,8B,7C,BGEE 
9F2C,FE,@1,CA,4E,9D,3A} 1E,A4,6678 
9F34,C6,84,32,41,A4}3A,1F,A4,6502 
9E3C,32,42,A4,5F,3A,21,A4,01,194D 
9F44,88,94,CD,BA}9C,CD}FC,9F}7SBS 
9FAC, 11,26,A2,CD,DS,9F,3A,42, 1042 
9F54,A4,C6,02,5F ,34,41/A4,C6,676A 
9FSC,@6,CD,8B,9C,FE,@L1,CA,AB}ZE2B 
9E64 ,9F ,3E,04,32,43,A4 34,42, 431E 
FF&C AA C6,02,5F,30,41,A4,06,676A 
9F74 ‚@A,CD,8B,9CFE,@1,CA/82,2802 
9E7C,9F ,SE,08,32,43,A4, 30,43, 429F 
FF84,A4,47,C5,30,42,A4}5F ,SA,58C4 
9FEC,41,A4,01,08,96,CD}BA}FC,@FAC 
9F94,3A,42,A4,5F ,34,41,A4) SC, 1D58 
9F9C,32,41,A4,81,88,94,CD,BA} 1AEO 
9FAA ,3C,CD,FC,9F)C1,10,DB,SA,GCFA 
9FAC,42,A4,5F ‚3N,41,A4,01,08,B0D2 
9FBA ‚96, CD, BA}9C,3A,22,A4/SD}66ED 
9FEC, 32, 22,A4,CD,ES, 9A, SA, IFJOCCB 
JFCA ‚AA SF ,3A, 1E,A4ED}4B)20,4542 
9FCC,A4,CD}BA,9C,CS,AE,9D)21,79FB 
9FD4 CB, AD, 1A,77,13,2B,1,77)4F07 
9FDC, 13,28, 14,77, 13,25, 1A,77,87@7 
JFEA,13,2B,1A,77,13,2B,7E,77,@7CF 
9FEC, 13, 2B,1A,77,13,2B,1A,77,0707 
9FF4,13,2B,1A,77,CD,AA,BC,C9,@2Q1 
FFFC,3A,41,A4,DD)21,15,A4,DD}14D9 
ABB ‚BE ‚08, CC, 74 ,AB,DD,23,DD,472F 
ABaC ‚23, DD, BE,@8,CC, 74,AB,DD,372D 
AB14,23,DD}23,DD,BE,@®,CC,74)2B&C 
AB1C,AQ,DD,23,DD,23,DD,BE,00,&DE@ 
AB@24,CC,74,AB,DD,21,2D,A4,DD}&2F? 
AB2C,BE,@1,CC,92,A@,DD, 25,DD,A9@F 
A@34,23,DD,23,DD,BE,@1 ,CC,72,2BBE 
ABSC,AB,DD,25,DD,23,DD,23,DD,4C07 
AB44,BE,@1,CC,92,AQ,DD}23,DD,A9QF 
A@4C, 23, DD, 23,DD} BE,@1}CC, 72, 2BBE 
AQS4,AQ,DD, 23,DD}23,DD,23,DD,4C07 
ABSC,BE,@1,CC,92,AQ, DD, 23,DD}A90F 
AQ64 ,23,DD,23,DD, BE,@1,CC, 72) 2BBE 
AB6C,AQ,CD,19,BD,CD, 19,BD,C9,4COF 
A@74,34,42,A4,DD,BE,81,CA)G1 1031 
AQ7C,AQ,3A,41,A4,C9} 06, @A,CD,5A&9 
AQB4 ,33,A1,DD,36,00,00,21,44,2906 
ABEC,A4,34,3A,41,A4,C9, 34,44, 5As4 
AB94,A4,FE,04,C2,9E,AB,3A,41,6765 
AB9C,A4,C9,34,42,A4,DD,BE,@2)640A 
ABA4CA,AB,AB,3A,41,A4,C9)DD,59B7 
Ban: = & 7D, E 2 = B9, ‚20 4932 


A, 17,A4,B7,CA,CC,AQ}S108 
1,38, 18,A4,DD,77,735D 
1,A4,C9,CB,57,CA,GBEG 
A} 19,A4,87,CA,CC,2534 
„AB, 7,81,34, 1A,A4,DD, 699D 
A114, 77,@2,3A,41,A4,C9 CB} SF,SF9D 
ALIC,CA,CC,AB, 5A} 1B,A4)B7)CA)A2AC 
A124, CC,AB,DD,77,81,3A,1C,A4,52AC 
A12C,DD,77,02,3A,41,A4,C9}21, 7185 
A134,23,A4,34,7€ ‚FE,0A,C2,5D}SFE1 
AISC,A1,36,00,23,34,7E,FE,@A,SEIE 
A144,C2,5D,A1,36,00,23,34,7E,619A 
ALAC,FE,9A,C2,5D,A1,36,00,23,6563 
8A,C2,5D,A1,36,1CF@ 
A, 26,A4,CD,39, 1F23 
E,31,CD,2E,9D,433D 
»5A,25, D,37,9D, SE, 11,0FC1 
A174,1E,31,CD,2E,9D,3A,24,A4)ICEC 
A17C,CD,39,9D,3E,15, 1E,31,CD}79FF 
A184, 2E,90,3A,23,A4,CD,39,9D)33CB 
ALBC,SE,19, 1, ‚CD, 2E,9D,C9, 1EBS 
"ENDE« 


A1SC, 00, 18,D« 
A164,9D,3E,0 


adr=%9664:zeile=104:MEMORY adr-i 


ds: IF ds: 


ENDE#«"THEN 475 


OR i=1 TO 8 


afza=VAL("&"+as) 
adr ‚aradr=adr+1 
BR ?63535 THEN pr<pr-65535 


i 


READ pr$:pr2=VAL("&"+pr$) IF pr2<@ THEN 


pr2=pr 2465536 


IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
in Zeile 

zeileszeile+1:G0T0 464 
SAVE"FIRE.BIN" ‚B,&9664 ‚LBS@: END 


eile:STOP 


ing 3. Die Maschinenroutinen (Schluß) 


IR a:IF pr<® THEN pr=pr+6553 


Eailaı 
cDi841 
ECS4EI 
L42381 
TE@961 
[3C6B] 
C9SDEI 
[S21E1 
[3E341 
ESCACH 
125961 
[&B861 
ECEDEI 
[74C91 
E1676] 
c2C881 
EB4Eß] 
EcAaa] 
CESCHI 
LDEDAI 
E311@1 
C72BC1 
EC4EBI 
[91761 
£9D821 
L1SSE] 
EFCS6] 
L71E61 
L498C1 
[89081 
c518A] 
[C2C8] 
LA19@] 
CFSF2] 
ED804] 
[S1E6] 
C89001 
[6468] 
CaAICI 
C9BFEI 
679141 
[SYFEI 
LA9161 
E74EEI 
EBE12] 
LAAFBI 
£7514] 
E67FEI 
EDB6A 
L329E] 
[33D8J 
E13acC9 
E58A6) 
L1BAB] 
EDIEEI 
CBB2C 
183281 
L929C3 
C3SAEI 
C1E6Q1 
625741 
cA3281 
TEQAEI 
CaaDsı 
EBFFAI 
C61Dal 
EDAF23 
[B1C0) 
CEBFEI 
L98D63 
cD338] 
L98E8] 
LEFAAI 
E5apc9 
EBSBEI 
EFASAI 
CC7B8] 
LO4EB1 
[Cage] 
ED7FAI 
EB7EAI 
La1a8] 
La93C9 
CDAF6I 
CIEIB] 
LA1cc9 
CE93A1 
122A61 
Eeiic) 
EDE721 
EFDSQ1 
E1E2C9 
EAFACI 


C16B2] 
[28081 


187941 
EccIC9 


EDF761 
[69021 
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on 


—— 


Sortieren von 
Fließkommazahlen 


Nach diversen String-Sortierroutinen bieten wir 
Ihnen nun auch einen schnellen Algorithmus für 
Fließkommazahlen, den Sie als Maschinencode- 
Routine einbinden können. 


Dezimalbrüche in aufsteigender Reihenfolge geordnet 
darzustellen. Eine schnelle Hilfe dafür ist die Maschinen- 
code-Routine »Sort-Flo«. Sie sortiert 100 Zahlen in nur 5 
Sekunden! Dazu bedient sie sich des unter dem Namen 
»Quicksort« bekannten Sortierverfahrens. Dabei wird jeweils 


| mmer wieder stößt der Programmierer auf das Problem, 


100 [DEB@I 
118 ‘Sortierroutine fuer Fliesskommazahlen 

auf CPC 464 tEıac1 

128 TEOBA] 

13@ ‘(C) 1986 by Dirk Haltermann CB76C1 

148 Lusftibergstr.1 £31C@1 

158 85 £3C7C1 

160 ! E@4BC) 
170 "Basiclader: Aufruf mit CALL LABBA,@ALB 

),Anzahl der Elemente-i 1@C34) 

180 ' 18608] 

190 DATA Agan,FE,Q2,CQ,ED,55,00,AB,ED,en6S CSRDEI 

}DD,6E,@2,DD,66,3274 [45681 

4,00,22,08,AQ,11,@SE1 L9EE@I 

‚22,86,AB,ED,SB,@@B1 LBF1BI 

DD,E1,D5,FD,E1,3837 L[CöFCI 

FD,BE,04,58,48,7B6® (12BE] 

AGSA, 20,39,B7,28,42,DD,7E,@3,@BFB [D8B21 

260 DATA ABAZ,FD,AE,GS,FA,74,AQ,DD,7E,524 (9B16] 

AaAA,0S,FD,96,03,28, 1D,DD,7E,2 139881 

AQ52,02,FD, E27 ’02,20,15,DD,7E,2C3@ [87721 

D,96,01,2@,0D,DD,7E,2DE@ L4ED®] 

»00,28,17,9F,FD,2D67 LF196J 

„11,3C,C3,4FEF [7@EE] 

A972,81 ,AQ,DD,7E,83,C3,6C,A8,77AC (SCD@1 

330 DATA AQ7A,FD,7E,03,2F,C3,6C,AB,DA,65A2 [E2121 

340 DATA ABB2,, er sn 22,08,AB,2A,@2,AB,sAAC L3C521 


400 DATA ABB2, jEB} 7a, 12, 13, 23; as, 1A, JEB,, anzr LF396] 
418 DATA AQBA,7@,12,13, 25, 46, 1a, EB,7@,3F2E [2478] 
428 DATA ABC2,12,97, 2A), KH EHEN) ‚ar, ‚oo, 2CC& [8814] 
438 DATA AacA,ED,52, aa, AB, 22, @2,7BE6& L[CA98]I 
448 DATA ABD2,AB,2A, ‚Cc3,1E,A@,88,5728 [80521 
458 DATA #ENDE* [4806] 
468 adr=&ABBA: zeile=198: MEMORY KAFFF [6EB8] 
478 READ d$: IF d$="#ENDE#"THEN #1@ [B68E] 
280 [BE161 
498 Far i=s1 T08 L9CECI 
soo za=VvAL( el 18138] 
sıo FOre adr ‚asadr=a tAD14] 
320 preprxzıir pr 565535 HEN pr=pr-65535___ TAF941 
530 pr=UNT(pr)XOR a:IF pr<® THEN pr=pr+6553 
L[3FACI 
548 NEXT i 14682] 
558 READ pr$ipr2=VAL("&"+pr$)sIF pr2<® THEN 
pr2=pr2+6553& TADBEI 
568 2 HRusttee THEN PRINT"Pruefsummenfehler 
le";zeile:STOP [9616] 
578 PNE: le+1:60T0 478 L196AJ 
588 ' LAECBI 
598 "Demo: Sortieren von 188 Fliesskommazah 
len L1E88] 
som ' CacBaı 


61® DIM a(10B):FOR i=® TO 99:a(i)=RND«1B@B: 
NEX 


T CA2741 
628 FOR i=@® TO 99:PRINT ati); :NEXT:PRINT:PR 
INT 


ECSCI 

630 ' tarca] 

640 ‘Sortieren CB1381 

65@° [BiCa] 

668 z=TIME [B3441 

678 CALL LAUBA,@a(0) ‚97 LB0DA1 

688 z= (TIME-2)/308 E2BBC1 
698 FOR i=® TO 99:PRINT a(i);:NEXT:PRINT=PR 

INT LC2&A1 

780 PRINT"Zeit =";25 "Sekunden" LIEEAI 


Listing 1. Basic-Lader und Demonstration zu Sort-Flo 


das größte Element des Felds gesucht, mit dem letzten Ele- 
ment vertauscht und die Anzahl um 1 vermindert. Dieser Vor- 
gang wiederholt sich, bis die Sortierung abgeschlossen ist. 

Listing 1 enthält neben dem Basic-Lader in den Zeilen ab 
580 eine Demonstration der Geschwindigkeit. Es erzeugt 
den Maschinencode ab Adresse ADOA hex. Der Aufruf lautet 
CALL &A0OOA,adresse,anzahl 
<adresse> stehtfür die Adresse der ersten Zahl im Arbeits- 
speicher. Das braucht Sie aber nicht zu beängstigen, denn 
die Berechnung dieser Adresse überlassen Sie dem Basic- 
Interpreter mit dem Variablenpointer »@«. Die Menge der 
unsortierten Zahlen minus 1 übergeben Sie in der Variablen 
<anzahl>. Haben Sie beispielsweise ein Variablenfeld a() 
mit 101 Elementen (DIM a(100)) zu sortieren, geben Sie ein: 
CALL &A0O0A, @a$(0) ‚101 

Wenn Sie sich für die Arbeitsweise genauer interessieren, 
finden Sie in Listing 2 den Assembler-Quellcode. Sort-Flo 
verwendet zur Sortierung eine leicht veränderte Betriebs- 
system-Routine für den Vergleich der Fließkommazahlen. Die 
Verwendung der Kopie hat den Vorteil, daß die Routine im 
RAM schneller ist und die zu sortierenden Variablen auch 
parallel zum Betriebssystem-ROM liegen dürfen. 


In Windeseile sind 100 Fliesskomazahlen sortiert: 


Zeit = 8,563399333 Sekunden 


»Sort-Flo« tritt den Beweis seiner Geschwindigkeit an: 
100 Fließkomma-Zahlen sind in gut einer halben 
Sekunde sortiert. 


Den Bereich von Adresse A000 bis AOO9 hex nutzt Sort- 
Flo als Temporärspeicher für diverse Werte. 

AO00 und A001: Low- und High-Byte der Anzahl der Ele- 
mente minus 1 

A002 und A003: Low- und High-Byte der Anzahl der Ele- 
mente minus 1 

A004 und A005: Low- und High-Byte der Adresse des 
ersten Elements 

A006 und A007: Low- und High-Byte der Vergleichs- 
adresse 

A008 und A009: Low- und High-Byte der Adresse der 
größten Zahl (Dirk Haltermann/ja) 


Steckbrief 


Programm: Sort-Flo 

Computer: CPC 464/664/6128 

Checksummer: | Explora/CPC 

Datenträger: Diskette, Kassette = 
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ds 10 ;Sort FLO CALL &AO0A, @a(0) ‚100 1d a,(de) ;ans Arrayende gesetzt 
ep 2 ;Zwei Parameter ? ex de,hl ;der Wert am Arrayende 
ret nz ;Nein RETURN 1d (h1),b ;kommt an die Adresse 
1d (&a000),de ;Anzahl der Elemente 1d (de),a ;mit dem groessten Wert 
1d (&a002),de ;in &4000 u. &4002 ine de 
1d 1,(ix+2) ;Startadr. in &4004 ine hl 
1d h, (ix+3) zund &4008 1d b,(h1) 
1d (&a004),h1 1d a,(de) 
s1 1d (&a008),h1 ex de,hl 
s2 1d de,5 ;Vergleichsadr. + 5 1d (h1),b 
add hl,de ;in &A006 1d (de),a 
1d (&8006),hl ;Vergleichsadr. ine de 
1d de,(&2008) ;Adr. groesster Wert ine hl 
push hl ;Vergleich 1d b,(h1) 
pop ix 1d a,(de) 
push de ex de,hl 
pop Ay 14 (h1),b 
ld a,(ix+4) 1d (de),a 
ep (Ay+4) ine de 
ir 0,56 ine hl 
jr n2,s5 1d b,(h1) 
or a 1d a, (de) 
jr 2,87 ex de,hl 
1d a, (ix+3) 1d (h1),b 
ı xor (iy+3) 1d (de),a 
| jp n,s5 ine de 
i 14 a,(ix+3) ine hl 
\ sub (iy+3) 14 b,(h1) 
| jr na,s4 1d a,(de) 
1a a,(ix+2) ex de,hl 
sub (iy+2) 1d (h1),b 
jr nz,s4 1d (de),a 
ld a,(ix+1) sub a ;Ist die Anzahl der 
sub (iy+1) 1d h1,(&8000) ;unsortierten Elemente 
jr n2,s4 1d de,1 ;gleich 1, dann stop 
1d a, (ix+0) sbe hl,de 
sub (iy+0) retz 
jr 2,57 1d (&2000),h1 ;sonst Elementenanzahl-1 
sbe a,a 1d (&2002),h1 
xor (1y+3) 1d h1, (&a004) 
83 add a,a Jjp sı ;Sprung zu si 
a4 sbe a,a 
| jr c,87 
| ine a 
| jp 87 
| 85 1d a,(ix+3) 
} Jp 53 
' s6 1d a, (1y+3) 
pl 
Jp 53 
87 Jp c,s8 ;if de)hl zu s8 
1d (&2008),hl ;Adr. vom groesstem Wert 
sg ld h1,(&a002) ;Alle Elemente 
| 1d de,1 ;verglichen ? 
| sub a 
sbe hl,de 
jr 2,59 jwenn ja zu s9 
1d (%a002),h1 ;Elementenanzahl-1 
1d h1,(82006) ;Vergleichsadr. in &A006 
Jjp s2 ;Sprung zu s2 
sg 1d h1,(&2006) ;Elementenaustausch 
1d de,(&2008) ;Das Element mit 
1d b,(h1) ;dem groessten Wert wird 
j Listing 2. Der Assembler-Quellcode enthält die veränderte 
Kopie einer Betriebssystemroutine 
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»Blendende« Grafik 


Fasziniert Sie die Grafikdarstellung eines Amiga, 
haben Sie aber nur einen Schneider-CPC? Dann 
hilft unser Listing Ihrem CPC auf die Sprünge. 


mmer aktueller und beliebter scheint das Thema Grafik zu 
werden. Diesmal haben wir wieder einen ganz außerge- 
wöhnlichen Schmaus für verwöhnte Gaumen. »Blende« 
macht aus jedem CPC (fast) einen »kleinen« Amiga - zumin- 
dest, was die Fähigkeit betrifft, verschiedene Bildschirmsei- 
ten übereinander zu schieben. Durch Variation des Aufrufs 
lassen sich erstaunliche Effekte erzielen: 
- das »neue« Bild schiebt sich über das alte 
- das neue Bild schiebt das alte aus dem Bildschirm hinaus 
- das alte Bild gibt den Blick auf das darunterliegende neue 
frei, indem es nach außen wandert. 

Alle Bewegungen erfolgen dabei mit weichem, pixelweisem 
Scrolling. Spätestens bei Betrachtung der Geschwindigkeit 
zeigt sich aber, daß der CPC nun leider doch kein Amiga ist. 
Dafür bietet »Blende« aber noch andere Vorteile. Esspeichert 
Bildschirme auf Diskette mit einem Platzbedarf von nur 16 
KByte. Das ergibt beim 3-Zoll-Laufwerk eine Ersparnis von je 
1 KByte, bei den Vortex-Laufwerken sogar 4 KByte. Durch 
diese Leistungsmerkmale eignet sich »Blende« hervorragend 
für Bildvorführungen (beispielsweise die beliebten »Dia- 
shows«). Außerdem lassen sich die Farben mitspeichern und 
beim Laden automatisch setzen. Es verzichtet auf RSX- 
Befehle, statt dessen arbeitet es mit eigenen Vektoren, über 
die die gewünschten Routinen erreichbar sind. So läßt sich 
der Assembler-Quellcode (Listing 5) auch als Include-Datei 
für eigene Maschinencode-Programme nutzen. Der Quell- 
text ist für einen Makro-Assembler geschrieben. 

Listing 1 enthält den DATA-Lader. Speichern Sie ihn bitte 
sofort nach der Eingabe. Beim Start erzeugt er automatisch 
die Binärdatei »BLENDE.BIN«. 

Listing 2 demonstriert die Fähigkeiten in Form einer »Dia- 
show«, wenn auf der Programmdiskette vier Bilder »AO.BlL«, 
»A1.BlL«, »A2.BlL«, »A3.BlL« vorliegen. Die Zahl der Bilder 
läßt sich variieren, wenn Sie die FOR-NEXT-Schleife in Zeile 
240 ändern und die zusätzlichen Bilder mit entsprechenden 
Dateinamen versehen (»A4.BlL«, »A5.BlLe«,...). 

Bevor sich die Bilder für diesen Zweck nutzen lassen, müs- 
sen Sie sie in das richtige Speicherformat bringen. Das er- 
ledigt »BLENDE.SAV« (Listing 3), indem es Bildschirminhalte 
komprimiert und wahlweise mitsamt der Farben speichert. 

»BLENDE.LDR« (Listing 4) ist das Gegenstück dazu. Es 
lädt »Blende«-Bilder und zeigt sie auf dem Bildschirm an. 
Gespeicherte Farbinformationen sind mitzuladen. 

Für Nutzung der Effekte in eigenen Programmen laden Sie 
den Maschinencode mit der Befehlsfolge 
MEMORY &5FFF:LOAD ”BLENDE.BIN” 

Zum Aufruf der Routinen dienen folgende Adressen: 
6000 hex: 

Ein Bildschirminhalt wird in den internen Puffer ab Adresse 
6250 hex kopiert. Das Bild hat danach eine Länge von 16000 
Byte und läßt sich aus Basic mit 
SAVE "NAME.BIL”,B,&6250, 16000 
speichern. 

6003 hex: 

Das Bild aus dem Puffer wird auf den Bildschirm gebracht. 
Dieses Bild ist vorher mit 
LOAD "NAME”,&6250 
zu laden. 

6006 hex: 

Das Bild aus dem Puffer schiebt sich von unten pixelweise 

in den Bildschirm. 


6009 hex: 

Das neue Bild aus dem Puffer schiebt sich von oben pixel- 
weise über das alte Bild. 
600C hex: 

Das alte Bild gleitet nach oben und hinterläßt das neue Bild 
aus dem Puffer. 
600F hex: 

Das alte Bild fällt nach unten und gibt den Blick frei auf das 
darunterliegende Bild aus dem Puffer. 

6012 hex: 

Kante an Kante schiebt das von unten kommende neue 
Bild das alte nach oben weg und rückt nach. 

6015 hex: 

Das alte Bild gleitet nach unten, während das neue Bild aus 
dem Puffer von oben folgt. 
6018 hex: 

Das Bild wird mit der angegebenen Farbe mit Zufalls- 
verteilung gelöscht. Basic-Programmierer rufen diese Rou- 
tine mit 
CALL &6018, farbe 
auf. Aus Maschinensprache erfolgt die Parameterübergabe 
im E-Register. 
601B hex: 

Hier werden die aktuellen Farben hinter dem Bildschirm- 
puffer ab AODO hex gelöscht. Zur Speicherung ist nun die 
Angabe der Länge von 16000 auf 16034 Byte zu erhöhen. 
601E hex: Die Farben eines Bildes werden neu gesetzt. 
6021 hex: 

An den Adressen 6021 und 6022 hex steht die Puffer- 
Anfangsadresse (bei der jetzigen Version von »Blende« 
6250 hex). 

Ab A100 hex ist der Speicher für andere Programme frei. 

(Stefan Aust/ja) 


Steckbrief 
Blende 
CPC 464/664/6128 
Checksummer. Explora/CPC 


Datenträgeı Diskette, Kassette 


E31D41 
LAFE2I 
CASDB] 
CDEB6] 


Programm: 
Computer: 


100 HERE 
101 ‘* BLENDE.DAT - DATA-Lader von 'CPC’ # 
102 RR 


124 DATA 6000,C3,77,61,03,93,61,03,23,78E9 
185 DATA 4008,60,C3,58,60,03,FD,6@,03,082F 
18& DATA 6010,34,61,C3,85,6@,03,BD,60,1466 
1907 DATA &@18,C3,B1,61,C3,DC,41,03,F8,4BCA 
108 DATA 6020,61,50,62,06,00,21,89,07,2923 
107 DATA 6028,04,C5,11,00,F8,19,7C,FE,3602 
i1@ DATA 6030,C0,30,04,11,B@,3F,17,E5,683B 
111 DATA 6838, 11,58,62,05,EB,@1,58,0@,1B&C 
112 DATA 6040,ED,Ba,EB,@1,B0,07,09,30,424E 
113 DATA 6048,04,01,50,08,09,C1,18,EB,07C7 
114 
115 


[95343 
EF16A] 


DATA 6@5@,E1,C1,78,FE,C8,20,D1,C7,478B 

DATA 6058,06,88,11,D0,A8,04,C05,21,089B 
11& DATA &060,BQ,FF,19,EB,D5,21,00,C0,&CBC 
117 DATA 6968,C5,EB,@1,50,00,ED,BQ,EB,SFsr 
118 DATA 6878,01,50,07 


127 DATA 6@58,B0,C1,18,CE,09,06,C08,21,6141 
128 DATA s0C9,90,A0,C5,E5,86,07,11,80,7D7E 
127 DATA &0C8,FF,21,80,F7,05,01,50,00,4E3C 
130 DATA 60D8,ED,B®,01,B2,F7,89,70,FE,563A 
1351 DATA 40D9,C0,30,03,06,3F,09,EB,@1,4C0B 
132 DATA s0E8,B@,F7,09,7C,FE,CQ,30,@3,67B3 
133 DATA 60E8,96,3F,09,EB,C1,1@,DD,E1,0443 [277A] 


Listing 1. Der Basic-Lader erzeugt den Maschinencode 
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134 DATA &QFQ,01,50,22,ED,BQ,81,60,FF,1FEB LCF98] 


135 DATA 6@F8,07,C1,12,C6,C9,96,C8,21,3D41 L[F14C1 En 150581 
13& DATA 6198,8@0,A0,C5,E5,85,11,08,00,7Esc LCBaB1 28 Z,PLENDE.SAV -— (C)1986 von Stefan 
157 DATA 6108,21,0@,C8,98,1F,C5,01,S@,@8BE L2Fse1 „M-Aust 3 TorAAı 
138 DATA 6118, ‚aa, JED,} Bo,®1, MH ya7} MH ‚32, 28EE IFASEI s@ Version 1.0 -- 22. 
137 DATA 6118,84,01,50, ca} 29, EB, 81,B0,8716 L[CD@2] 18.1986 [A224 
148 DATA &128, 27, ‚a9, ECM 24, ‚ai, 58, ca}; 09, ;2741 [6892] 48" [82561 
141 DATA 6128, EB, Ci, 18, Ei,El, ‚au, 58, au, 4E7C [8450] 5@ MODE 1:PAPER B:PEN 1 EFED6] 
142 DATA 61380, ED} MH ‚ai, ‚68, FF, MH BrrS 10,SAEE [5AAs] &® IF HIMEM<>&SFFF THEN MEMORY &SFFF:LOA 
145 DATA 6158,C9,C9,06,08,21,50,62,C5,3AC9 L2F861 D" ! BLENDE. BIN" T8BA21 
144 DATA 6140,E5,@5,11,88,FF,21,80,F7,7F6B [05781 7@ buffer=PEEK (&6921) +PEEK (&6922) #256: 1a 
ns naıa Slaaralragısyraiperbanenberazen Eacası ee ae 
6 BO,| ;F7, FE, ‚ca, L6Fi g: "| i Fi 
147 DATA 6158, su ”: 138,09, 5 @1,Ba,F7,BIBB 1379701 ee See LD7B21 
48 6160,08 FE, ‚ca, ‚Si „Bb,sF [7696] ur " 
| 137 bar eis, en: er SB’er" 1o788} 9@ INPUT"Name, um Bild zu speichern: _",s Ge 
DATA & Id, ED) B58,C1,18,C9,C9,86, 12388 [1746 w ” 
1s1 DATA 8,11,50,62,21.00.C0.C5.C2D Lasssı 102 INPUT"INKS mitspeichern (J/N)"jan$ L[44D6] 
152 Daın 1,50/a0'ED.BO/DL.BBJO7.IEBS trazeı 118 IF UPPER$(an$)="J"THEN GOSUB 158 [as4a] 
133 Data LiaDsı 120 LOAD" !"+1n$,&CQ@0:CALL &600R 159081 
158 DATA [ES681 138 {"+sn$)b,buffer ‚laenge tE3B81 
155 DATA c9118] 188 N [9D181 
156 DATA [70821 15@ INPUT"Border 1,2";b1,b2:BORDER b1,b2 
157 DATA &1A8, 24, @ı, ‚sa, ca, 29, ci, 18, [3F4C] 14920] 
158 DATA laaıce ‚B7,28, van 7B,CD,2C, ‚C,acae LaaE61 168 FOR i=@ TO 15 L1EBAI 
159 DATA [7194] 178 PRINTSINK" A352 INPUTTL 2" Ji1,Ä2E INK i 
168 DATA ICE7AI “= 1 EBCöA1 
161 DATA ESEACı 180 lextr c12021 
162 Da1a tauieı 198 CALL kemın: laenge=laenge+34 CoBAC] 
Ba Lac] 208 RETURN CA7241 
DEaEN EReası Listing 3. Speichern Sie eigene Bilder für »Blende« 
167 DATA [8A5@) 
168 DATA „BC,E1,AF,FS, ECFBA] 
169 DATA BOEHEL BED AEn TO9F6] 
178 Data ‚FE,18,20,F8,C9,1A,1 178721 ı@ [50501 
Ti 6 . — 
172 adr=&60@R: zeile=i@4: MEMORY adr-i CDS8EI a I DET Ne 
ji 173 READ ds: IF d$="#ENDE#*"THEN 184 [BBIAI sa ' Version 1.8 -- 22 
7 174 pr=@ 15516] ir = CA2241 
er Hl Nr 102861 
a ALU" Has) 3 
i 177 POKE adr ‚aradr=adr+i L9E2&1 5@ MODE 1:PAPER G:PEN 1 EFEDSI 
1 178 pr=pr*2: IF pr>65535 THEN pr=pr-65535 C17A61 sa De ee THEN MEMORY &SFFF:LOA LEBA2I 
i He a TH a nn va Ze 7@ buffer=PEEK (&6021)+PEEK (46022) 2561 1a 
18@ NEXT i £12@23 „. son) 
| 181 READ pr$tpr2=VAL("&"+pr&): IF pr2<® THEN so ı IT"Name des zu ladenden Bildes:_", 
pTZrRS2res536 L96BEI Ins CD7B21 
| 182 1F pr<ppr2 THEN PRINT"Pruefsunnenfehler 90 INPUT"INKs {34A21 
1 in Zei jzeile:STOP 19416] 1@0@ LOAD" !"+1n$,buf L730A] 
| 183 zeile=zeile+1:G0T0 173 [C66A] 118 IF UPPER$(an$)="J"THEN CALL %6QIE L&BSAI 
| 184 SAVE"BLENDE. BIN" ‚B,&6000,&216:END [9406] 12@ CALL &6QQ6+INT (RND#6)#3:G0T0 120 CABIEI 
Listing 1. Der Basic-Lader erzeugt den Maschinencode Listing 4. Anzeige einzelner »Blende«-Bilder 


19H 


ee CEsscı } PLTFLELELUFLEUFPELEPEFLELERTFE 
20 '* BLENDE.BAS - Bildvorfuehrer fuer B H ee en 5 
LENDE * LAS6E] ; Version 1.5 vom 13.10.1986 « 
so '* (C) 1986 by Stefan M. ; DErTeee rer 
* h 
Dune ee en ; an Ir} führk das ZEIGE-Unterprogrann ein. 
ıizae y eaadEh |. [NEE ER aa 
0 ROHR }Version 1.4 rundet BLENDE alt HERE una aekerrigiert SCH_UN, 
22 222 LAE74] ’ on 1.5 umfaßt nun auch G_INKS und S_INKS. 
em’ [8asal ; 
28 MODE _1:PapeR 0: PEN 2 C14DC] Vereinbarungen 
BORDE! : INK @ INK 1,4: INK 2,26:1 
NK 3,6 tcapcı nee 
98 IF HIMEM<>LSFFF THEN MEMORY &SFFFELOA Eau @6250H 
D" ! BLENDE. BIN" TCaAsı EQU BUFFER + 200 » a@ 
120 buffer=PEEK (46021) +PEEK (&6022) #256:1 BIC, 
| aenge=14008 LI7FEI H rogrammstart — Sprungtabelle 
11@ FOR i=-400 TO 640 STEP 8 LFS5A23 JP STORE 
120 PLOT i,@,1:DRAUR 399,399 130881 3P ZEIGE 
13@ NEXT i [25F8] B 
140 PRINT CHR$(22ICHR$ (1); tBBAcı IE UNTEN 
158 a=6&: a$="BLENDE" : SOSUR” 398 139C2] Se 
160 a=7:a$="geschrieben von":GOSUB 308 L[2C541 JP SENKE 
170 a=8: a$="Stefan M.Aust":GOSUB 390 L7CAB] JP SCH_OB 
180 a=12:a$="Bild-Vorfuehrung wie beim A IP SCHZUN 
MIGA!":GOSUB S@@ 152081 ; 
190 LOAD"AB.BIL" ‚buffer [37741 rs 
200 a=20: a$=" VORHANG AUF!":G0SUB Sa@ 150221 See 
i 210 CALL %6B@C TSCDc] ; 5; 
220 FOR i=1 TO 1QBB:NEXT i:CALL &6818,0° DW BUFFER 
<= zufaellig loeschen 131061 ; 
230 FOR i=1 TO T@@B:NEXT i:CALL 26003 neuen Bildschirm von unten in Bildschirm schieben 
<- wieder anzeigen L6AFEI z Pe 
Zael DR sl TuS Ic hier Anzahl der init, N en 
jer 
25@ LOAD"A"+CHRS (48+1)+".BIL" ‚buffer [7aE&3 UNT_L1: Inc ® eilenzähler + 1 
260 CALL KuBd6+z#3:2=2+1+12=5) #6 EDSEEI PUSH_BE el 
1 2a er ı 50051 ee nn 
280 G0TO 248 185521 iD a,H" DR Re EEE Rear 
290 END 188241 cp aan sUnterlauf ? 
308 x=28-LEN(a$) /2:LOCATE x,a:PRINT as; JR NE„UNTI znein-> 
RETURN [D2CAI et ;korrigieren 
Listing 2. Für diese Demonstration benötigen Sie vier eiti8  PLERUIERS N En 


gespeicherte Bilder mit den Namen »A0.BiL« bis | 
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UNT2: 


OB_L2: 


0B2: 


SO_L2: 


sol: 


s02: 


SU_LI: 


su_L2ı 


sul: 


su2: 


PUSH BC 
EX DE,HL 

LD BC,8G 
LDıR 

EX DE,HL 

LD BC,@7BaH 
ADD HL,BC 
IR NG,ÜNTZ 
LD BC,BCBSaH 
ADD HL,BC 
POP BC 

DaNZ UNT_L2 


POP HL 

POP BE 

LD A,B 

CP 260 
IR_NZ,UNT_LI 
RET 


Zeilenzähler 
DE=Bildschirm, HL=Buffer 
ne Zeile (80 Zeichen) 
jvan Buffer in Bildschirm 


jnächste Zeile 


skein Überlauf-> 
sonst korrigieren 


;Zeilenzähler 
so und soviel Bildschirmzeilen 


}Bildschirmpos 
}Zeilenzähler 


Bildschirm von oben in Bildschirm schieben 


LD 8,8 
LD DE,BUFEND 


Inc 8 
PUSH BC 

iD HL,-80 
Ann Hi ,DE 

EX DESAL 
PUSH DE 

LD HL ,COgaH 


PUSH_BC 

EX DE,HL 

LD BC,EG 
LDIR 

EX DE,HL 

LD BC,87BOH 
ADD HL,BC 
IR NC,OB2, 
LD BC,@CasaH 
ADD HL,BC 
POP BC 

DUNZ OB_L2 


POP DE 
POP BC 

LD A,B 

CP 208 

IR NZ,OB_LI 
RET 


}Zeilenzähler und 
ıBufferpos initialisieren 


sZeilenzahl + 1 
jretten 


»Bufferpos eine Zeile zurück 


}Bufferpos merken 
}Bildschirmstart 


}Zeilenzähler 
}DE=Bildschirm, HL=Buffer 
jein Zeile (80 Zeichen) 
ivon Buffer in Bildschirm 


nächste Zeile 


kein überlauf-> 
sonst korrigieren 


sZeilenzähler 
}so und soviel Bildschirmzeilen 


Bufferpos 
}Zeilenzähler 


}schon 208 ? 
jnein-> 


alten Bildschirm nach oben schieben und 
neuen Bildschirm von unten nachschieben 


LD B,2a@ 
LD HL,BUFFER 


PUSH BC 
PUSH HL 
LD 8,199 
LD DE ‚ACaaaH 
ID HL,OCB@@H 


ADD HL,BC 
Ex DE, 

ID BC,7BOH 
ADD HL,BC 
JR NC,802 
ID BC,ecosaH 
App HL,Bc 

EX DESAL 

Pop BE 

Danz S0_L2 


POP HL 
LD BC,a@ 
LDIR 

POP BC 
DaNZ Sa_Li 
RET 


;Zeilenanzahl 
; Buffer 


Anzahl und Bufferpos 
retten 

Anzahl der zu verschiebenden Zeilen 
1. Bildschirmzeile 

32. Bildschirmzeile 


;Zähler retten 
jeine Zeile (88 Zeichen) 
} verschieben 


nächste Zeile 
}kein überlauf-> 
sonst korrigieren 


jnächste Zeile 
jkein Überlauf-> 
}sonst korrigieren 


sZähler 
5199 mal 


}Bufferpos 

keine Zeile (8@ Zeichen) 

ivom Buffer in den Bildschirm 
jZeilenzähler 

;200 mal 


alten Bildschirm nach unten schieben und 
neuen Bildsschirm von oben nachschieben 


bcH_uns sLD n,200 


CD HL, BUFEND-88 


PUSH BC 
PUSH HL 
LD 8,199 
LD DE,OFFBEH 
Up HL,OF7BoH 


PUSH_BC 
LD BC,8 
LDIR 

LD BC,@F7BOH 
ADD HL,BC 
LD A,H 

CP BEOH 

IR NE„SUL 

LD B,SFH 

ADD HL,Bc 

EX DE,AL 

LD BC,OF7BOH 
ADD HL „BC 
LD A,H 

CP aan 

JR NE,SU2 
LD B,3FH 

ADD HL ,Bc 
Ex DE,ÄL 

Pop BE 

DuNz SU_L2 


}Zeilenanzahl 
}Bufferpos (letzte Zeile) 


}Zeilenanzahl und 

}Bufferpos retten 

Anzahl der zu verschiebenden 
‚letzte Bildschirmzeile 
}vorletzte Bildschirmzeile 


Zeilen 


;Zähler retten 
ine Zeile (88 Zeichen) 
jverschieben 


vorherige Zeile 


sUnterlauf ? 
snein-> 
}sonst korrigieren 


;vorherige Zeile 


sUnterlauf ? 
jnein-> 
sonst korrigieren 


Zähler zurück 
3199 mal 


ADD HL,BC 
POP BC 
DINZ SU_LI 
RET 


LD 8,200 
LD HL ,BUFEND-80 


PUSH BC 
PUSH HL 

DEC B 

LD DE,OCa@aH 
CD HL ‚BCaaaH 
IR Z,HS 


H_L23 


CD BC,7BOH 

ADD HL ,BC 

IR NC,HL 

LD BC,@casaH 

‚ADD HL „BC 
His EX DE,FL 

LD BC,7B@H 

ADD HL,BC 

IR NC,H2 

LD BC ,@casaH 

ADD HL,BC 
n2: EX_DE,FL 

POP BE 

DaNZ H_L2 


Hs POP HL 
Lp Bc,so 
[DIR 
ID BC,-168 
ADD HL,BC 
POP BC 
DINZ H_LI 
RET 


LD B,288 
ID HL,BUFFER 


S_Li? PUSH BE ;Zeilenanzahl und 
PUSH_HL jBuffernos retten 
DEC 8 HAnzahl = 1 
LD DE,OFF&GH letzte Bildschirnzeile 
ID HL}GFZEBH vorletzte Bildschirmzeile 
IR 2,85 }Anzahl=a -> 
sı2: Push Bc ;Zähler retten 
LD 5c,88 jeine Zeile 
DIR }Verschieben 
LD BC,OF7BaH 
ADD HL,BC ;vorherige Zeile 
ID a,H 
CP Beau zUnterlauf ? 
IR NC,S1 jnein-> 
In B,3FH }Sonst korrigieren 
ADD HL,Bc 
Sir Ex DE,AL 
LD BC,OF7BOH 
ADD HL,BC svarherige Zeile 
LD A,H 
cp acan sUnterlauf ? 
IR NC,S2 jnein-> 
ID B,3CH jsanst korrigieren 
ann HL,Bc 
52: EX DEAL 
For BE ;Zähler zurück 
Danz S_L2 iso und soviel mal wieder 
55: POP HL sBufferpos 
LD 8C,3@ jeine Zei 
LDIR ıvom Buffer in den Bildsc 
POP BC 
Danz S_L1 +200 mal 
RET 
’ 
j--> Bildschirm in Buffer kopieren 
SToREı: LD B,200 }Zeilenanzahl 
CD DEJBUFFER ;Buffer 
ID HL)OCHaON  ;Bildschirmstart 
ST_L: PUSH BC }Zähler retten 
jeina Zeile 
Fkopieren 
jnächste Zeile 
jkein Überlauf-> 
jkorrigieren 
st: ;Zähler 
’ 
j--> Buffer im Bilschirm anzeigen 
1 Zeilenanzahl Listing 5. 
{öllsschirmstart Assembler- 
}Zähler retten 
Beobfidkehtrn  FiOgrammierer 
jein Zeile binden den 
Srerieren Quellcode 


Bildschirm hochziehen und neuen darunter zeigen 


Bildschirm senken und neuen darunter zeigen 


zBufferpos 
jeine Zeile 
‚om Buffer in den Bildschirm 


Bufferpos - 88 
+20@ mal 


}Zeilenanzahl 
#Bufferende (letzte Zeile) 


}Zeilenanzahl und 
;Bufferpos retten 
anzahl = 1 

ji. Bildschirmzeile 
#2. Bildschirmzeile 
HAnzahl=@ => 


Anzahl rett 
eine Zeil 
jverschiebi 


nächste Zeile 
jkein Überlauf 
jsonst korrigien 


Anzahl zurück 
jso und soviel mal wiederholen 


jeine Zeile 
jvom Buffer in den Bildschirm 
}Bufferpos - 88 

200 mal 


;Zeilenanzahl 
}Buffer 


nach Belieben 
in eigene Pro- 
gramme ein 


nächste Zeile 
jkein überlauf-> 
;korrigieren 


119 


nn Zi 


POP BC Zähler 
DINZ ZEI_L 
RET 


37? Ende der Verschieberoutinen 


Die folgende Routine benötigt ein Parameter 


B 
37? Bildschirm zufällig löschen 
h IN: E: Farbnummer 


RCLS:: OR A ;Parameter ? 


IR Z,RL inein-> 
ID AJE ;Farbnummer 

Ris CALL’@BCZCH #SCR_INK_ENCODE 
LD C,A ;Farbmaske 


Anzahl Löschdurchläufe 


ID E,108 
CD HL,OC@@aH  ;Bildschirmstart 


RL LD (HLI,C }Byte löschen 
DA,R ;Zufallszahl 
AnD IFH jabere Bits ausblenden 


jaber Amin I 


INC A 
LD E,A 

D D,8 DE = A 

ADD FL ‚DE sneue Bildschirmpos 
IR NE,RLL ikein übertrag-> 
LD A,H snur größer BC@QaH 
OR @COH 


LD H,A 
DINZ'R_L 
LD HL,@cagaH 


neuer Durchlauf-> 
Bildschirmstart 
s Zähler 
ganzen Bildschirm löschen 
INKs in Buffer 
_INKS: sCALL @BCSBH 
LUD HL ,BÜFEND 
[DHL ,B 
INC HL 
LD HLI,C 
INC HL 


}SCR_BET_BORDER 


# BORDER-Farbwerte 
speichern 


5 INK-Nummer- 


SCR_BET_INK 


;Farbwerte merken 


--> INKs neu setzen 


nee 


;_INKS::LD HL,BUFEND  4Anfang INK-Speicher 
ID 


B, CHL; 
;BORDER setzen 


5SCR_SET_BORDER 
XOR A HINK-Nummer 


;Farbwerte 
jsetzen 


FSCR_SET_INK 


57°  UFF! = Ende! 
Eno jLetzte Modifikation: 13.10.8& 


Listing 5. Assembler-Programmierer binden den Quellcode 
nach Belieben in eigene Programme ein 


Gemischter Dreier 


Drei Bildschirmmodi mit verschiedenen Auflösun- 
gen stellt der Schneider CPC zur Wahl. Benutzen 
Sie doch in Zukunft alle gleichzeitig. 


itdem CPC stehen Ihnen drei Auflösungsstufen für 

die Bildschirmwiedergabe zur Verfügung: 20, 40 

oder 80 Zeichen in den Modi 0, 1 und 2. Leider 
ist jeder dieser Modi mit Nachteilen behaftet. So nutzt Ihnen 
die hohe Auflösung des Modus 2 wenig, wenn es darum geht, 
farbenfrohe Grafiken darzustellen. Im »Multicolor«-Modus O 
wiederum erscheinen schräge Linien wie Treppen. Das Pro- 
gramm »Mixmode« vereint nun nach Belieben zwei oder gar 
alle drei Modi auf dem Bildschirm. Mixmode bestehtaus einer 
Maschinencode-Routine, die neue RSX-Befehle in das 
Locombotive-Basic einbindet. 

Der Bildschirm ist mit Mixmode in vier Sektoren (Zonen) 
unterteilt. Der erste Sektor erstreckt sich von Zeile 1 bis 5, 
der zweite von Zeile 6 bis 12, der dritte von 13 bis 18 und der 
vierte belegt die restlichen Zeilen 19 bis 25. In jedem dieser 
Sektoren ist der Modus frei wählbar. Die Wahl der Modi erfolgt 
durch den Befehl 
| MIXoN,mode-a,mode-b,mode-c,mode-d 

Den Bildschirmmodus für Sektor 1 bestimmt der Parameter 
<mode-a>, für Sektor 2 <mode-b> und so weiter. In 
jedem Fall müssen Sie alle vier Werte beim Aufruf übergeben. 
Wollen Sie nun in einem dieser Sektoren schreiben oder 
zeichnen, wählen Sie mit 
I SECTOR, nummer 
den gewünschten Sektor (<nummer>) aus. Um den Inhalt 
eines Sektors zu löschen, benutzen Sie 
I SECTCLS, nummer 

Wenn dieser Sektor nach dem Löschen in einem anderen 
Modus arbeiten soll, verwenden Sie wieder IMIXON zur 


Umschaltung, die anderen Sektoren werden davon nicht 
beeinflußt. In die normale Bildschirmdarstellung schaltet der 
Befehl IMIXOFF zurück. Davon sollten Sie während Zugriffen 
auf Diskette oder Kassette Gebrauch machen, da sich 
ansonsten die Sektorgrenzen verschieben und der Inhalt der 
Sektoren unkenntlich wird. Der Grund dafür liegt in der 
Interrupt-Struktur der CPCs. Die Maschinencode-Routine 
arbeitet nämlich folgendermaßen: Das Betriebssystem löst 
alle 300stel Sekunden einen Interrupt aus (Fast Ticker). In 
die dadurch aufgerufene Interruptkette hängt nun Mixmode 
eine Routine ein, die den Modus während des Bildaufbaus 
mehrmals umschaltet. Da das Monitorbild alle 50stel Sekun- 
den neu aufgebaut wird, liegt der Schluß nahe, der Bildschirm 
ließe sich sogar in sechs Zonen unterteilen. Da jedoch zum 
Bildaufbau auch der Rand sowie der Strahlrücklauf nach Fer- 
tigstellung des Bilds gehören, verringert sich die maximale 
Zahl in der Praxis auf vier Bereiche. 

Geben Sie bitte als erstes den Basic-Lader (Listing 1) ein 
und speichern ihn sicherheitshalber. Er erzeugt die Binärda- 
tei »MIXMODE.BIN« und aktiviert gleichzeitig die neuen 
Befehle. Diese Kommandos arbeiten als RSXe und beginnen 
deshalb mit dem senkrechten Strich, den Sie durch Drücken 
der Tastenkombination <SHIFT+@ > erhalten. Den Einsatz 
verdeutlicht die Demonstration in Listing 2. Dort sehen Sie 
auch, wie der Maschinencode (»MIXMODE.BIN«) geladen 
und aktiviert wird. (Gerd Schröder/ja) 


®& Steckbrief 


Programm: Mixmode 

Computer: CPC 464/664/6128 
Checksummer: Explora/CPC 
Datenträger: Diskette, Kassette 


12Q,wwW.BomEcomsuTER 


Listing 1. »Mixmode«-Basic-Lader. Drei Bildschirm-Modi auf 


einen Streich. 


Listing 2. Lassen Sie sich von der Demonstration beein- 


— 
E— 
10: * PROGRAMM * La4Eal 
120 ' * * [861C1 110 CDDB2] 
130 ' #>3333>> MIXMODE <ccc<cc« [8574] 128 pre SAAFF + LOAD"mixmade.bin"zCALL : 
120 7 * * 132201 2c881 
150 | * GERD SCHROEDER * 197641 139 ON BREAK GOSUB #10 [54541 
1600 ' * * [06241 148 CLS:SPEED INK 68,40: INK 19,24: PAPER 
170 1x HEINSBERG * [A414] @: BORDER @: INK 8,@: INK 1,18:INK 3,20 
180 ' * * (42281 zINK 13,26,6 [22681 
190 ı* OBERBRUCHER STRASSE * Eca1al IX0N,1,8,0,2 LA7A01 
200 '* * 192DA1 ;ECTOR,1:’*% Schreiben in Sektor 1 [40581 
zı0 '* AUGUST a6 * [766A1 17@ PEN 3:LÖCATE 2,2:PRINT"D: 0 
EB Tennennne ih Hleasusrennent Be] BEN EELPSRTE AIRLESINTESRRRSSNEAEN 
R EDEA4I 
240 MODE 1:0RIGIN @,@zINK @,isINK 1,1:INK 3 . n 
1: PAPER QtBORDER 1:PLOTR 8,2 AA7aı Ta aD LBECTOR.21 TAB craaaı 
250 PEN 2:LOCATE 3,2: PRINT TAB(3)" #* progr BEN cC1501 
am<2>MIXMODE, arted<3>*" PRINT teBacı ZUB I FURTKEB TO 25 14708] 
240 PENTIPRINT TABCI2) "Neue Befahler "ıPRIN 21® PLOT 540- (k-3) #17,350-9* (k-3) „INT (k/ 
T TABCLLDSTRINGE (15, "-") H PRINT LBS761 2) tc154] 
270 PRINT TAB(12) " IMIXON,a,b,c,d" [79EC1 220 FOR 1=1 T0 7 LESSE] 
ze PRINT TABCAZI N INIKOFR L69F61 258 PRINT MID (a$,1,1)3:MOVER -14B+Ka6,Q 3 
290 PRINT TAB(12) "SECTOR, x [554€] C6BA 
300 PRINT TAB(12) "TSECTCLS x" PRINT EB14E1 24@ NEXT _1,k: TAGOFF 155121 
So PRINT TAB (9) CHR$ (164) "1986<32Gerd Schro : 258 ISECTOR Ar PEN 1:LOCATE 4,21: PRINT"Zu 
eder" 19408: m Start des Demonstrationspragram 
32® DRAWR @,199:DRAWR 639,0: DRAWR @,-199:DR bitte irgendeine Taste druschen 
AUR 637,0 L9DKEI " 1276A1 
= erh Je 26@ LOCATE 20,25: PRINT CHR$(164) jerd 
330 LUCATE Sp2r INK IBAHINK SIöHPRINT sep nor, ar 
ogramszamıxMonelZ>installed xx" co! = un 
BR IN 2U0 MILE ayznnLaszinKEvseFärberINTeRNDe 7 
370 DATA AS@0,CD,06,B9,18,00,3E,04,CD,7195 [95781 241 FOR atiftes ı farbe=INT (RND; 
380 DATA AS08,797,07,3E,0B,32,04,45,C9,3A33 L[SF6AI EBEN TO 12: INK stift ta 
398 DATA AS10,3E,@0,CD,77,07,3E,16,32,@1EE L[AD7C] EBRLEIRERLITO SO, NERTTZEREEFEI WENDISERAEET 
A0@ DATA A518,04,45,09,C05,06,34,10,FE,SES6 L[CAFCI 29@ IMIXOFF:INK 1,26:MODE 1 . L9C621 
418 DATA A520,C1,3E,00,CD,79,07,3E,27,6@5SF [SD7EI 308 PRINT"Der Bildschirm unterteilt sich 
420 DATA A528,32,904,A5,C9,3E,88,CD,79,0@8253 L[9A561 im":PRINT:PRINT"MIXMODE in 4 vonein 
438 DATA A530,07,3E,32,32,84,A5,09,3E,0A78 L[185A] ander unabhaengige":PRINT:PRINT"Sekt 
440 DATA A538,38,32,04,A5,C9,3E,88,32,1CD2 L[F7S81 gren, und zwar: L@D441 
450 DATA A549,04,A5,09,01,4C,A5,21,73,32B5 L@EACI 318 FOR z=1 TO S@BR:NEXT z TAsBCI 
460 DATA A549,A5,C3,D1,BC,5A,A5,03,77,7215 L79CE] 32@ !MIXON,@,@,2,0:MODE @:WINDOW#1,1,20, 
478 DATA A550,A5,03,D6,A5,C3,E6,A5,C3,7609 [BIFEI 1,5: WINDOW#2, 1 ,2@,6, 12: WINDOW#3, 1,20 
a80 DATA A558,49,A6,4D,49,58,4F,CE,4D,821D ([BEDEI ‚13,18: WINDOW#A,1,20,19,25 CABAA1 
398 DATA A5640,49,58,4F,46,06,53,45,45,58B5 [14601 33@ INK'2,1: INK 3,9:INK 4,3: INK 5,10 [95083 
50m DATA A560,59,3E 1D2,55,45743,09 a3, 257€ LoBası 340 FOR k&1 10 4 127501 
DATA A570,4C,D3,00,00,00,00,00,FE,12SE L[BS1\ E +1: 5 = 
528 DATA A578,04,02,93,A6,DD,7E,B&,FE,2D62 [6AE2I a TE ER 
5Sn DATA ASaQ,05,D2,98,A0, 32,06 AS „DD,2C1E EeBBB] 368 NEXT k Tsaueı 
40 DATA ASBB,7E,D4,FE,QS,D2,7B,A6,32,2472 1 S R £ 
55@ DATA A590, 11,A5,DD,7E,@2,FE,@S,D2,3EBC [A2FC1 nz a [53241 
S5&@ DATA A598,95,A64,32,22,A5,DD,7E,@8,64C8 [S6BB1 te 2 E936E1 
570 DATA ASAB,FE,0S,D2,98,A6,32,2D,A5,6937 [25021 Ä „i:PRINT:PRINT"In jedem diese 
58@ DATA ASAB,21,A5,A6,CD,E6,BC,AF,32,257C [4420] r 4 Sektoren ist der Bildschirmmadus 
590 DATA ASBQ,04,A5,3A,A3,A6,B7,20,0A4,2196& [10861 frei (0-2) waehlbar":PRINT:PRINT"Zu 
&@@ DATA ASBB,SE,91,32,AS,A6,3E,@2,CD,1631 [32821 m Beispiel hier in Sektor 1: MODE 2" 
610 DATA ASCQ,GE,BC,CD,19,BD,21,A5,A6,54B8 [15081 153041 
628 DATA ASC8,11,00,A5,86,81,3E,@01,32,188@ [748A1 488 !SECTOR,2:LOCATE 1,8:PEN S:PRINT"in 
638 DATA ASD@,92,B1,CD,E@,BC,C9,21,A5,7403 LS9EC1 Sektor 2: MODE 8" LB&243 
640 DATA ASD8,A&,CD,E6,BC,3E,02,CD,8E,772C [84521 418 !SECTOR,S:LOCATE 11,15:PEN S:PRINT"i 
650 DATA ASE@,BC,AF,32,A3,A6,C9,FE,Q1,7E59 [F234] n Sektor 3: MODE 1" EDFE&I 
668 DATA ASEB,CH,SA,AS,A6,B7,CB,DD,7E,77DE [7868] 428 !SECTOR,4:LOCATE 31,22:PEN 1:PRINT"i 
670 DATA ASFO,00,FE,05,D2,95,A6,B7,CA,sSE4 [SEGA] n Sektor 4: MODE 2" LO7EAI 
680 DATA ASFB,9B,A6,FS,CD,06,B9,CD,BD,7585 [39621 430 FOR z=1 TO 9BRG:NEXT z LEFCAI 
690 DATA A60Q,12,21,A4,Ab,77,F1,FE,@l,1EZI [06701 448 .CTOR SECTCLS,1:LOCATE 1,1:PRIN 
700 DATA A4QB,20,06,34,06,A5,03,27,A6,1@86C [DBABI adur ‚Bektorkann sinzein. durch de 
7ıa DATA A6s1Q,FE,@2,20,06,3A,11,A5,03,7BFD LABAQI a RE Tuch rnurd 
720 DATA A&1B,27,A6,FE,0S,20,86,3A,22,24BE [94741 In"sPRINT"und dabei k 9 Elarisen 
73@ DATA A620,A5,C3,27,A6,3A,2D,AS,21,6CCF [E6D41 lat Br ‚al Int “no natuerlich 
740 DATA A&28,3A,0B,FE,01,38,08,21,56,0184 [2D48] auch gleichzeitig der MODE geaendert 
750 DATA A630,0B,28,03,21,2E,@B,11,CF,0C041 [20541 werden" :PRINT:PRINT TAB(25) "Achten 
760 DATA A638,B1,01,08,00,ED,B@,52,C8,5CC4 L7F961 Sie z.B. auf Sektor 5 LE1461 
77@ DATA A640,B1,21,A4,A6,7E,CD,A9,12,4FA4 I[61EB] 458 FOR z=1 TO 7B00:NEXT z L71CA] 
780 DATA A648,C9,FE,01,00,34,A3,A6,B7,5587 [B9E8] 460 !SECTCLS,S: IMIXON,2,2,2,2: 1SECTOR,S [20841 
790 DATA A650, C8,DD,7E,@G,FE,05,D2,9B,5ASB LAAIEI 478 LOCATE 18,15:PRINT"Dieser Sektor Ist 
808 DATA A658,A6,B7,CA,9B,A&,FS,CD,06,6948 [88161 geloescht und in Modus 2 umgeschalt 
819 DATA A660,B9,F1,FE,01,20,09,21,00,7E76 [26621 et warden" Lo1aaı 
820 DATA AG4B.OR.11.04.AF!CS.BF,AG,FE,OSAG [BEAEI 488 FOR z=1 TO 6BBG:NEXT z LAICEI 
830 DATA A670,02,20,09,21,05,@0,11,0B,0ASı LFDBA] 490 CLS: !MIXON,1,0,0,2 ECAAG1 
840 DATA A678, 4F ‚C3,BF ‚As, FE,03,20,09,0575 [DICH] 528 !SECTOR,I:PRINTSPRINT"E I NEZDW E I 
050 DATA AGB, 21,0C,@0,11,11,4F,C3,8F,122D [70461 TER E'S<2DBEISPIEL L70821 
860 DATA AGBB,AG,21,12,00,11,18,4F,CD,59BB LBERCI 518 !SECTOR.A:LÖCATE 1.20: PRINT"Di 
870 DATA A690,97,15,C9,CD,00,B9,1E,16,59FE [DDDEI iel zeigt, wie der erste 
880 DATA A698,C3,94,CA,CD,@0,B9,1E,05,55CD [10021 fuer die Veberschrift genutzt wird 
890 DATA AsAB,CS,94,CA,00,00,5C,18,00,5D00 LBBSCI 
ORTE ER DEL En und zwar hier im Modus 1. In den Sek 
919 adr=wAS@Q:zeile=37@: MEMORY adr-i 16838] tSran 2 und 3 MardlEm THE DB 
92@ READ ds IF ds="#ENDER"THEN 1050 [62E8] EIINI LVA @LFATHIONLET SR RU BRT EN 
Er reneH 52@ PRINT"Schliesslich befindet sich hie 
930 Bor i=i1 TO 8 Lsrecı rin Sektor 4 in Modus 2 ein erlamut u] 
950 READ at: amVAL("K"+as) 1O6AA) ernder Text," EN 
960 FOKE adr ‚aradr=adr +1 C1F263 53@ LOCATE 18,25:PRINT"E n d eis>d e sS3 
970 pr=prx2: IF pr>65535 THEN pr=pr-65535 127A61 2 emopraoagramme cEA22] 
dan hr=öNTipr)XBR asıF pre@ THEN pr=pr+6553 54@ TSECTOR,S:0RIGIN @,0:FOR k=2 TO 15:1 
& CA9BEI ss \* K,k+2:NEXT k tEnzaı 
990 NEXT i S [3414] EG A 
10a READ prspr2sVALc"urtpr#dsIr pr2ca THE 0, 560 X=INT (RND#+498) +7@:r=INT (RND«7S) +5: fa 
pr2=pr 2+65536 cai rbe=INT (RND*14)+2 191961 
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drucken 
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RITA macht das 
Programmieren leicht 


Nach dem noch immer richtungweisenden 
Maschinensprache-Monitor »Supermon« aus 
unserem zweiten Schneider-Sonderheft (Ausgabe 
1/86) haben wir nun einen weiteren besonderen 
Leckerbissen für Sie: einen Zwei-Pass-Label- 
Assembler, der sogar die wichtigsten illegalen 
Befehle des Z80 kennt und verarbeitet. 


ür die Programmierung in Maschinensprache ist ein 

Assembler ein unerläßliches Hilfsmittel. Einfache, in 

Basic geschriebene Assembler erfüllen schnell die 
gestellten Anforderungen nicht mehr, und so muß meist ein 
professioneller Assembler her. 

Leider sind jedoch gute Assembler meist nicht billig; Preise 
über 100 Mark sind keine Seltenheit. Unser Listing »RITA« 
erspart Ihnen solche Ausgaben. RITA (»Resident Inline Turbo- 
Assembler«) ist ein Assembler, der mit Recht den Zusatz pro- 
fessionell verdient. Zu seiner vollen Leistungsfähigkeit blüht 
RITA beim Einsatz eines Diskettenlaufwerks auf. 

Hier einige Daten in Stichworten: 

- alle Standard-Pseudo-Befehle (DS, DB, DW, DM, ORG, 
EQU, END) 

- erweiterte Pseudo-Befehle (DF, DC, DEF) 

- bedingte Assemblierung (IF, ELSE, ENDIF) 

- Nachladen von Quellcodeteilen (NAME, APPEND, LINK, 
DRIVE) 

- Assemblieren in den Arbeitsspeicher oder auf Diskette; im 
Zusammenhang mit dem Nachladen von Quellcode-Teilen 
fast unbegrenzte Objectcodelänge 

- Protokoll aller Bildschirmausgaben auf Drucker 

- Find-Funktion 

- Befehle zur Nutzung der Indexregister als Halb-(8-Bit-) 
Register 

- Beeinflussung des Assemblers mit zahlreichen Funktionen 

- Anzeige jedes JP-Befehls, der sich durch einen relativen 
JR-Sprung ersetzen läßt 

- Übersetzungsgeschwindigkeit von zirka 2 KByte Quell- 
code pro Sekunde 

- Maschinencode-Unterroutinen sind direkt als Quellcode 
in Basic-Programme zu integrieren 

Geben Sie zunächst Listing 1 ein undspeichern Sie diesen 
Basic-Lader sicherheitshalber vor dem ersten Probelauf. Alle 
Besitzer von Vortex-Laufwerken müssen vor dem Speichern 
von RITA noch die Zeilen aus den Listings 2 oder 3 einfügen. 

Der fertige DATA-Lader erzeugt die Binärdatei »RITA.BIN«, 
die Sie mit Listing 4 laden. Diese Laderoutine enthält das 
Titelbild, belegt die Tastatur hilfreich für die Arbeit mit RITA 
und initialisiert die fünf neuen RSX-Befehle: 


ILABEL,p 

gibt die Labeltabelle aus. HIMEM wird automatisch soweit 
herabgesetzt, daß die Tabelle auch bei »NEW« erhalten bleibt. 
Die Option »p« leitet die Ausgabe auf den Drucker. 


I WERT, "LABEL1 ”,"LABEL2”,..,”LABELX” 

gibt den Wert der angegebenen Label zurück. Dieser 
Befehl ist beispielsweise bei langen Labeltabellen sinnvoll, 
um sich die Suche nach einem Label zu sparen. 
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I FIND, text” 
sucht den String <text> im Quellcode und gibt jede Zeile 
aus, die diesen Text enthält. 


I ASM, "option1 ”,”option2” ,”option3” 

startet die Assemblierung. Dem Aufruf darf eine Reihe von 
Parametern folgen, die den Assembler bei seiner Arbeit be- 
einflussen: 

NO (No Objectcode): RITA legt keine Objectcode-Datei an. 

TM (To Memory): Der Code wird direkt in den Speicher 
assembliert. 

NL (No Listing): Unterdrückt das Listen während der 
Assemblierung. 

NLT (No Label-Table): Unterdrückt die Ausgabe der Label- 
tabelle. 

P (Printer): Protokoll aller Ausgaben auf dem Drucker. 

WE (Wait on Error): Wartet nach jeder Fehlermeldung auf 
einen Tastendruck. 

DAT (DATA-Lader): Speichert den erzeugten Objecteode 
als DATA-Lader. 

JP (Jump): Unterdrückt die Meldung der durch JR ersetz- 
baren JP-Befehle. 

Diese Parameter müssen Sie in Großbuchstaben überge- 
ben und in beliebiger Reihenfolge direkt an den RSX-Befehl 
anhängen. Beachten Sie aber, daß sich einige Optionen 
gegenseitig ausschließen. 

Ein Aufruf sieht beispielsweise folgendermaßen aus: 


LASM,WE,NL,NLT 


Achten Sie bei »TM« darauf, den Assembler nicht zu über- 
schreiben. Er belegt den Speicherbereich von 8A00 bis zirka 
A400 hex. Von 89FF hex legt RITA die Labelnamen und 
„adressen in Richtung kleiner werdender Adressen ab. Auch 
die Speicherbereiche von ACA4 bis ADA5 hex (Eingabepuf- 
fer) und B61A bis B680 hex (Hüllkurven-Puffer) sind von 
RITA besetzt, weil der Assembler dort wichtige Daten zwi- 
schenspeichert. Assemblieren Sie aber direkt auf Diskette, 
spielt der im Arbeitsspeicher belegte Adreßbereich natürlich 
keine Rolle. 

IH leistet Ihnen während der Arbeit mit RITA eine kleine 
Hilfestellung, denn es ruft einen Hilfstext auf. 

Ihre Quellcodes geben Sie mit dem Basic-Editor als 
REMark-Zeilen ein. Setzen Sie dafür jeweils hinter die Zeilen- 
nummer ein Apostroph <SHIFT+7> und schalten Sie mit 
der Taste <CAPS LOCK> auf permanente Großschreibung 
um. Arbeiten Sie mit einer Textverarbeitung, können Sie den 
Quellcode auch damit erzeugen, wenn Sieihn als ASCII-Datei 
speichern. Ein Konvertierprogramm, das vor jede Textzeile 
Zeilennummer und Apostroph setzt, finden Sie in Listing 5. 

Label müssen mit einem Buchstaben beginnen und dürfen 
nicht länger als sechs Zeichen sein. Leerzeichen, Kommata, 
Plus, Minus und Klammern sind Trennzeichen und dürfen 
deshalb nicht in einem Labelnamen auftreten. Kommentare 
beginnen mit einem Semikolon »;«. Eine Quellcodezeile hat 
also prinzipiell folgenden Aufbau: 

Zeilennummer ' Label Befehl Operand ; Kommentar 

In der jeweiligen Zeile nicht vorkommende Teile lassen Sie 
einfach weg. Überzählige Leerzeichen zwischen den einzel- 
nen Teilen überliest RITA, nur die Operanden vor und hinter 


dem Komma dürfen keine enthalten. 


DT _ 


RITA verarbeitet Zahlen in dezimaler, hexadezimaler und 
binärer Darstellung. Dezimalzahlen müssen positiv sein und 
im Bereich zwischen O und 65535 liegen. Die Schreibweise 
istidentisch mit der des Basic-Interpreters, also »&« vor hexa- 
dezimalen und »&X« vor binären Werten. Es gibt aber noch 
mehr Formen der Übergabe. Die folgenden Zeilen führen zum 
selben Ergebnis: 


10 'ID A,65 

20 'ID A,841 

30 'LD A,&X01000001 
40 '1D A,”A” 

50 'LD A,60+45 

60 'LD A,"0”-2 


Werte - egal ob absolute oder Labels - lassen sich nach 
Belieben addieren und subtrahieren. 

Das Listen des Quellcodes während der Assemblierung 
hält auf Tastendruck an. Ein weiterer Tastendruck setzt das 
Listing fort, <ESC> bricht den Assembliervorgang ab. Feh- 
lermeldungen erfolgen mit Angabe der fehlerhaften Zeile. 

RITA bietet auch einige sehr leistungsfähige Pseudo- 
Befehle zur Steuerung des Assemblers: 


DS nn fügt ab der aktuellen Position »nn« Null-Byte ein. 

DF nn,nn wie DS, der zweite Wert bestimmt das Füllbyte. 

DB nn(‚,nn(‚nn,...)) fügt das Byte »nn« an der augenblick- 
lichen Position in den Objectoode ein. Hinter DB dürfen belie- 
big viele, durch Komma getrennte Werte stehen. 

DW nnnn(‚nnnn(‚nnnn,...)) wie DB, aber für 16-Bit-Werte, 
die im Low-/Highbyte-Format abgelegt werden. 

DM "text” fügt den Text zwischen den Anführungszei- 
chen in den Objectcode ein. 

DC "text” wie DM, nur wird beim letzten Buchstaben das 
Bit 7 gesetzt. Das ist zum Beispiel bei der Programmierung 
neuer RSX-Befehle hilfreich: 


DC ’SCALE” 
ersetzt die Befehlsfolge 


DM "SCAL” 
DB "E”+&80 


ORG nnnn definiert die Adresse, an der das erste Byte des 
Objectcodes abgelegt wird (ORiGin). 

END nnnn beendet die Assemblierung. Die Eingabe die- 
ses Befehls ist nicht zwingend. Der Wert hinter END 
bestimmt wahlweise die Startadresse des Objectcodes. 

EQU nnnn weist dem Label vor EQU den Wert »nnnn« zu 
(EQUal) und darf pro Label nur einmal verwendet werden. 

DEF nnnn wie EQU, ist aber mehrmals für ein Label zu ver- 
wenden. 

LIST schaltet die Quellcodeausgabe auf Bildschirm oder 
Drucker ein beziehungsweise aus. Für den LIST-Befehl gibt 
es vier Variationen: 

LIST ON schaltet Bildschirmausgabe ein. 

LIST OFF schaltet sie wieder aus. 

LIST PON schaltet Druckerausgabe ein. 

LIST POFF schaltet sie wieder aus. 

IF nnnn ist der Wert »nnnn« ungleich Null (logisches False), 
übersetzt RITA die folgenden Z80-Befehle nicht, bis er auf 
ein ELSE, ENDIF oder das Ende des Quellcodes stößt. 

ELSE kehrt die Funktion von IF um. Hat der Computer hin- 
ter IF nicht assembliert, fährt er jetzt mit der Assemblierung 
fort und umgekehrt. 

ENDIF beendet die IF- und ELSE-Befehle. Nach ENDIF wird 
also in jedem Fall weiter assembliert. Auch beim END-Befehl 
oder am physikalischen Ende des Quellcodes wird ENDIF 
automatisch einmal aufgerufen. Ein Beispiel für die Anwen- 
dung von IF, ELSE und ENDIF sehen Sie in Listing 6. 
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LINK dateiname lädt den Quellcode-Teil »dateiname« zum 
Speicherinhalt hinzu, sofern der Speicherplatz dafür aus- 
reicht. Wenn das Ende des hinzugeladenen Quellcodes er- 
reicht ist, fährt RITA an der Stelle hinter dem LINK-Befehl im 
Quellcode mit der Assemblierung fort. Der LINK-Befehl ist 
nützlich bei häufig gebrauchten Routinen und Unterprogram- 
men, die Sie so einfach in das Hauptprogramm einbinden 
können, ohne sie neu eingeben zu müssen. Sie dürfen aber 
keine verschachtelten LINK-Aufrufe verwenden. 

APPEND dateiname liest den Quellcode »dateiname« 
anstelle des im Speicher befindlichen Quellcodes ein und 
setzt die Assemblierung damitfort. Dadurch ist die Länge des 
Quell- beziehungsweise des Objectcodes nur noch durch 
die Kapazität der angeschlossenen Laufwerke begrenzt. 

NAME dateiname vor dem ersten APPEND müssen Sie 
den Namen des ersten Quellcodeteils (»dateiname«) ange- 
ben, damit RITA ihn nach dem ersten Durchgang (Pass) wie- 
der laden kann. 

DRIVE nn schaltet auf das Laufwerk mit dem Kennbuchsta- 
ben »nn« um. Zum Beispiel wird nach 


DRIVE B 


der Quellcode fortan von Laufwerk B geladen, der Object- 
code aber immer auf Laufwerk A geschrieben. 

Für alle, die RITA ihren Wünschen entsprechend ändern 
oder erweitern wollen, hier noch einige wichtige Patch- 
Adressen: 

A01D hex: Drucker-Steuersequenz für »Unterstreichen 
ein«. Das erste Byte gibt die Länge der Steuersequenz an, 
darauf folgt der Code. Besitzer des NLQ 401 oder kompati- 
bler Drucker brauchen hier nichts zu ändern. Ab dieser 
Adresse sind insgesamt sechs Byte für andere Codes frei. 

A023 hex: Steuersequenz für »Unterstreichen aus«. Es 
gelten die gleichen Bedingungen wie oben. 

8A46 hex: Standard-Assemblieradresse (Origin). Sie liegt 
normalerweise auf 5000 hex. 

958D und 9915 hex: Anzahl der DATA-Werte pro Zeile für 
die Erzeugung von Basic-Ladern (normalerweise 8). 

Außerdem lassen sich bis zu zehn weitere Pseudo-Befehle 
definieren, ohne große Änderungen im Programm vorzuneh- 
men. Zu diesem Zweck brauchen Sie nur den Namen des 
neuen Pseudo-Befehls mit gesetztem Bit 7 beim letzten 
Buchstaben an das Ende des Programms anzuhängen und 
mit einem Null-Byte dahinter das neue Ende der Pseudo- 
Befehlsnamenstabelle anzugeben. Dann geben Sie nurnoch 
die absolute Adresse der neuen Routine als 2-Byte-Wert im 
Bereich von 8CCB bis 8CDE hex (normalerweise alle Null) an 
und erhöhen den Wert in Adresse 8858 hex um 1. 

Haben Sie bereits die ersten Schritte in der Assembler- 
Programmierung hinter sich oder sind Sie gar schon Rou- 
tinier, steht Ihrem Vergnügen mit RITA nichts mehr im Weg. 
Den Einsteigern unter Ihnen sei jedoch unser Maschinen- 
sprache-Grundkurs aus dem 5. Schneider-Sonderheft (Aus- 
gabe 10/86) wärmstens empfohlen. Er erleichtertIhnen nicht 
nur den Start, sondern bietet Ihnen auch noch eine vollstän- 
dige Übersicht über die Z80-Maschinenbefehle, 

RITA verarbeitet jedoch als Besonderheit auch »verbor- 
gene« Z80-Befehle. Der Befehlssatz umfaßt normalerweise 
knapp 700 Befehle. Einige ersetzen fast kleine Programme; 
denken Sie nur an die Blocksuch- und Blockladebefehle. 

Der Z80 besitzt insgesamt 22 Register, von denen der 
alternative Registersatz (AF’, BC’, DE‘, HL) für CPC-Besitzer 
wegen der Banking- und Interrupt-Logik jedoch nicht nutzbar 
ist. Da Zugriffe auf CPU-Register schneller arbeiten als Spei- 
cherzugriffe, macht sich dieser Verlust stark bemerkbar. 
Besonders bei aufwendigen Berechnungen oder anderen 
zeitkritischen Aufgaben wäre es gut, stünden mehr Register 
zur Verfügung. Alle logischen und Vergleichs-Befehle (AND, 
OR, XOR und CP) sowie alle Rotier- und Schiebe-Befehle 
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(RLC, SLA) arbeiten nur mit 8-Bit-Registern, also nutzt man 
sie auch entsprechend intensiv. Aus diesem Grund besitzt 
RITA die Fähigkeit, Befehle zu verarbeiten, die kaum ein 
anderer Assembler übersetzt und die auch in fast keinem 
Buch zum Z80 beschrieben sind. Gemeint sind Befehle, die 
die beiden 16-Bit-Indexregister einzeln als vier 8-Bit- 
Register ansprechen. Diese vier Register, der Einfachheit 
halber hier XL, XH, YL, und YH (IX-Register-Lowbyte, IX- 
Register-Highbyte, IY-Register-Lowbyte, und IY-Register- 
Highbyte) genannt, lassen sich bei allen Befehlen einsetzen, 
bei denen auch das L- oder das H-Register Verwendung fin- 
den und die nur ein Byte Opcode benötigen. Zum Beispiel 
sind beim DEC-Befehl das L- und H-Register getrennt zu 
benutzen, also auch die Register XL, XH, YL und YH: 
2D=DEC L 


Beiden BIT-, SET- und RES- Befehlen ist dies nicht möglich, 
weil ihnen ein 2 Byte langer Opcode zugeordnet ist. 

Eine Tabelle der verwendbaren Befehle mit den dazugehö- 
rigen Opcodes finden Sie weiter unten. Es sind immerhin 44. 
Die einzige Einschränkung dabei ist jedoch, daß - wie bei 
allen Indexregister-Operationen - die Opcodes mit DD hex 
bei IX beziehungsweise FD hex für IY beginnen müssen. Da- 
durch werden sie doppelt so lang und entsprechend lang- 
samer abgearbeitet als normale 8-Bit-Register. Sie sind aber 
immernoch schneller als direkte Speicherzugriffe, dieminde- 
stens drei Byte lang sind (zum Vergleich: »LD A,(&0000)« hat 
den Code 3A 00 00, »LD A,XH« ist mit DD 7C codiert). 

Viel Spaß nun beim Ausprobieren und Experimentieren! 

(Gerd Weinand/ja) 


109 HR [SID 
181 '* RITA.DAT - DATA-Lader von 'CPC’ = L[786EI 
192.1 HH [ASDET 


7 

(} 

2 

3 DATA 8449, 22,28,B6,22,30,B6,97,32,@DA4 
4 DATA BASQ, ‚EL, }B8,)FD,67,21,AB,AC, 7E,73SE 
5 DATA 8A58,B7,28,21,23,8E,2C,11,12,5768 
& DATA BA6sB,A2,CD,2C,9A,41,39,05,1E,849C 
7 DATA 8A68,02,C3,94,CA,11,19,B6,13,2E73 
8 8A7B, 18,FD,SE,FF,12,0E,2C,CD,3FaD 
9 DATA 8N78,BB,9A,38,E2,3A, 1D,B&,B7 ,725F 
ABB, 28,29,CD,02,9A,CD,1F,7A,D8AB 
121 DATA BABB,CD,AB,C3,CD,EF ,79,CD,87,5C031 
122 DATA 8A90,9B,21,FC,87,ED,5B, 1A,B6,5456 
123 DATA 8A98,7A,B3,20,06,CD, BE, 96,21, 103D 
124 DATA Sana, )FC,81,22,47,56,36, FF ‚23, 5AC5 
1,B6,23,22,33,B6,36, 1536 
21,7@,01,22,5E,B6,CD,0797 
127 DATA BABB,AB,9D, SE, 23,56, 7B,B2,CA,@9C2 
128 DATA BACQ}29,95,ED,53 


t} 
1 
1 
a 
ı 
1 
1 
1 
1 
1 
1 


137 DATA 8B08,BQ,2A,24,B&,QE ‚26,ED,42,5C9@ 
138 DATA 8B1@,44,AD,3E,3B,E1,E5,54,50,3157 
139 DATA 8B18,ED,B1,EB,28,@D,1B,ED,53,442D 
148 DATA 8B20,76,Bö,E1,7E,FE,3B,CA,E2,@B2A 
141 DATA 8B28,93,E5,DD,21,A4,AC,11,24,6EE6 
142 DATA 8B50,A2,CD,6C,74,38,27,D1,ED,6633 
143 DATA 8B38,53,72,B6,11,E2,93,D5,3A,261C 
144 DATA 8540,4A,B6,87,20,12,3E,21,B9,1CF3 


145 DATA 8648,D2,91,8E,3E,36,E9,D2,3D,5DAD [7C141 


RITA 
CPC 464 
Explora/CPC 
Diskette, Kassette 


Programm: 
Computer: | 


Checksummer: ] 
Datenträger: 


‚addiere Lowbyte IX-Register mit Carry zum Akku 
‚addiere Highbyte IX-Register mit Carry zum Akku 
addiere Lowbyte IX-Register zum Akku 

‚addiere Highbyte IX-Register zum Akku 
logisches UND mit Lowbyte IX-Register 
logisches UND mit Highbyte IX-Register 
vergleiche mit Lowbyte IX-Register 

vergleiche mit Highbyte IX-Register 
‚dekrementiere Lowbyte IX-Register 
dekrementiere Highbyte IY-Register 
inkrementiere Lowbyte IX-Register 

inkrementiere Highbyte IX-Register 

lade Akku mit Lowbyte IX-Register 

lade Akku mit Highbyte IX-Register 

logisches Oder mit Lowbyte IX-Register 
logisches Oder mit Highbyte IX-Register 
‚subtrahiere Lowbyte IX-Register mit Carry 
‚subtrahiere Highbyte IX-Register mit Carry 
‚subtrahiere Lowbyte IX-Register 

‚subtrahiere Highbyte IX-Register 

logisches Exklusiv-Oder mit Lowbyte IX-Register 
logisches Exklusiv-Oder mit Highbyte IX-Register 


Tabelle. Diese illegalen Opcodes verarbeitet RITA. Für das 
IY-Register steht im ersten Byte FD anstatt DD hex. 


146 DATA 8B5®,8C,3E,45,B9,D2,21,8C,3E,4D42 L[D6BEI 
147 DATA 8559,55,59,D2,FB,8C,34,44,56, 1574 
148 DATA 8668,67 ,C2,1D,95,E1,FD,7C,B7,6543 L77F2] 


149 DATA 8568,28,11,22,78,56,0E,20,0D,1605 [384A] 
15@ DATA 8B70,BB,9A,CD,9E,9B,D2,CF,9A,6DD4 LaDEC) 
151 DATA 8578,65, 18,AF,SA,7F,B6,B7,02,624C [36001 
152 DATA BBBQ,CF ‚9A,3D,32,7F,B&,7E,FE,A4A2 [3@201 
155 DATA 8688,38,CA,85,95,CD,35B,9D,2A,21A4 CBAEEI 

8598,33, B6,D5,€5 CABBEl 


‚C5}EB,CD,&C,2482 
1,19,CD,4D63 

‚5 
MH 

Bi ‚9B,EB,2B,6D3° 
8BC2,D1,18,56,C1,C5,2A,47,B&,6EEB 


161 DATA SBCB,ES,ED,42,EB,C1,D5,C5,2A,ABCC LFCGEI 
162 DATA 86D0,33,B6,2B,ED,42,44,4D,E1,3CCH LS4FE1 
165 DATA BEDG,ED,E®,E1,2B,2B,22,47,B6,45F8 LEFFAI 
164 DATA BBEB,ED,SB,85,AE,ED,52,DA,CB,7D9F LI14AAI 
165 DATA SBEB,9A,C1,E1,D1,ED,42,22,33,6A67 L@7DE] 
166 DATA BBFB,B& PERJED, }B@, 1B,1A,F6,80, ‚7680 [5D5@1 


188 DATA 8C4B,A3,4D,45,6F,67,9A,8F ‚04,ACDA 
£ 


‚8C,CD,?1,D2,91,02,4438 
1,52,71,48,683A 


—— 
— 

191 DATA BCBS,9D,F7,8D,1C,8E,38,8E,40,6D&C L[8BSAI 294 DATA 8FFQ,30,77,77,B9,20,1E,CD,C2,1F10 L89C61 
192 DATA BCCQ,8D,40,8D,3F,8E,4C0,8E,54,40D8 LABFEI 295 DATA SFFB,9C,30,13,DD,36,01,4B,DD,ACAF L[1S@CI 
193 DATA 8CCB,9E,59,8E,00,00,00,00,00,4080 L2DIA] 296 DATA 98@0,56,@0,ED,DD,73,02,DD,72,0928 L1@741 
194 DATA 8CD8,22,022,20,02,00,02,02,00,0000 LCC&6] 297 DATA 9@08,03,3E,04,ED,47,C9,DD,36,00C@ 187981 
195 DATA 8CD8,00,09,20,00,00,00,00,11,0011 LBBRQI 298 DATA 9910,00,01,18,28,5C,59,20,11,0295 L18D81 
196 DATA 8CE@,27,9E,CD,6C,7A,D2,DC,9A,2DDA [17921 297 DATA 9@18,CD,02,9C,38,06,DD,36,01,4549 139As1 
197 DATA 8CEB,SE,01,06,08,B9,28,08,3C,1A44 L[D&B61 502 DATA 9022,5B,18,DC,DD}36,@2,11,18,3C5A [L9B661 
198 DATA SCF@,@&,EB,B9,28,22,06,E3,78,2DD& LCEDA1 391 DATA 9028,13,3C,B9,20,1B,CD,C2,9C,1154 [7A741 
199 DATA 8CF8,C3,74,92,79,D6,43,4F,CD,6EBF [D5461 3@2 DATA 9030,30,06,DD,36,80,2A,18,27,Q01DF LEZIEI 
208 DATA ED@@,9E,9B,38,13,3E,08,B7,CA,6F98 LDSDQ1 303 DATA 9038,DD,36,00,21,CD,09,9C,DD,46B9 LFSBEI 
2@1 DATA 2D08,D2,2D,87,B7,CA,4C,8E,30,577@ (S6F41 394 DATA 9040,73,01,DD,72,82,C3,61,93,260D TE&1A1 
202 DATA 8D10,B9,CA,54,BE,C3,D3,9A,SA,6B3A LBSF2I 305 DATA 9048,CD,ED,9C,38,@C,FE,@2,02,4E1E [28001 
205 DATA 8D18,4A,B6,87,C2,1D,95,22,74,1@CC [5@AB] 3@& DATA 7050,DC,90,DD,36,08,F9,C3,AB,5282 LBBACI 
2@4 DATA 8D20,B6,0D,CB,01,E5,21,A7,80,475E [5402] 397 DATA 9@58,8E,23,CD,C2,70,30,06,DD,SEBl [@SDCI 
205 DATA 8D28,07,5E,23,56,E1,D5,09,CD,17@5 [FSA6] 308 DATA 9060,36,01,7B,18,7A,DD,36,00,1268 L[BCSQ1 
206 DATA 8D50,D6,9C,43,E5,21,A4,AC,97,4867 LESB21 399 DATA 9068,31,18,D1,2A,78,B6,CD,ED,Q66F TAFCEI 
207 DATA 8D38,77,23,1@,FC,E1,7B,ED,47,3969 [74E21 319 DATA 9070,9C,30,32,2A,74,B6,05,CD,44DF L7SAEI 
Z@8 DATA 2D49,C9,CD,D6,9C,43,C5,02,DC,4494 [22121 311 DATA 9078,C2,9C,D2,DC,9A,C1,97,B9,57C3 LD@F81 
289 DATA ED48,9A,CD,D6,9C,C1,78,ED,47,6B35 [952E1 312 DATA 9080,20,07,DD,36,01,43,C35,FF,077D LDE6AJ 
210 DATA 8D50,7B,E5,21,A4,AC,77,23,10,BE4A LB9BEI 313 DATA 9288,8F,3C,B9,20,07,DD,36,01,5E81 [95861 
211 DATA 8D58,FC,E1,09,7E,FE,2C,23,20,5FA&6 [6F263 314 DATA 9890,53,C3,FF,aF,5C,B7,20,06,0D12 LAB9@1 
212 DATA 8D48,FA,C5,CD,D6,9C,C1,E5,F5,5ESB [88661 315 DATA 9898,DD,36,00,22,18,A1,DD,56,62E8 L@A7EI 
213 DATA BD48,DD,73,20,DD,23,@4,F1,E1,7F9B L[E2DC] 31& DATA 9@AB,01,73,C3,FF,8F,23,CD,F2,0EAC TACERI 
214 DATA 8D70,2E,28,E8,78,ED,47,C9,7E,0298 UDBD21 317 DATA 90AB,9C,D2,DC,9A,FD,6F,2A,74,6ED4 [945A1 
215 DATA 8D78,FE,2C,23,20,FA,C5,CD,89,7757 LECEE] 318 DATA 9DEQ,B6,1E,00,CD,C4,98,23,CD,54BB TEFD6I 
21& DATA 8D80,9C,C1,E5,F5,DD,73,02,DD,6A49 [4300] 319 DATA 90B8,C2,9C,D2,DC,7A,DD,36,00,5648 I[C7ECI 
217 DATA 8088,23,DD,72,@00,DD,23,04,84,2EE8 [D7961 320 DATA 90C0,32,C3,3F,98,05,11,C8,9D,20C1 L@C7Al 
218 DATA 8D98,F1,E1,2B,28,E2,18,DC,58,41B@ [9988] 321 DATA 9@C8,CD,&C,»A,D1,D@,CD,FC,9@,670C 174381 
217 DATA 8D98,7E,FE,22,02,DC,9A,23,7E,aC58 [50121 322 DATA 9@DQ,E1,3E,01,B9,20,06,3E,02,75D6 ISFSB] 
220 DATA 8DAB,23,FE,22,28,00,B7,CA,CF,2B27 LEAF&] 323 DATA 9@DB,BS,C3,74,92,3C,B9,20,06,6DA2 [E69] 
221 DATA &DAG,9A,DD,77,00,DD,23,04,18,72D4 LA4B6] 324 DATA 90EQ,3E,12,B3,C3,74,92,5C,DD,009D L&DAgI 
222 DATA 8DBO,EE,78,ED,47,97,BB,08,DD,77C9 L[C372] 325 DATA 90E8,56,08,ED,CB,@3,B7,20,04,0BAB [DD84J 
223 DATA 8DBB,2B,DD,7E,08,F6,80,DD,77,297D [7816] 32& DATA 9@FQ,3E,47,18,02,3E,4F,B3,DD,@C97 L[75CQ1 
224 DATA BDCB,20,C9,1E,FF,18,D2,CD,89,35C4B L[SC1@1 327 DATA 9@F8,77,01,18,3C,FD,7D,FE,97,3CE7 [6B@@] 
225 DATA EDCB,9C,ED,53,28,B6,ED,53,30,7B52 L19EEI 328 DATA 9120,C8,C3,DC,9A,97,B9,3E,18,40D8 LAFD&I 
226 DATA BDDB,B6,C9,D1,CD,9E,98,D2,20,78A8 (04321 329 DATA 9108,28,10,CD,E8,9C,D2,DC,9A,01AA LIAF&I 
227 DATA 8DD8,95,CD,09,9C,ED,53,37,B6,77DC [B5361 338 DATA 9110,FE,04,D2,DC,94,F6,84,87,6E07 CAEBCI 
228 DATA BDEQ,CS,20,95,FD,7C,28,87,30,77B8 L1ECBI 331 DATA 9118,87,87,DD,77,00,7E,FE,24,7EBO LFABEI 
229 DATA 8DE9,5@,56,86,87,B7,02,EB,9A,022C [42DC1 332 DATA 7120,20,@D,CD,5A,90,2A,30,B6,0BDE [C&C4] 
230 DATA EDF@,CD,SB,9D,11,5@,B6,ED,B@,75C2 LiDICI 333 DATA 9128,19,EB,CD,4A4,9A,18,03,CD,2FsB TEDF41 
251 DATA aDF8,C9,3A,50,86,B7,20,14,CD,sEBD [AS16] 334 DATA 9130,47,9A,D2,E4,9A,DD,75,01,164F LF2A2I 
232 DATA BE@8,87,9B,CD,87,9B,3E,87,CD,7@73 LCEDE] 335 DATA 9138,3E,02,ED,47,C9,DD,36,00,0308 [aS481 
233 DATA 8E@8,38,9D,21,77,BE,CD,57,9B,3F61 L9FCEI 336 DATA 9140,10,18,EC,11,AQ,E6,18,0D,1435 [B4341 
254 DATA BE10,03,A2,96,32,3A,B6,11,7@,5BBA L[L8F921 337 DATA 9148,11,50,F6,18,88,11,BB,FE,sAaA [72941 
235 DATA 8E18,81,03,57,90,7C,32,49,B6,307C TEAGEI 338 DATA 9150,19,83,11,A8,EE,DS,CD,F2,Q12C LODA4I 
236 DATA 8E20,E5,2A,5E,B&,ED,5B,24,B6,7E5A [CBIEI 539 DATA 9158,90, 30,05,D1,53,03,74,92,495E [13701 
237 DATA 8E28,19,22,22,B6,E1,ED,5B,83,aFA9 [54061 330 DATA 9160,CD.D4,9C,F1,DD,77,02,DD,4877 LCBr6l 
238 DATA 8E30,AE,ED,53,45,B6,03,57,9D,64FF [74201 341 DATA 9168,73,01,18,CC,1E,40,18,06,37C6 [22361 
239 DATA 8E38,7E,D6,41,32,4B,B6,C9,CD,D0SF [S6F@] 342 DATA 917@,1E,C8,18,92,1E,80,CD,E1,3FAB L[74B61 
240 DATA 9E40,07,9C,7A,B3,28,02,3E,FF,265B [SFBO] 343 DATA 9178,9C,D5,CD,38,71,CD,D6,9C,67EC L[ADS81 
241 DATA BE48,32,44,B6,09,3A,4A,B6,2F,126B [21CC) 344 DATA 9180,3E,07,BB,DA,EB,7A,D5,CD,@u0r L[81@@1 
242 DATA 8E58,32,44,B6,C9,97,32,4A,B6,1582 [7580] 345 DATA 9188,F2,9C,D2,DC,9A,D1,CB,@5,4F81 LZFOEI 
243 DATA BES8,C9,FD,7C,B7,C8,11,E8,90,5869 [771Al 346 DATA 9190,CB,@3,CB,@3,B3,D1,B3,DD,7B77 L32E81 
244 DATA 8E68,CD,6C,94,D2,DC,7A,79,3D,6747 LSFA@] 347 DATA 9198,36,0@,CB,DD,77,01,C9,CD,0D53 @AC6] 
245 DATA 8E68,FE,@2,30,05,3D,32,1E,B6,787A [77A41 348 DATA J1AB,D&,7C,3E,02,BB,DA,EQ,FA,ACBA LC32BI 
246 DATA 8E70,C7,04,34,74,C03,1F,74,2A,5ESA CBE2Z1 349 DATA 91AB,DD,36,00,ED,77,B3,28,07,4BF3 [53D41 
247 DATA 8E78,50,73,65,75,64,6F,2D,42,3DB4 LADBBI 35@ DATA 91BB,1C,CR,13,CB,13,CB,15,3E,51BC [OFDAJ 
Za8 DATA BEBB,65,66,65,68,60,2@,4E,41,221D L[F4561 351 DATA 9168,46,B3,DD,77,01,3E,02,ED,1307 [2C92] 
249 DATA BE88,4D,45,20,66,65,68,60,7. 135681 352 DATA 71C2,47,C9,11,D64,98,D5,18,1B,177F [&CBAI 
250 DATA 8E9@,00,CD,7E,9B,38,0F,3E,05,28B5 LFEC4] 353 DATA 91C8,11,DE,98,18,88,11,C6,80,2C88 L[FD7&1 
251 DATA BE98,69,C2,D3,9A,DD,36,00,09,79357 LöBECI 354 DATA 91D8, 18,03, 11,CE,88,CD,E1,9C,042A TBFACI 
252 DATA SEAB,SE,D1,ED,47,C9,22,74,Ba,000E L7@A41 355 DATA 91D8,D5,CD,F2,9C,30,1F,FE,07,4E47 [721A1 
253 DATA SEAB,ES,C5,ES,SE,2@,CD,BB,9A,5FsB [5D521 356 DATA 91E0,C2,DC,9A,CD,F2,90,38,05,4C15 TAEF2I 
25 DATA 8EB9,D1,D5,ED,52,44,4D,E1,3E,47A8 LCaa@] 357 DATA 91E8,D1,B2,C3,74,72,D1,DD,73,5D3D L7EF@I 
255 DATA BEBS,2C,ED,B1,C1,20,04,22,78,3645C [52501 358 DATA 91F0,20,23,CD,D6,7C,DD,73,91,1B73 L9CBOJ 
258 DATA BECQ,B&,05,21,45,8C,0D,59,CB,5CiD LEDDAI 359 DATA 91F8,3E,02,ED,47,09,23,CD,ED,GIES LAABEI 
257 DATA BEC8,03,16,00,19,5E,23,56,48,07@08 [50241 36@ DATA 9200,9C,FE,02,02,DC,9A,D1,3E,78F4 LISFEI 
258 DATA BEDR,E1,D5,E5,05,3E,20,32,8D,5499 [8408] 361 DATA 9208,98,BA,20,04,16,42,18,99,6741 L7DFCI 
259 DATA 8ED8,9A,CD,3D,8F,30,24,CD,8D,7117 L[DB22] 362 DATA 7210,3E,80,BA,16,89,28,02,16,29DA [49461 
26@ DATA BEE@,SF,CD,68,8F,EB,2A,78,B6,7686 [35341 363 DATA 9218,4A,3R,7E,B6,B7,20,1F,DS,2AF5 [59041 
261 DATA BEEB,7C,BS,20,05,EB,36,00,18,1@88 [22761 364 DATA 9220,CD,ED,9C,50,19,87,87,87,4E1D LICEBI 
262 DATA SEF@,06,2D,@1,@D,@@,ED,BB,C1,0B25 [70941 365 DATA 7228,87,D1,B2,47,3E,09,BA,78,6528 [1F88] 
263 DATA BEFB,E1,21,40,00,3E,21,32,8D,715D L[446C1 366 DATA 7230,28,42,DD,36,08,ED,DD,77,1E39 LA9AAI 
262 DATA 8F@0,9A,C9,C1,E1,97,B1,28,F4,6FAß CSBFB1 367 DATA 9238,01 ,3E,@2,ED,47,C‘ L678E1 
265 DATA 8F@8,E5,C5,E5,24,78,B6,CD,3D,5D7F [1B461 368 DATA 7249,BA,C2,DC,7A,2A,3 [308] 
26& DATA BF1@,8F,38,@2,E1,C1,E1,30,E4,42D8 1D7981 369 DATA 9248,FE,9D,CD,6C,94,D2,DC,34,419A [7B&EI 
267 DATA BF18,E5,CD,8D,8F,5F,D1,D5,2A,5BAC [53781 37@ DATA 9250,79,3D,E6,03,87,07,87,07,2FiD LOASCI 
268 DATA 8F28,78,B6,ED,52,44,4D,E1,11,@5C7 122021 371 DATA 9258,F6,09,18,18,16,0 8,22,7B42 13202) 
269 DATA 8F28,498,00,ED,B0,2A,78,B6,22,375E L[47AQ@] 372 DATA 9260, 16,81,97,B1,C2,DC, /A,D5,1431 LIE7DI 
278 DATA 8F30,5F,Bös,EB,22,78,B6,CD,68,2DAA LFD201 373 DATA 9268,CD,F2,9C,D1,5Q0,0E,87,87,44N1 I2EBB]I 
271 DATA BFSB,8F,36,00,18,BA,7E,FE,28,4E7C [47001 374 DATA 9270,97,F6,04,B2,DD,77,00,3E,72AA Li@A41 
272 DATA 8F4Q,3E,01,20,02,23,97,F5,11,19DF LDB4CI 375 DATA 9278,01,E0,47,09,23,DS,CD,ED,SCRB EDCICH 
273 DATA BF4B,EF,9D,CD,&4C,FA,DI,DO,SE,AFAA LBE7CI 376 DATA 9289,9C,D1,D2,DC,7A,87,87,87,6485 LSGEA1 
274 DATA 8F50,04,69,3E,09,32,04,CB,91,2617 L[736E1 377 Data 9288,87,F6,05,5F ,7A,87,87,87,7ED5 L@DCA1 
275 DATA 8F5S8,SE,F8,@D,CB,@1,CB,81,B1,2D87 L[EZEAI 378 DATA 9298,B3,18,E1,16,05,18,02,16,449A T2BA6] 
276 DATA 8F&0)B2,32,7E,B4,7A,B1,37,09,5093 IBABQI 377 DATA 9298,C1,E5,21,41,06,22,B8,9D,SEAS IBFBE] 
277 DATA 8F68,F5,E6,00,2@0,14,F1,B7,F5,427F L@CE@I 380 DATA 92AB,E1,D5,CD,ED,9C,D1,21,53,5585 LBOICEI 
278 DATA 8F78,20,03,36,28,23,36,48,25,15F3 [7594] 381 DATA 72A8,D8,22,B8,9D,D2,DC,97A,87,7A85 L[DSECI 
2797 DATA 8F78,36,4C,23,F1,08,36,29,23,85D9 [@S7E1 382 DATA 92B9,87,87,87,B2,18,BE,CD,D6,7AF4 LS3CB8] 
288 DATA 8F82,C9,F1,CB,SF,3E,48,28,82,44D2 [EBCE] 383 DATA 72B8,9C,7B,BF,@F,@r,FE,08,D2,5292 L[S1F61 
281 DATA 8F88,3E,4C,77,23,09,2A,74,B6,@66E [4308] 384 DATA 92CQ,EB,7A,5E,C7,B5,18,AD,11,5985 [3304] 
282 DATA 8F9@,22,3D,B6,21,40,00,22,74,88A@ LDD161 385 DATA 92C8,88,904,18,65,11,08,20,18,208@ L[B1CA1 
285 DATA 8F98,B6,C9,CD,E1,7C,E5,CD,F2,78EC [8B9E] 386 DATA 92D0,78,C5,ES,CD,F2,9C,E1,C1,1DD3 [4020] 
284 DATA 8FAQ,7C,30,48,D1,FD,6F,87,07,484D L9IEC6I 387 DATA 92D8,58,1@,FE,@01,28,@C,FE,06,055A [77801 
285 DATA 8FAB,07,4F,C5,CD,F2,9C,C1,1E,@@4C [13221 388 DATA 92E0,C2,DC,7A,DD,56,08,E9,03,4851 [8DEB] 
286 DATA SFEQ,28,30,0B,F6,4@0,B1,FE,76,874E LFEBCI 389 DATA 92E8,AQ,8E,54,21,B6,B7,20,39,71C5 ICFACI 
287 DATA 8FBS,CA,DC,94,C3,74,92,23,3E,4CEB [28321 398 DATA 92F@,FD,7C,B7,28,34,05,97,B1,76CB LFEFCI 
288 DATA 8FCB,38,B7,20,84,CD,C4,90,23,327B LFEIEI 391 DATA 92F8,28,@0C,CD,E8,9C,C1,FE,04,@&5C [@S1@1 
289 DATA 8FC8,CD,C2,9C,38,15,FD,7D,87,45Al [7D241 392 DATA 73@0@,30,27,C05,2A,78,B6,ES,CD,@BDF LAFD6I 
29® DATA 8FD@,07,07,F6,06,DD,77,00,CD,1E19 LFBBA] 393 DATA 9308,47,9A,30,1B,CD,87,9B,21,@7D3 LiSBCI 
291 DATA 8FD8,D6,9C,DD,7 EBAFCI 

292 DATA 8FEB,47,C9,CD,FC, ‚a038 LIBEA] 

293 DATA BFEB,SA,18,54,D1,23,CD,ED,sC,1FFA [D5521 Listing 1. Basic-Lader des Assemblers RITA 
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931@,0E,AQ,CD,57,78,21,5F,9F,37AD 
7318,CD,57,9B,2A,26,B6,CD,77,588B 
932@,EE,CD,55,78,CD,87,9B,E1,42C35 
9328,C1,2A,74,B6,11,00,82,CD,6FAi 
9338,61,73,77,B1,28,8B,3E,C8,8020 
9338,B2,F&,01,B3,DD,77,2@,18,68BC 
9349, 11,D5,CD,EB,7C,D1,D2,DC,2C3C 
9348, 74,87 ‚87,87 ,F6,C8,B2,DD, 7159 
9358,77 ,08,77,BA,CA,AB,8E,CD,27C1 
9358,89, 9C,DD, 73,81 ,DD,72,02,3C8A 
9368,C9,3E,@3,ED,47,C9,1E,02,6478 
9368, 18,16, 1E,18,18,12,1E,28,@BFC 
9378,18,0E,1E,18,18,@A,1E,2@,0034 
9378, 18,06, 1E,28,18,@2,1E,38,@C@C 
9388,D5,CD,38,91,CD,F2,9C,D2,5394 
9388, DC,?A,D1,B3,DD,36,00,CB,SF&B 
939@,DD,77,01,C9,CD,F2,7C,D2,7BBA 
9398,DC,9A,11,48,DB, 18,QF ‚2A, 482C 
9348,78, B6,CD,F2,2C,D2,DC,7A,0184 
93A8} 2A, 74,B6,11,41,D3,D5,FS,1FCB 
93B@,CD,38,71,11,D3,9D,CD,6C,7EAA 
93B8,9A,77,C1,FE,04,20,12,78,447C 
93C0,87,87,87,D1,B3,DD,36,84,7738 
93C8,ED,DD,77,@1,3E,92,ED,47,4F35 
93D8,C9,23,CD,C2,7C,97,BA,C2,7ECA 
93D8,E0,7A,DD,73,@1,D1,DD,72,4894 
93E0,00,C9,3A,7E ‚B&,B7,28,58,3584 
93E8,21,AB,AC,11,A9,AC,@1,05,29EF 
93F0,00,ED,BG,CB,47,2@,33,F5,22DB 
93F8, 2A, 3D,B6,01.2D,0@, SE, 2B,OCAF 
9AB0,ED,B1,C2,DC,9A,E5,01,0B,480D 
9408,90, 3E,29,ED,B1,C2,DC,9A,83D2 
9410, 28,36, 20,63, CD,D6,9C,E1,16D9 
9418,36, 29, 3A,A6,AC,32,A7,AC,182A 
9420,75,32,A6,AC,ED,57,3C,ED,29A1 
7,F1,F6,0D,32,A4,AC,ED,@365 
47,2A,3D,B6,22,3DBA 


9450,25, 21,A4 ,AC,06,08,4F ,3A,0414 
9458), 1B, B6,B7,20, 13, al, 3a, 20, 3528 
9460,B6,B7,C4,FD, 78,28, BF ‚7E,65B@ 
9468, 23,CD,95,BC,1®,F9,18,06,58F2 
9470, ED,3B,38,B6,ED,B@,3A, 1E ,s8E2 
9478, B6 ,B7 ,C2,03,95,CD,87,9B,68B9 
7480,21,30,B6,CD,FD,9C,3E,208,8354 
9388, co, 5A, BB, ED,57,B7, 28, 1B, sIFF 
9498,47, u AaHACı ‚@E,0S, en, )C5,353B 


9460 ,2A,26,B6,CD,77,EE,86,13,B6FF 
94BB,CD, 1F,9D,3E,C8,3 „IB, 
94C0,2N,70,B6,7C,B3,C4,57,9B, 1EGD 
94C8,06, 1A,CD, 1F,9D,24,72,B6, 1902 
9400, 7C,B5,28,23,CD,57,9B,06,1274 
9ADB, IF, CD, 1F ‚90,24, 76,B6,7E,376A 
g4EB,FS,E5,97,77,32,5D,9B,2A,57A8 
94E8,74,B6,7C,B5,C4,57,9B,06,1S1C 
9AFQ,2C,CD, 1F ,9DJE1,F1,77,97,2BC5 
94F8,32,5D,9B,2A,76,B6, 7C,B5, 1EAS 
9500,C4,57,9B,2A,3@,B6,ED,57,64D5 
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7,8A,Di, 
A,47,B6,B7,28,@2F& 
9,B6, 24, 22,B6,247A 
'D,54, 1A2E 
9538,8E,CD,87,9B,CD,87,9B,21,6873 
9540, 7F ‚9F ‚CD,57,9B,FD,7C,F5,03B1 
9548,C6,31,CD,5A,BB,CD,57,9B, 7599 
9550, 2A,2A,B&,ED,SB,2E,B6,22,BABE 
9558, 2E,B&,ED,52,CD,79,EE,F1,24A1 
9568,87 ,20,23,3C,FD,67,34,1A,523A 
9568, B6,B7,28,87,3A,1B,B6,B7,72D7 
9578,CC,CD,96,2A,28,B6,22,38,46CC 
9578,B6,3A,3A,B6,B7,CA,Bl,8A,SEDS 
9580,21,50,B6,CD,13,8E,3A,28,1C64 
9588, B6,B7,28,15,86,@8,C5,21, 

9590,A4,AC,97,77,23, 1 
97598,4E,B6,47,F1,70,4 
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95AB, 90, 9F ‚CD,57,9B,E5,2A,24,7422 
95B@,B&,CD,77,EE,CD,87,9B,CD,sC@F 
9568,87, 9B,E1,CD,57,9B,E5,21,748F 
95C8,28,B6,CD,FD,7C,E1,CD,57,2959 
95C8,9B,ES,2,30,B6,2B,22,30,77E8 
95D0,B6,21,30,B6,CD,FD,3C,E1,5A6S 
95D8,CD,57,98,E5,21,37,B6,CD,4E@S 
9SEB,FD,?C,E1,CD,57,9B,E5,2A,4844 
95E8,30,B6,ED,5B,28,B6,ED,52,2F8@ 
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7678,BB,42,4B,D5,CD,D3,7B,22,4D@@ 
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96F8, 31,97,97,CD,75,Bl 
708,CD,31, 37, 
7708,37,86,24,CD,45,7 ä 
9718,31,97,97,CD,95,BC,13,13,251D 
9718, 7B,CD, 95, BC, 7A,CD,95,BC, 162 
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9759,6C,65,6E,61,6D,65,20,66,264A 
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9798,CD, 87, 9B,ES, BE, 2C,CD,BB,S5B91 
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97A8,E5,CD, 57,98, 21,64,97,CD,43D3 
9758,57 ,98,86,07,CD, 1F ‚9D,E1,BASF 
9788, £D,5B, 33, B6,CD,6C,9A,38,4B94 
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9818,80B,0B, cd, 25,98, CD, 4B,9D,1BAF 
9820,C1, E1,89,18, }os}| ED, 57, 47 ,5D95 
9828,ED, SB, 7A, Bö, MH Al, EI c8, 6170 
9838,CD, ya7, BB, 1377, IEs, 2A, 126, ’B6, MT 
9838, CD, 79, EE,3E,28,CD, 5A, BB, 64DB 
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9848, F1,DA,57,9B,23,23,23,23,ACAl 
9950,23,23,03,57,9 Ba aaA2 
9858, B7, C8,21,76,9 
9868,21, ac} Ba, Mer 57,98, „21 73,2855 
9868, Aa, 11, 28, B&, CD, C7,99,21,5E47 
9878,DB,AB, MM Heros MICH 21, ’oa, MY 5589 
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9880, MH 11, 0375 B6,21,A7,AB, M=M 14759 
9888,07, 99, 21, E6, Al, CD, C7, 99, 48AB 
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9898,ED,52,22, 7A, B6, E5, il, 7a, 679C 
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9BAB, Eco, A1,CD,C7, 99, 2A,28, B6, 4916 
98B0, ‚Di, 19, 22, ‚78, B6,11,7A, YB6, 6896 
Saba, 21,E4,AQ, )CD, C7, 99, 21, FB, 35B5 
98Ca, sAı, 11,C9, yal, ji, ©C, MH M= \a725 
98C8, BO, 21,68,B6,1 9,A1,ED,5523 
JEDB,AB,7E,B7,28,10,FE,2E,20,5BE4 
98D8,F6,E5,25,11,D2,A1,81,03,4325 
98E0, ‚an, JED, ‚Ba, 18, ’a6, E55, ‚21, MZH }2FD2 
98ER, Al, 18, F@,D1,21, FT, Al, ‚ai, 72607 
F8FB, M’CH MH JED, ’Ba, ED, SE2, MICH ‚21, Jıass 
98F8,29,AB,C3, D9, 99, 21, ,95, BC ,2CAA 
9988,22,1D,9D,21,A4,AC,ED,SB,@1EL 
9908,40 ,B6,3A,4E,B6,F5,B7,CC,BFE& 
9918,62,99,F1,3C,FE,88,F5,38,0CA2 
9918,81,97,32,4E,B6,7E,83,5F ,22F1 
9720,30, yaı, 14,7E 123)05, ch, ‚a7 1EFi 
9928, 9D, SE, 2C,, CD,95,BC,D1,F1,4F5B 
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7948, ac, Bö,21, E6, Al, ES, CD, c7, BsR1 
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9968,C1,C9,05,E5,21,04,A2,34,4460 
9988, 7E, FE, SA, 20, 25, 36,38,2B,857B 
9978,18,F5,21,87,A2,86,0B, SIE 13878 
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9978,23,CD,95,BC,18,F9,11,00,38E& 
9980, 88,ED,53,4C,Bö,E1,C1,09,329F 
9988,CD,EF,99,21,26,9F,CD,&C,4ECA 
9998,9B,21,23,8A,CD,A2,99,21,4CF3 
9998,12,A2,CD,A2,99,21,F3,A2,3788 
99A@,18,80,CD,87,9B,CD,87,98,1BA7 
99A8,7E,23,0B,27,38,@6,@F ‚CD, 2DDB 
9982,54,BB,18,F4,@F,CD,SA,BB,OCCS 
9968, 7E,B7,C8,3E,2C,CD,54,BB,QA7B 
99CB,3E,28,CD,5A,BB,18,E1,EB,BF91 
99C8,E5,D5,01,02,84,CD,17,F1,4417 
99DB,EB,D1,21,24,@8,ED,BB,D1,43A5 
99D8,C9,7E,253,B7,C8,CD,95,BC,7@F2 
79E0,18,F7,21,60,B6,CD,3B,9D,358F 
99EB,41,11,88,82,C03,8C,BC,3E,298E 
99F8,02,CD,@E,BC,CD,9C,BB,21,3DBF 
99F8,FS,9E,CD,57,9B,C3,9C,BB,4787 
AGB ,CD,2E,BD,D0,97,32,1D,B& 


1,7E,Fi +79, 09,38, 
2,1D,B6,3E,03,32,54,77@2 
9A28,BB,21,AB,7B,22,5B,BB,CD,48D7 
9A30,18, ya, 18,CC, M=5H ‚87, KH 97, 2095 
9038,32, iD,B&,3E,CF,32,5A, BB, @DDF 
9A40,21,00,74,22,5B,BB,C9,CD,814B 
9A48,89,9C,2A,30,B&,EB,B7,ED,225F 
9A50,52,2B,2B,E5,38,04,97,AC,289A 
9A58,20,1Q0,CB,7D,20,2C,18,09,@BB9 
FAsB,SE,FF,AC,20,85,CB,7D,28,3496 
7968,01,37,E1,09,01,01,08,2B,1DD7 
9A70,E5,1A,B7,28,24,13,23,BE,6184 
’ 7,E6,7F,BE,28,01 
9AB0,ES,05, 1B, 1A, 13,17, 3 


9A9G,FE,2B,28,08,FE,2C,28,04,7754 
9498, FE, 2D,20,E3,D1,37,C9,E1,7957 
9AAQ,C9,D5,C5, 1A, BE,28,0B,@D,4DAB 
9AAB, 28,08, 23,13,10,F5,B4,DI,11BD 
9ABQ,D1,C9,D1,42,D1,C8,23,0D,4125 
9AB8, 20,E7,C9,7E,23,B9,37,C8,345A 
9ACQ,B7,C8,FE,SB,20,F5,C9,86,76B8 
FACH, 06,18,1E,06,87,18,1C,06,06C6 
JADB,28,18,16,06,01,18,14,06,00E6 
9ADB,02,78,18,0F ,06,03,18,09, 1CFS 
AED ,06,04,18,05,CD,38,71,96,BöFC 
9AEB,0S,FD,7C,B7,31,00,C0,3E,3986 
JAFQ,2C,32,95,9A,CA,03,95,CD,063B 
9AF8,87,98,3E,2A,CD,5A,BB,SE, 6668 
9500,87,CD,38,90,21,3A,7E,78,3EB4 


'5,2A,26,B6,78EA 
9B28,CD,79,EE,E1,CD,57,98,21,6033 
9528, 30,B6,CD,FD,9C, 2A, 2N,B6,275A 
9B30,23,22,24,B6,CD,55,98,CD,11E1 
9838,87, 98B,B7,CD,34,98,CD,87,7DAD 
9BAB,9B,F1,FE,07,CA,A2,96, 5A, 6BBE 
9548, IF ,B6,B7,CA,@3,95,CD, 18, 3BBE 
9BSB.9A.CD,75,98,C3,03,95,7E,7E18 
3B58 125,87 C8,FE,29,00,30,07,28C7 
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9848,50, BB, 18, EB, 7E,23,B7,C8, 8CAA 
9878, CD,38,9D,18,F7,CD,81,BB}7F95 


‚) E/FC,C0,C3,A2,96,3E,7482 
9B88,2D,CD,38,9D, SE ,@A,CD,38,3B6A 
9B90,9D,3A,1D,B&,B7,C8,CD,2E,AFEC 
9698, BD, 8,FB,C3,AB,C3, 7E,FE,AS9E 
9BAB,SB,C8,B7,C8,FE,20,37,00,323E 
9BA8,23,18,F3,CD,38,9D,FE,28,8758 
9BE® ‚D2,2B,BD,ES,F5,21,1D,A8,7D86 
96B8,CD,C9,98,F1,C6,40,CD,2B,4E31 
9BCB,BD,21,23,AB,CD,C9,9B,E1,5C3B 
9BC8,C9,46,23,7E,23,CD,2B,BD,7447 
9BD@, 18,F9,09,2A,47,B6,0B,CB,2DFD 
96D8,21,CB,10,09,56,23,5E,EB,22BB 
9BEB,C9,97,ED,4F ‚DS,ED,5B,33,5D89 
9BEB,B6,CD,6C,9A,38,86,FD, 7C,sC3E 
9BF@,B7,C2,C7,9A,ES,E5,CD,D3,7F85 
9BF8, 9B,D1,ED,5F ‚87,38,85,17,615B 
9CEB,EB,E1,B7,C9,B7,ED,52,18,518@ 
9C08,F7,CD,9E,98,D2,DC,9A,97,56F3 
9C1B,ED,4F,11,00,08,7E,FE,41,6725 
9C18,D4,E4,9B,3@,11,FE,22,28,4@7C 
9C28,23,D5,CD,5A,9C,ES,ED,SF ‚3629 
9C28,87,38,2A,17,EB,E1,7E,23,0D53 
9C3@,FE,2C,CB,FE,2B,28,85,77,63A5 
9C38,ED,4F,18,D9,FE,2D,C®,@F,sDiB 
9CAQ,ED, san 18, ‚Di 23, 7E,83,5F ‚6AE9 


9ChB,20,3C,23,7E,FE,58,28, 1F,1ASF 
9C6&B,QE,24,FE,3A,38,02,D6,87,1A83 
9C78,D6,30,86,84,CB,23,CB,12,60D8 
9C78,10,FA,BS,SF,23, 7E,FE,30,243C 
9C80,D8,2D,22,£6,C3,EQ,97A,0E,6182 
9C88,19,23,7E,D6,3@,CB,23,CB,2@41 
9C98,12,B3,5F,23,7E,FE,38,D8,2CAB 
9C78,8D,28,F8,C3,EB,7A,BE,85, 19C1 
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La3C93 
E5ES541 
casası 
EFCBAJ 
LIarF&ı 
E39@A] 
149463 
ESESEI 
128141 
[72881 
[SCA21 
EFS2CI 
T1ADB] 
Ea1acı 
c02461 
t@A521 
Ccar23 
EDIEEI 
CaDF23 
£16121 
[62A6] 
L&C2A] 
LESc®] 
E1c2Cc1 
181721 
17C881 
[53C@] 
[DFB61 
[SBEAI 
T1A64] 
CAABAI 
LECEE] 
[DESFAI 
EFA9CI 
LESBB] 
ESIEE] 
(A432) 
[B086] 
CBBAS) 
EDAEBI 
[B9FEI 
1C254] 
EBAFCI 
EFC66] 
[56783 
CDSBEI 
LaADEI 
{794E1 
[87063 
EFB6B] 
LA506] 
CıD2al 
14318] 
CE21CI 
15888) 
[7648] 
12646) 
EAEICI 
ECSE2I 
[96AQ] 
(892AJ 
[68481 
[74343 
187503 
CA3221 
192381 
[8C7C3 
199821 
CCC@21 
CAEECI 
EC2BEI 
13846] 
185261 
LESFEI 
EB@SEI 
EF1D4] 
[08621 
£13743 
120781 
ta7raı 
£77D41 
[37621 
13898] 
L95A8] 
[F@s8] 
LESBR] 
L1BF21 
[B5641 
17612] 
LE37@1 
cD8281 
1257A1 
C12081 
L657A1 
(877E1 
E7DFBI 
[a7CE1 
[EB961 
[BAECI 
EFICBI 
682781 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATa 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Listing 1. 


FCAB,C5,44,4D,29,29,@ 
9CBB,06,09,09,C1,13,1A,FE,30,QFOC 
9CBB, 38,06, 2D, 20,E4,05,E0, 7A, 1B56 
9CCQ,EB,L9,7E,FE,28,37,3F ,CQ,4602 
9CC8,23,30,32,95,3A,CD,89,9C,16FA 
9CD®,3E,2C,32,75,94,C9,CD,89,1D77 
9CD8,7C,F5,97,BA,C2,E@,9A,F1,6E55 
9CEB,C9,97,89,C0,3D,03,D3,94,59B8 
9CEB,11,BB,9D,18,@8,11,B2,9D,359D 
ICF@,18,03,11,A6,9D,CD,6C,9A,BSIE 
9CF8,D9,23,2D,79,C9,01,92,04,40BC 
9D@2,CD,19,F1,EB,C3,57,9B,9F,767D 
IDGE,OF,OF,aF,Or,E6,QF,CD,14,03D2 
9D18,9D,7B,E6,0F ‚FE,0N,38,02,4BDA 
9D18,C6,07,C6,3@,C3,5A,BB,3A,7FSC 
9020,86,B2,2F ,3C,94,89,38,85,6BF5 
9028, CD,87,9B,85,78,B7,C8,47,54BB 
18,FB,C7 ,0FA7 

5D,@E,20,78B8 
9D49,CD,BB,9A,B7,ED,52,44,40,5695 
9048, @B,E1,C9,CD,@9,BB,D@,FE,2BCA 
DSB ,FC,CA,A2,96,C3,75,98,D5,578F 
9058, 3A,4B,B6,32,0@,A7,CD,3B,191D 
9068,90,C5,E5,11,8C,B8,ED,BQ,659A 
9068,EB,36,88,E1,C1,41,D1,D5,7@6B 
907@,CD,77,BC,E1,65,09,22,83,651B 
9078, AE,44,4D,B7,24,47,B6,23,45D3 
9D88,ED,42,DA,CB,9A,E1,E5,CD,77A3 
9D88,85,BC,CD,7A,BC,E1,22,5E,76FE 
9090 ,Bs ,D1,97,32,2@,A7,81 ,7E,7C6Q 
9D98, Er FD,7C,3D, 20,03, 3A, 1E,AF7& 
3,87 ,8A,02,03,6587 


90C8,28,42,43,A9,28,44,45,A7, 0603 
9DD8,C9,D2,00,28,53,50,A7,41,504B 
9DD8,C6,41,46,A7,28,43,A9,0Q, 7@EE 
FDEB,AF ‚Ab ,C6,AF ‚CE ,58,2E,AF ,2D13 
9DEB,46,C6,50,2E,4F ‚CE,00,49,1B69 
9DFB,D8,58,C8,58,CC, Ba Ha 49 ,6QAB 


9E28,46,20,41,46,A7,44,45, 20, 20CE 
9E30,48,CC,28,53,50,29,2C,48,1504 
9E38,CC,00,27,20,46,65,48,4C,62F8 
9EAQ,74,00,AF ,78,65,72,61,6E,36AC 
9E48,64,20,66,65,68,6C,74,00,3288 
9ESB,4C,61,62,65,60,20,62,65,3711 
9E58,72,65,69,74,73,20,64,65,2995 
FELB,66,69, ‚ee "63: EN ı74,00,2018 
FEAB,53, 79,6 2,65, 3FaD 


JEBB,63,6B,2i ® 
9E90,6F ,73,73,00,52,65,6C,61,269D 
9E98,74,69,76,65,72,20,53,70,2Bl& 
JEAB,72,75,6E,67,20,74,75,20,2FD2 
JEAB,77,65,69,74,B0,4C,61,62,2930 
gEBB,65,6C,20,6E,69,63,68,74,2700 
9EB8, 20,64, 65,66,69,6E,69,65,0187 
9ECB,72,74,00,53,70,65,69,63,2395 
9ECB,68,65,72,20,76,6F ‚6C,60,23B8 
9ED®,00,53,79,6E,74,61,78,2@,1Fr4 
9ED8,45,72,72,6F,72,QQ0,4E,41,35FD 

20,62,65,72,65,69,37A3 
9EEB,74,73,20,64,65,66,69,6E ,268C 
JEFB,69,65 


3E08,20,2D, »6F,70,79,72,1B48 
9F1B,69,67,68, 74, 28,31,39,38,248E 
9E18,37,20,62,79,20,41,4E,54,189C 
9F20,49,53,4F ‚46,54,88,0D,8A,3r7& 
9F28,10,20,2@,20,47,65,72,64,@12C 
9FS@,20,57,65,69,6E,61,6E,64,BDBC 
9F38,20,2F ,2@,48,65,72,72,65,1921 
9F4B,6E,73,74,72,2E,20,31,34,23C6 
9F49,20, 2: =: 35%, 35, 39, 32, 20, 1D9C 


9F88,65,68,6C,65,72,3A,20, 08, 2068 
9E9@,46,65,68,6C,65,72,20,69,3349 
9E98,6E,73,67,65,73,61,60,74,23C2 
JFAB,SA,28,02,41,6E,66,61,6E,1354 
9FAB,67,3A,20,26,88,20,28,20,3BB8 
9FBB,20,20,20,45,6E,64,65,34,1A4D 


Basic-Lader des Assemblers RITA (Fortsetzung) 


9,4F,79C1 LSFAGI 


[aE7AI 
189821 
[F7321 
C46F6] 
CASFBI 
LEFACI 
EF@2C9 
ECDD&1 
LAScAI 
£7C881 
[C618] 
L27E81 
[B916] 
CABFO] 
[5D841 
E7EFAI 
[66281 
L&8C21 
EFRBEI 
cB07@] 
CAQ243 
EBACCI 
136181 
C29B61 
[33023 
CSBDB] 
[03789 
EDAGAI 
E1D7A1 
L9FBEI 
t2c1c1 
EDFAEI 
Ca5A2] 
eSB1A] 
EDSEEI 
casscı 
[5578] 


CSABC1 
ED2041 
L36D8] 
153583 
Coaaaı] 
L9F8B] 
E96AEI 
[77581 
[8396] 
L9D7EI 
CaAsaı 
[4044] 
tEBA21 
[OB6AI 
670321 
La428) 
139341 
EFBS6] 
CAB96] 
CAAB2I 
tEB7CI 
[0168] 
123681 
L8D66] 
629381 
[A292] 
ESEACI 
[34601 
E1A721 
L2B2A] 
L20C061 
194701 
C829E1 
EC56B1 
EQLBEI 
[16641 
E1B881 
C1DEBI 
EFAGQI 
[6346] 
E3C4E] 
CADSAI 
E9BFAI 
E15A23 
E9BLEI 
EFO4EI 
63146] 
[B25E1 
LA4D&1 
cC1A21 
ES51c1 
1851A1 
EF8381 
LC9FCI 
EBEAB] 
TeAacı 
ECC9B1 
coDSA1 
LAF26] 
141581 


127 


799 DATA 9FB8,20,26,08,20,20,28,20,2@,1A6@ LEDEBI 9@3 DATA AZFB,C2,44,D7,44,CD,44,03,4F,6811 L[L91C4] 
800 DATA 9FCQ,20,53,74,61,72,74,30,20,0E44 [F2261 704 DATA ASQ9,52,C7,45,4E,C4,4E,41,4D,1357 [@AGEI 
801 DATA 9FCB,26,00,20,20,20,20,20,20,14E0 L&SCE1 905 DATA L4A721 
802 DATA FFDB,AC,61,65,6E,67,65,3N,20,36F8 [04981 906 DATA AS10,49,4E,CH,44,52,49,56,C5,29FD L[L55B2J 
803 DATA 9FD8,26,00,4C,61,62,65,64C,74,1EB8 [40921 987 DATA A318,44,45,C6,45,51,D5,49,C6,2E58 La&7E] 
804 DATA 9FEQ,61,62,65,60,60,65,30,20,20C0 [B3701 908 DATA AS20,45,40,53,05,45,4E,44,49,3461 [07441 
805 DATA 9FEB,00,20,40,61,62,65,640,2E,0SE2 I[E@7CI 907 DATA A328,C6,40,49,53,D4,00,00,00,7ABO [865A1 
806 DATA IFF@,00,0D,0A,OD,BA,2A,44,72,02D2 L747E1 919 DATA #ENDEx L98C81 
807 DATA 9FF9,75,63,6B,65,72,20,69,73,2AC1 LAQBAI 911 adr-&SARB:zeile-194:MEMORY adr-1 147361 
BOB DATA ABBB,74,20,4F,46,46,20,4C,49,3DE1 LC74A1 912 READ d$:IF d$="#ENDEx"THEN 925 ECagEI 
809 DATA ADaB,4E,45,07,0D,0A,00,23,27,3641 L&l1dl 915 T9E1B1 
810 DATA AB10,44,52,27,20,6D,6F,65,67,3519 LSES01 314 To 8 EC36E1 
811 DATA AB18,60,69,43,68,0@,@3,1B,2D,24B7 LC3AC] 915 READ a$:a=VAL ("&"+as) eccacı 
812 DATA AB20,01,20,00,03,1B,2D,@2,0@,B0DC L28D81 916 POKE adr ‚aradr=adr+1 LEF281 
813 DATA AQ28,00,31,30,30,20,27,44,41,0815 LEB9AI 917 #2: IF pr>65535 THEN pr=pr-65535___ [66AB1 
814 DATA AQS0,54,41,2D,4C,61,64,65,72,3900 LAF@61 Jia INT(pr)XOR a; 

815 DATA AQS9,20,76,6F,6E,20,5A,38,30,06A8 [BES6] LAFcBI 
81& DATA AB49,20,41,53,53,45,4D,42,AC,0CC4 [62321 919 NEXT i EZB16J 
817 DATA AQ48,45,52,20,642,79,20,41,4E,3744 [50181 920 READ pr$:pr2=VALC"&"+pr$)sIF pr2<@ THEN 

818 DATA AB50.54.49,53,4F ,46,54,0D,0A.s5A0 L&1AC1 pr2=pr 2465536 tecaal 
817 DATA AQ58,31,31,3@,20,27,@D,@A,51,11E9 L[380A1 921 IF pr<dpr2 THEN PRINT"Pruefsummenfehler 

820 DATA AB60,32,38,20,27,4C,61,64,65,1039 LCCD4J in Zeile";zeile:STOP EpD182 
821 DATA AR&B,61,64,72,65,73,73,65,3A,2334. [CA@BI 922 zeile=zeile+1:60T0 712 [436E1 
822 DATA AB78,20,20,24,20,20,20,20,0D,1FaD L17DAI 923 SAVE"RITA.BIN" ‚B,2BAQB,&1930: END [9E&21 
823 DATA AQ78,0A,31,33,30,20,27,4C,61,0D45 L1BQEI 

824 DATA AB80,65,6E,67,65,34,20,20,20,22808 L&C82J Listing 1. Basic-Lader des Assemblers RITA (Schluß) 


825 DATA ABGB, 20,20,20,20,26,20,20,20,1FDB L[BECEI 
826 DATA AB?B,20,8D,0A,31,34,30,20,27,1817 LDSD21 
827 DATA AQ9B,53,74,61,72,74,61,64,72,3DIE L&9SC] 
828 DATA ABAB,65,73,73,65,3A,20,26,20,274C [8128] 
827 DATA AQAB,20,20,20,0D,0A,31,55,30,1C1E L[QQ2EI 
830 DATA AQBB,20,27,2D,0A,31,36,38,20,19D8 L@a@E) 
831 DATA ARBB,AD,45,4D,4F,52,59,20,26,37@2 L9@SAI 
852 DATA ABCQ,20,28,20,28,2D,31,3A,7A,1FA2 LFOSEI 723 DATA 9D58,3A,4B,B6,32,D8,A6,CD,3B,1FD7 [87203 
833 DATA ABCB,65,69,3D,32,37,30,@D,0A,2D28 L[9E7@1 730 DATA 9D78,B6,D1,97,32,D8,A6,81,7E,7AA4 LIFCAI 
854 DATA ABDQ,31,37,30,20,46,4F,52,20,12C8 LAB1@1 
835 DATA AQ@DB,67,3D,26,20,20,20,20,20,3CE0 LA22CI 


e Dan, Ba EU s2E v2 Su 2 en en a Listing 2. Diese zwei Zeilen müssen Sie in Listing 1 
838 DATA ABF@,OA,31,38,38,20,20,20,73,0CF3 LF&1E) austauschen, wenn Sie ein Vortex-FiSID oder 
837 DATA AGFB,75,60,3D,30,3A,46,4F,52,2564 [70921 MISID-Laufwerk verwenden 


840 DATA A1BB,22,6A,3D,30,20,54,4F,20,BECE [A956] 
841 DATA A188,37,2D,2A,31,39,30,20,20,1BF8 [9128] 
842 DATA A110,20,20,20,52,45,41,44,20,1AA4 L[S4C6] 
843 DATA A118,61,24,3A,61,3D,56,41,4C,SBAE L[B@16EI 
844 DATA A120,28,22,26,22,2B,61,24,29,1ADD LE97341 
845 DATA A128,3A,73,75,60,30,73,75,60,0913 [60761 
846 DATA A1S0,2B,61,3,50,4F,4B,45,20,0C7E LB9761 723 DATA 9D58,3A,4B,B6,32,06,A7,CD,3B,192D LASDA] 
847 DATA A138,64,2B,67,2C,61,@D,@A,32,335A [EABBI 738 DATA 9D98,B6,D1,97,32,06,A7,@1,7E,7C58 [52841 
848 DATA A140,30,30,20,28,20,4E,45,58,12EA [3808] 
849 DATA A148,54,20,6A,@D,0A,32,31,3@,2FsA L[2AS41 
850 DATA A1SB,20,20,20,52,45,41,44,20,1AA4 L7CCCI 


Et Be nn Listing 3. Diese zwei Zeilen müssen Sie in Listing 1 
855 DATA A129/0D,0,32/32,50,20,20,20,00a@ tD7ECI austauschen, wenn Sie ein Vortex-X-Laufwerk verwenden 


854 DATA A170,49,46,20,61,30,3E,73,75,369B [LA35Q1 
855 DATA A178,6D,20,54,48,45,4E,20,50,338@ LF2221 
856 DATA A180,52,49,4E,54,22,44,41,54,3716 [92081 
857 DATA A188,41,46,45,48,40,45,52,21 [564A] 
858 DATA 0,5A,65,69,60,65,2091 LS5BA] 
857 DATA 5,69,3R,45,4E,44,0SAC [7898] 


860 DATA A1AQ,QD,@A,32,33,30,20,20,20,@@10 LCCC21 1890 CLS: INFUT"Name der Quellcode-Datei: 

861 DATA A1AB,7A,65,69,3D,7A,65,69,2B,280D L@1BA] ‚nas [259801 
862 DATA A1BQ,31,30,00,8A,32,34,30,28,1488 L@AEBI 118 PRINT: INPUT"Name der Zieldatei: ",na 

863 DATA A1BB,4E,45,58,54,20,67,0D,0A, TE6841 18 L2c1C3 
864 DATA AICQ,32,35,390,20,53,41,56,45,1335 L4ADBI 120 zei=1PG:OPENIN na#zDPENDUT nal$ EDSBEI 
865 DATA A1CB,22,20,20,20,20,20,20,20,1EEQ LBBE&I 152 WHILE NOT EOF [98701 
866 DATA A1D9,20,2E,20,20,20,22,2C,42,1C12 L3F@A] 148 LINE INPUT#9,A$ L4B741 
867 DATA A1DB,2C,26,20,20,20,28,20,26,187E LABAQ1 150 a$s=STR$(zei)+" ""+UPPER$ (a$) LiF6A] 
968 DATA AIEQ,20,20,20,20,2C,26,20,20,1F98 LECOBI 16@  PRINT#Q,as [74221 
867 DATA AIEB,20,20,@D,@A,32,36,30,20,1888 [13121 170 zeiszei+1ß L79A21 
870 DATA AIFQ,27,0D,0A,00,42,49,4E,2E,1206 -LA14E1 182 WEND T2CCEI 
871 DATA AIFB,AC,41,44,20,20,20,20,20,3D20 LAEFAI 198 CLOSEIN: CLOSEQUT L7EDEI 
872 DATA 9,20,3@,1F1Q LAFBQI x 

873 DATA ESaBEI 

874 DATA LEFEAI 

875 DATA TaDc&ıl Listing 5. Arbeiten Sie mit einer Textverarbeitung, 

875 DATA : ‚aa, ECEB&1 

877 DATA A228,44,4A,4E,DA,43,41,4C,CC,37AB LCQEBI konvertieren Sie Ihre Quellcodes mit diesem Programm 
878 DATA A230,52,45,D4,44,D0,49,4E,03,219B L4S9C1 für RITA 


877 DATA A238,44,45,03,50,55,53,08,50,2004 L8B46] 
B80 DATA A240,4F ,D0,52,53,D4,49,CE,4F,1AA7 [DSD6] 
881 DATA A248,55,D4,49,CD,45,D8,41,44,1BFE L[&ADBI 
882 DATA A250,C4,41,44,03,53,55,02,33,74EB [BE76] 
885 DATA A258,42,03,41,4E,04,58,4F,D2,1ABC [BABBI 
884 DATA A2640,4F ,D2,43,D2,52,40,03,52,1414 L[4C66] 
885 DATA A268,52,03,52,C0,52,D2,53,4C,1E72 L[ASA2I 
886 DATA A270, ar Ba ‚2 eis) es2, »EE, 742,701A [35621 


Se machen also ERDE 


887 DATA La77E1 
888 DATA Carssı Mwst 
887 DATA LEaBB] 
898 DATA CICB&I 
871 DATA LFABG] 


892 DATA AZAB,44,44,D2,AC,44,09,4C,44,2058 [BEIEI 
893 DATA AZAB,49,D2,4E,45,C7,4F,54,44,1478 [85021 
89 DATA A2BQ,D2,4F,54,49,D2,4F,55,54,7382 [799A1 
895 DATA A2B8,C4,4F,55,54,09,52,45,54,79FE [B@6DAJ 
876 DATA A2CQ,C9,52,45,54,CE,52,40,04,7484 [94D2] 
897 DATA A2C8,52,52,04,43,43,06,43,50,2@E6 [A262] 
898 DATA A2DB,CC,44,41,01,44,09,45,09,7277 [DSBAl 
877 DATA A2D8,45,58,D8,48,41,4C,D4,4E,29DE LFAFCI 
980 DATA AZEQ,AF ,‚D@,52,4C,C1,52,AC [22521 
901 DATA 4 2,43,C ECaag] 
902 DATA A2F@,53,43,06,44,03,44,C6,44,2300 [S44E] 


128) ww HOMEGOMPUTER 


100 


110 
120 


138 
140 
150 
160 
170 


180 
198 


200 
2ı0 


220 
230 
240 
250 


268 
270 
280 
290 
308 


318 
320 


338 
348 
358 
368 
378 
380 
378 
400 
418 


428 
430 
430 


458 
468 
470 
480 
490 
saa 
sıa 
520 
538 
548 
550 
568 
578 
588 
570 
600 
610 
620 
650 
640 
658 
660 
670 
2:7] 


MODE 2:SPEED KEY 10,1: INK @,@rINK 1, 
26: BORDER @ 

MEMORY LBIFF:POKE &B4ER,255 

KEY 151,"1ASM,"sKEY DEF’&9,1,%61,841 
„151 

KEY 152, "LABEL" +CHR$C1SI:KEY DEF 36 
‚1,K6C,%4C, 152 

KEY 153," IWERT,"+CHR$(S4):KEY DEF S 
9,1,%77,457 ,153 

KEY’ 154, "3 IPIND, "+CHR$ (34) 1KEY DEF 5 
3,1,&66,%46, 154 

KEY’ 155, "sCÄT"ACHRS (IS) SKEY DEF 62,1 
‚63,443, 155 

KEY DEF 15,0,%3@,128:KEY 128,"CLS:L 
18T " 

KEY 1Q,"EDIT " 

KEY DEF 13,0,&31,13Q:KEY 130,"LOAD" 
+CHRE (34) 

KEY_DEF 14,0,%32,131:KEY 131," SAVE" 
+CHR#$ (34) 

KEY DEF 5,8,&33,141:1KEY 141,": 1ERA,@ 


KEY 140," 1ASM,NL,NLT ‚WE"+CHRE (13) 
LOAD" RITA. BIN" 


"SCALE — RSX 
iln) 


‘copyright 1986 by ANTISOFT 
‘Version vom 30.12.86 


(ohne Initialisierungte 


i 
‘Gerd Weinand, Herrenstr. 14. 5590 C 
ochem 


‘DATA-Lader von ZBB ASSEMBLER by ANT 


ISOFT 

"Ladeadresse: &A40B 
‘Laenge: LOBAr 
‚Startadresse: 2000 
zei=488 

FOR i=&AAQB TO &AAAF STEP 8 


Taszı 
AL("&"+a8) ısum=sumta: 


FOKE j+i,a 

NEXT 3 

READ ass a=VALt"&"+a$) 

IF a<>sum THEN PRINT"DATAFEHLER in 
Zeile"zeizEND 
eitia 


NEXT i 


DATA FE,23,C0,3A,8F,B2,32,38,03A6 
DATA B3,34,98,B2,32,39,B3,CD,B41A 
DATA C6,BB,ED,53,A8,AC,22,AR,D4E1 
DATA AC,26,@8,DD,6E,04,22,n4 ,02E7 
DATA AC,DD,6E,82,22,A6,AC,DD,@44A 
DATA 66,01,DD,6E,00,46,23,5E,02797 
DATA 23,56,EB,C5,E3,7E,CD,AS,BAFE 
DATA BB,26,88,C5,CD,26,59,7E,0378 
DATA ES,2A,A6,AC,45,05,06,08,0379 
DATA @7,30,20,C5,F5,CD,1A,16,@38E 
DATA DS,21,00,00,ED,5B,A4,AC,QSBE 
DATA CD,F1,15,CD, 1A,16,34,398,0342 
DATA B3,42,4B,D1,CD,C4,0F,F1,04A2 
DATA C1,18,0B,ED,5B,2C,E3,2A,0335 
DATA A4,AC,19,22,2C,B3,12,D0,054A 
DATA 2A,2E,B3,2B,25,22,2E,B3,0264 
DATA 2A,AB,AC,22,2C,B3,C1,10,035@0 
DATA BC,E1,23,C1,18,AD,ED,5E,0486 
DATA A4,AC,21,08,00,CD,BE,BD,@SC1 
DATA ED,SB,AB,AC,17,22,AB,AC,@42B 
DATA 22,20,B3,2A,AA,AC,22,2E,@2D1 


[3596] 
(22701 


L87FA1 
L3EAA] 
(521E] 
CD7CEI 
CCEEBI 


CiDDCI 
LASB2] 


LFCDAI 
L1SF@] 


C49F2] 
C2F5@ 
C5BAQ] 
LE@BA] 


CCBD41 
LEBE] 
LE168] 
LE9D2] 
caD3A] 


c781C1 
LE1B6] 


16642] 
EDFBAI 
CCB6B1 
L8@A4J 
L7E2A] 
TESC2] 
CADBB1 
LCS3AJ 
LACD@I 


Ca8BA1 
L987E] 
E7BBCI 


LSAABI 
L@aCAs] 
[31841 
CESCA1 
LO9BEI 
[76881 
LS5F43 
167741 
C2EF41 
L473A] 
[9B081 
L27ACI 
LSA7EI 
[87541 
LDE9B1 
[5C881 
LSCBB] 
(76981 
173601 
[276C1 
[665E] 
[B1C2] 
EDSCAI 
CDDEEI 
EFSA2] 


690 
700 
718 
720 
738 
7a0 


758 
768 


770 
788 
790 
808 
818 
820 
838 
848 
850 
B6D 
878 
e80 


DATA B3,E1,23,01,1@,85,09,08,05D& 


as="780 Assembler" 
MOVE 10,390:CALL &AAQQ,6,9,@a$ 
as="copyright 1987 by" 
POKE &B28F ‚&55:MOVE 182,21@:CALL %A4 
00,2,2,@a$ 
as="ANTISOFT" 
POKE &B28F ‚UFD:MOVE 8,120:CALL %As0Q 
‚18,6,@a* 

14 7 


as="('Gerd Wei 
5598 Cochem ) 

PEN 1:MOVE 132,20:CALL &A4OQ,1,1,@a% 
CALL &BB18:CALL KEADD 

{HzPRINT: PRINT 
PRINT"XTastaturbelegung: X"TAB (AB) "XZ 
ehnerblock: X": PRINT 
PRINT"CTRL+ENTER: TASM,NL,NLT,WE <EN 
TER> 
PRINT"CTRL+A: SSD1ASM, "TAB (AD) " .Chdr 


EDIT 
PRINT"ETRL+L:<S>DILABEL <ENTER>"TAB (4 
CLS:LIST 


@) "SHIFT+G: 
PRINT"CTRL+F: CS IFIND, "+CHR$ (34) TABC 
AB) "SHIFT+1: LOAD" +CHRE (34) 

PRINT" CTRL+W: <5> |WERT , "+CHR$ (34) TAB ( 
AB) "SHIFT+2: JE" +CHRE (34) 
PRINT"CTRL+C: CSPCATSSI<ENTER>"TAB (AB 
I"SHIFT+3: „a@" 

NEW 


and / Herrenstr. 


Listing 4. Das Ladeprogramm startet RITA 


[32481 
L@ABCI 
LEB7CI 
CABCA1 
C8A1Al 


CB6CE1 
[78541 


LABA2] 
tacaaı 
L9D881 
C2B@8] 
C4E141 
LeDiAı 
LE97CI 
Lars81 
115801 
C5A861 
c92acı 


142061 
194541 


109 ° ORS 30228 

118 'CPC eau 0 

128 ° TEXT1 WIRD AUSGEGEBEN 
138 '; CPC<>@: TEXTZ WIRD AUSGEGEBEN 
148 '; 

150 °; 

168 " LD HL,TEXT® 

170 ° CALL. DRÜCK 

188 ° IF CPE 

190 ° LD HL,TEXT1 

208 ELSE 

2ı8 LD HL,TEXT2 

228 ENDIF 

230 CALL DRUCK 

248 RET 

258 '; 

268 "DRUCK LD A,cHL) 

270 ° INC HL 

280 OR A 

298 RET zZ 

sa8 CALL &BBSA 

318 IR DRUCK 

320 '; 

330 'TEXTO DM "Sie benutzen einen " 
340 ' DE [) 

358 'TEXTI DM "CP 464" 

360 ' DE o 

378 ‘TEXT2 DM "EPC 6128" 

sen ' DE ® 

398 END 


Listing 6. Eine kleine Demonstration der IF, ELSE- 


und ENDIF-Anwendung 


CP/M-Plus-Manipulationen 


Passen Sie CP/M Plus an Ihre ganz persönlichen 
Bedürfnisse an. Sie werden staunen, wie einfach 
das geht und wie viele sinnvolle Eingriffe dieses 
Betriebssystem flexibler handhaben lassen. 


ie jede Software ist auch das Betriebssystem 

CP/M Plus individuell anzupassen. Die leicht zu 

realisierenden Patches reichen von Änderungen 
der Fehlermeldungen, über das Umbenennen der System- 
Dateien auf Diskette, bis hin zur Wahl eigener, neuer Befehls- 
namen. Für diese Manipulationen benötigen Sie lediglich 
einen einfachen Disketteneditor oder monitor. 

Wer unter CP/M Programme entwickelt und sie verkaufen 
möchte, steht immer wieder vor dem Problem, wie er seine 
Programme vor unerlaubtem Kopieren schützen soll. 

Eine recht einfache Lösung ist eine Abfrage der Serien- 
nummer des Betriebssystems aus dem Programm heraus. 
‚Stimmt sie nicht mit derjenigen der Originaldiskette überein, 
veranlaßt das Programm den Abbruch. Diese Abfrage sieht 
unter Turbo-Pascal beispielsweise folgendermaßen aus: 
VAR Seriennummer : STRING(.6.); 

i ; INTEGER; 
BEGIN 

Seriennummer:=''; 

BDOS(107,80080) ; 

FOR i:=0 TO 5 DO Seriennumner: 

=Seriennummer+CHR(MEM(.i+$80.)) 

IF Seriennummer() '123456' THEN HALT; 


Das Ganze erscheint unklug, wenn man bedenkt, daß die 
Seriennummer normalerweise immer 654321 lautet. Mit 
wenig Aufwand läßt sie sich jedoch beliebig verändern. Alles, 
was Sie dazu benötigen, ist eine frisch im Systemformat for- 
matierte Diskette, die mit der Datei "”C10CPM3.EMS” verse- 
hen sein muß. 


Doppelte Seriennummer 


Danach starten Sie den Disketteneditor. Sie finden die 
Seriennummer des Systems in der Spur 4, Sektor 4 und in 
Spur 7, Sektor 1. Die erste Seriennummer kopiert der Boot- 
sektor in den Speicher. Die zweite Seriennummer kopiert die 
EMS-Datei in den Arbeitsspeicher. Das System bemerkt nur 
die Änderung dieser zweiten Seriennummer. Ändern Sie sie 
probehalber und prüfen Sie das Ergebnis aus Ihrem Pro- 
gramm heraus mit der BDOS-Funktion 107 (sämtliche BDOS- 
Funktionen sind im fünften Schneider-Sonderheft genau 
beschrieben). Dann kopieren Sie das Programm mit einem 
Datei-Kopierprogramm (PIP, FILECOPY etc.) auf die präpa- 
rierte Diskette mit der entsprechend geänderten System- 
spur. 

Damit ist der Fundus der System-Manipulationen noch 
längst nicht erschöpft. So läßt sich ohne jedes Hilfsmittel die 
Datei »CIOCPM3.EMS« umbenennen. Sie dürfen ihr jeden 
gültigen Namen mit der Extension »EMS« geben. Wollen Sie 
noch weitergehen und auch die Extension ändern, müssen 
Sie in der Spur O den Sektor 1 editieren. Dort finden Sie 
neben den Boot-Fehlermeldungen den String 
?EMS«. Ändern Sie diesen zum Beispiel in 
?LDR« und geben Sie der Datei die neue Extension 


1SO@WW.HOMECOMPUTER 


Ersetzen Sie dann noch die Fragezeichen durch einen gül- 
tigen Dateinamen, läßt CP/M Plus nur noch diesen gelten. 

Editieren Sie nun Spur 7, Sektor 3. Dort befindet sich die 
Zeichenfolge »PROFILE S./s. Ändern Sie den Dateinamen 
nach Belieben um (hier ist die Extension »S./« zwingend not- 
wendig), dürfen Sie »PROFILE.SUB« einen neuen Namen mit 
der Extension »SUB« geben. 

Auf Spur 7, Sektor 5 finden Sie noch »SUBMIT COM«. 
Beim Umbenennen muß die Extension »COM« erhalten blei- 
ben. Ändern Sie also »SUBMIT COM« beispielsweise in 
»TURBO COM, startet CP/M beim Bootvorgang immer auto- 
matisch Turbo-Pascal. 

Die Einschaltmeldung des CP/M Plus finden Sie auf Spur 
3 im Sektor 4. Sie läßt sich völlig frei editieren. Wenn Sie wol- 
len, meldet sich das System zukünftig stets mit einem fröhli- 
chen »Hallo, mein Freund!«. Beachten Sie bitte, daß die geän- 
derten Texte niemals länger als die Originale sein dürfen. 
„Die interessanteste Systemmanipulation ist sicher das 
Ändern der residenten Befehle-wie zum Beispiel DIR. Dazu 
editieren Sie in der Spur 7 den Sektor 4. Hier stehen in einer 
Befehlsliste die Kommandos DIR, DIRSYS, TYPE, ERASE, 
RENAME und USER. Auf Wunsch wird also aus DIR jetzt CAT 
und statt mit ERASE löschen Sie Dateien zukünftig mit 
ADIOS. Die Befehle müssen aber stets aus mindestens drei 
Zeichen bestehen. 

Die Sicherheitsabfragen dazu (»ERASE +.BAK (Y/N)« und 
so weiter) finden Sie auf Spur 7, Sektor 7. 

Als letztes können Sie dem Betriebssystem für seine Feh- 
lermeldungen (»drive notready...«) die deutsche Sprache bei- 
bringen. Wo diese Fehlermeldungen zu finden sind, entneh- 
men Sie bitte der Tabelle. 

Sollte das System nach Änderungen beim Booten abstür- 
zen, schalten Sie den Computer kurzzeitig aus und wieder 
ein. Danach versuchen Sie einen neuen Start von der bear- 
beiteten Diskette. Sollte der Computer erneut abstürzen, ist 
Ihnen bei der Bearbeitung der Diskette ein Fehler unterlau- 
fen. Für diesen Fall sollten Sie deshalb unbedingt mindestens 
eine Kopie der unveränderten Systemdiskette aufbewahren. 

Für weiterführende Fragen steht Ihnen der Autor gern zur 
Verfügung. Wenden Sie sich also bitte schriftlich an Andreas 
Gundlack, Auf der Worth 35, 3050 Wunstorf 1. 

Legen Sie Ihren Anfragen einen adressierten und frankier- 
ten Rückumschlag bei. 

(Andreas Gundlack/ja) 


Inhalt 


Spur Sektor 


Boot-Fehlermeldungen (scannot find EMS” 
file«) und Dateiname »?7??7%??7EMS« 

5 ‚This program will not run in this environment. ..« 
4 »error drive not ready...« und OP/M Plus Ein- 
schaltmeldung 

4 ‚Seriennummer (erster Eintrag) 
3 »error file exists...« 

4 »CP/M Error on 
9 »Function=«, »File=« 
1 

2 

3 

4 


Seriennummer (zweiter Eintrag) 

scannot load program...« 

»PROFILE S./« 

»DIR«, »DIRS«, sTYPE«, »ERASE«, sRENAME« 
und »USER« 

5 SUBMIT COM« 

7 Kontrollmeldungen (»ERASE (Y/N)«, ENTER 
USER #« usw.) 


SSSSoooA 


SS 


Das sind die Inhalte aller wichtigen Spuren und Sektoren 


Das Geheimnis der ver- 
schwundenen Leerzeichen 


Auch Besitzer eines CPC 464 ohne Diskettenlauf- 
werk können problemlos überflüssige Leerzeichen 
aus ihren Basic-Programmen filtern und somit 
Speicherplatz sparen. 


uf reges Interesse stieß der Tip aus der Happy- 
Computer Ausgabe 11/86, der in Basic-Listings 


überflüssige Leerzeichen unterdrückt. Durch die 
nötige Zwischenspeicherung des Original-Programms als 
ASCII-Datei gestaltet sich die Arbeit für Benutzer eines Kas- 
settenrecorders jedoch recht umständlich. Für diesen 
Anwenderkreis haben wir nun eine praktischere Lösung 
parat: »Leerkill« ist eine kleine Maschinencode-Routine, die 
aus dem Basic-Programm im Arbeitsspeicher sämtliche 
überzähligen Leerzeichen entfernt. Sie liegt in einem freien 
Speicherbereich, der mitten im Betriebssystem-RAM norma- 
lerweise brachliegt (BOC7 bis BOFF hex) und sogar bei 
einem Reset mit den Tasten <CTRL+SHIFT+ESC> vor 
dem Löschen geschützt ist. Dadurch bleibt der gesamte 
Basic-Speicher frei für Ihre Programme. 

Geben Sie zunächst das Listing des Basic-Laders ein und 
speichern Sie ihn sicherheitshalber. Nach dem Start mit 
»RUN« erzeugt er den Maschinencode ab Adresse BODO hex 
automatisch. Laden Sie dann das Programm zur Bearbeitung 
mit »LOAD”NAME”« und starten Sie Leerkill mit »CALL 


&BODO«. Meldet sich Ihr CPC 464 mit »READY«, speichern 
Sie das komprimierte Programm. 
(Gerald Steffens/ja) 


Steckbrief 
Programm: Leerkill 
Computer: CPC 464 
Checksummer: Explora 
Datenträger: Kassette 


10 FOR adr=&B2D8 TO &BOFS t2Ag21 
20 READ a$:POKE adr ‚VAL("&"+as) ECAFA] 
25 NEXT Lagacı 
3@ DATA CD,2@,B9,F3,21,70,01,7C LCDE21 
40 DATA 32,88,AC,7E,23,56,2B,28 [93E41 
S@ DATA OF,ES,CD,63,E1,CD,BC,E6 LZAAB] 
&@ DATA E1,5E,23,56,2B,19,18,EB 113041 
78 DATA 32,08,AC,CD,7A,C1,03,64 LEC221 
s2 DATA Ca [676A1 


41 Byte Maschinencode sorgen für sparsamen Umgang 
mit dem Arbeitsspeichervolumen 


Datenverschlüsselung 


Schützen Sie Ihre Daten vor unberechtigten Zu- 
griffen. Mit »Krypt« hat auch ein sehr findiger 
»Datenklau« keine Chance mehr. 


schiedene Verfahren an. Zunächst einmal kann man 

in Programme die Abfrage eines Paßwortes einbin- 
den. Gibt der Benutzer nicht den korrekten Begriff ein, löst 
das Programm einfach einen Reset aus. Nun hat diese 
Methode aber den Nachteil, daß das Paßwort im Programm- 
text stehen muß. Selbst mit nur mäßigen Kenntnissen läßt 
sich solch ein Paßwort also auslesen. Damit scheidet dieses 
Verfahren für ernsthafte Anwendungen aus. 

Eine Alternative ist die Komprimierung der Daten, was 
zusätzlich Speicherplatz einspart. Aber selbst wenn man 
durch dieses Verfahren eine geringfügige Verschlüsselung 
der Informationen erreicht, bietet es doch noch keinen wirkli- 
chen Schutz. 

Auf der Suche nach Verschlüsselungs-Algorithmen stößt 
man auf die vertracktesten Kniffe. Abertrotz einer durch kom- 
plizierte Algorithmen höheren Sicherheit, wählten wir einen 
denkbar einfachen Weg. Ein wichtiges Argument spricht für 
diese Methode: Das Verschlüsselungsprogramm »Krypt« 
nimmt (zusammen mit der Einbindung als RSX) nur 82 Byte 
des verfügbaren Speicherplatzes in Anspruch, arbeitet also 
auf Anhieb mit den meisten Programmen problemlos zusam- 
men. Und schließlich ist der einfachste Weg meist auch der 
beste. 


U m Daten vor Mißbrauch zu schützen, bieten sich ver- 


Zur Entschlüsselung der Daten braucht man nur nochmals 
das gleiche Programm aufzurufen. Die Daten werden exklu- 
siv mit einem Schlüsselwort verknüpft. 


100 LAABOI 
1®1 '* KRYPT.DAT — DATA-Lader von 'CPC’ # [76621 
102 LICBAI 
185 ° EDEB&I 
124 DATA AQQA,21,52,A0,01,87,AB,C3,D1,138F LIFIEI 
1@5 DATA ABGS,BC,GE,AQ,C3,14,A8,4B,52,4754 L[EE7A1 
1@& DATA AB18,57,50,D4,00,FE,83,C0,DD,24Al L[AB761 
187 DATA AB19,6E,2@,DD,66,81,46,23,5E,2BC8 [55801 
188 DATA AB28,23,56,D5,DD,SE,82,DD,56,1864 LCA7AI 
127 DATA AQ23,05,DD,&E,@4,DD,66,85,DD,SCE7 LASF@1 
11@ DATA AQS@,E1,7A,B3,C8,78,57,08,05,7447 [66041 
111 DATA AQS8,DD,ES,7E,DD,AE,00,77,DD,5073 [26101 
112 DATA A840,253,23,1B,74,BS,28,07,10,1846 [BFi61 
115 DATA AB4B,F1,DD,E1,C1,18,E9,DD,E1,5DCEF L@FS@I 
112 DATA ABSQ,C1,09,00,20,20,00,00,88,52CQ LBDBSJ 
115 DATA =ENDE« taec2] 
116 adr=&ABBG:zeile-184:MEMORY adr-1 [98201 
117 READ d$:IF d$="*ENDE*"THEN 128 150921 
118 pr=® 159121 
117 FOR i= 8 [28683 
120 READ a$:a=VAL("&"+a$) EDFS43 
121 POKE adr ‚aradr=adr+1 LABı@J 


122 pr=pr#2:iF pr>65535 THEN pr=pr-65535, 
123 pr=UNTpr)XOR a:IF pr<@ THEN pr=pr+6553 
& 


1D1903 


138A81 

124 NEXT i EiDFEI 

125 READ pr$:pr2=VAL("&"+pr&):IF pr2<@ THEN 
pr2=pr2+65536 

124 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
in Zeile";zeile:STOP 

127 zeile-zeile+1:6010 117 

128 CALL &ABBG:PRINT "Befehl KRYPT initiali 
siert !" 

129 PRINT £D7921 

138 PRINT "Format : IKRYPT,start,anzahl,sch 
luesselstring":END 


Der Basic-Lader erzeugt den RSX-Befehl KRYPT 


Lacaaı 


[89121 
E18621 


[35681 


L7E621 


131 


—————— 


GG 


Das Listing des Basic-Laders generiert den Maschinen- 
code und bindet den Befehl 
| KRYPT,start,anzahl,string 
in das Betriebssystem ein. Dem Befehl geht - wie allen 
RSxXen - ein senkrechter Strich voran, den Sie durch Druck 
der Tasten <SHIFT> und <@> erzeugen. Zum Aufruf der 
Routine sind drei Parameter erforderlich: 
<start> ist die Adresse, ab der Kryptim Speicher verschlüs- 
seln soll. 
<anzahl> ist die Menge der zu verschlüsselnden Byte. 
<string> ist der Schlüsselbegriff, dessen Länge zwischen 
mindestens einem und maximal 255 Zeichen liegen muß. Auf 
dem CPC 464 ist er über eine Stringvariable zu übergeben: 
a$="Schluessel”:| KRYPT,start,anzahl, @a$ 

Auf den Modellen 664 und 6128 läßt sich der String aber 
auch direkt in den Befehl einfügen: 
| KRYPT,start,anzahl, “Schluessel” 


Der Schlüsselbegriff sollte möglichst lang sein, um die 
Wahrscheinlichkeit, ihn zufällig zu finden, zu verringern. Eine 
zusätzliche Absicherung besteht darin, das Schlüsselwort 
gezielt falsch zu schreiben (zum Beispiel »Computar« statt 
»Computere«). Jede Medaille hat natürlich auch ihre Kehrseite. 
Deshalb zum Schluß der Pferdefuß: Haben Sie das Paßwort 
vergessen, dürfen Sie Ihre Daten natürlich auch vergessen... 

(Andreas de Hair/ja) 


Steckbrief 
Programm: Krypt 
| Computer: CPC 464/664/6128 


| Checksummer: | Explora/CPC 
Diskette, Kassette 


Datenträger: 


Bildschirmlöschen mit Clou 


Bildschirmtricks stehen hoch in der Publikums- 
gunst. Deshalb präsentieren wir Ihnen hier eine 
neue Art, den Bildschirm zu löschen. 


ereits in der Ausgabe 12/86 unseres monatlichen 

Magazins Happy-Computer veröffentlichten wir das 

Listing der RSX-Routine »Super-CLS«. Es erzeugt 
einen neuen CLS-Befehl, dessen Aufruf zwar den gesamten 
Bildschirm löscht, sich aber in drei Durchläufen jeweils nur 
jedes dritte Byte vornimmt. Das führt zum »Zerbröseln« des 
Bildes. 

»Hyper-CLS« erlaubt nun gegenüber seinem beliebten Vor- 
bild beliebige Schrittweiten sowie eine variable zeitliche Ver- 
zögerung. Dadurch lassen sich Bildwechsel sehr abwechs- 
lungsreich gestalten. Dem Befehl folgen drei Parameter, die 
Werte zwischen O und 255 annehmen dürfen: 
| CLS,step,verz,byte 

Der erste (<step>) legt den Abstand fest, der zweite 
steht für die Verzögerung (<verz>), während der letzte 
(<byte>) das Byte bestimmt, mit dem der Bildschirmspei- 
cher gefüllt wird. Größere Werte als Null führen zu vielfältigen 
Streifenmustern. 

Das RSX-typische »I« erzeugen Sie durch gleichzeitigen 
Druck der Tasten <SHIFT> und <@>. Der kurze Basic- 
Lader zur Erzeugung des Befehls (Listing 1) läßt sich als 
Unterroutine in fast jedes andere Programm einbauen. Der 
einmalige Aufruf aktiviert den Befehl bis zum nächsten Reset 
oder Ausschalten. Verwenden sie dazu GOSUB, ersetzen 
Sie die Zeile 149 einfach durch RETURN. Sonst laden Sie es 
als Binärdatei, wie das im Demonstrationsprogramm in Listing 
2 geschieht. (Lutz Helmbrecht/ja) 


10 DEFINT a-z 132C6] 
20 [DFF2] 
Fa IF PEEK (AGO) <>LI THEN MEMORY LASFF: 

LOAD" !HYPERCLS. BIN": CALL 1C7521 
48 LOCATE 38,5:PRINT"* DEMO 

8 L@1DAJ 
0TO 5a [2E68] 


sB8 
CALL &BB1 
58 READ s,v,fiIF s<>-1 THEN ICLS,s,v,f:6 


&8 PRINT"Ich hoffe dieses Demol C9DBAI 
hat die Vielfalt der Loeschmoeglichkeite 
nd 120221 
gezeigt.":END [38AB] 
100 DATA 2,1,&f,3,4,0,7,2,%##,18,1,8,15 
l,&ff,28,1,8,50,1,&4#,4,1,0,6,1,&## 
,24,1,8,8,1, #,1,1, 
A111 LAACEI 


Listing 2. Das Demoprogramm zeigt die Anwendung 


Steckbrief 

Programm: Hyper-CLS 
Computer: CPC 464/664/6128 
Checksummer: | Explora/CPC 
Datenträger: Diskette, Kassette 
182 esse [31D41 
1@i °=HYPERCLS.DAT — DATA-Lader von 'CPC‘* LA3E2] 
1@2 /aunnnunansnsnsnuksseneeeneeeeee  LASDOI 
185° EDEB&I 
184 DATA A&QQ,@1,09,A6,21,11,A6,C3,D1,1757 [86101 
125 DATA AsB8,BC,BE,A6,C3,15,A6,43,40,478A [36021 
18& DATA As18,D3,2A,AF,27,A6,FE,23,C0,707E [41D41 
187 DATA A&18,DD,7E,@@,32,8A,A6,DD,7E,752C LBAFB] 
188 DATA A&28,82,32,8B,A6,DD,7E,84,32,11AA L7782]1 
187 DATA A&28,8C,A6,21,08,C0,22,8E,A6,60C92 L[818A] 
11® DATA A638,18,2C,5A,8A4,46,77,3A,8C,8CF4 L[C4BC] 
111 DATA A6&38,46,47,25,18,FD,3A,8B,A6,41108 L[&D7@]1 
112 DATA A648,47,18,FE,7C,FE,FF,2@,EA,SB26 I[E684] 
113 DATA A648,3A,8C,A6,47,3E,FF,98,47,2DDB LC7861 
114 DATA A658,7D,B8,58,DE,06,02,3A,8A,1AA& ISBBEI 
115 DATA A&58,46,77,25,10,F9,C09,CD,32,4EE4 LFCCA] 
116 DATA A64B,A6,3A,8C,A6,32,8D,A6,FE,4476 L3BEB1 
117 DATA A668,08,28,15,3D,32,80,A6,24,0972 LB44C]I 
118 DATA A67@,BE,A6,23,22,8E,A6,CD,32,6F88 LIBBBE] 
119 DATA A678,A6,3A,8D,A6,18,E9,21,FF,4599 [D&ECI 
128 DATA AGBQ,FF,SA,BA,A6,77,3E,1E,03,699F [CDIO] 
121 DATA A488,5A,BB,00,01,01,00,01,C0,051A LBE@CI 
122 DATA As9@,FF,70,50,10,808,BC,GE,FF,6413 [7178] 
123 DATA As98,FF,OE,0C,08,00,00,18,3C,7DaC LAS9AJ 
124 DATA AsAB,T7E,FF,FF,0O@,00,@0,FF,FF,IE21i L4F14] 
125 DATA A6AB,7E,3C,18,00,80,E0,F8,FE,3SBE L7CE@] 
126 DATA AGB®,FB,EB,80,00,02,BE,SE,FE,S4AA LOFD@I 
127 DATA AsB8,3E,0E,02,00,38,38,92,7C,1CB8 LE7921 
128 DATA AsCQ,10,28,28,28,38,38,10,FE,047E [11581 
129 DATA AsC8,10,28,44,82,38,38,12,7C,05D8 [51461 
138 DATA A&D8,90,28,24,22,38,38,90,7C,44DC [5654] 
151 DATA AsD8,12,28,48,88,00,5C,18,3C,827C LF65@1 
132 DATA AsEB,SC,SC,18,00,3C,FF,FF,i8,1iFA L[OBFAI 
133 DATA AsE8,0C,18,30,18,18,5C,7E,18,0754 L2C5A] 
134 DATA A6F®,18,7E,5C,18,00,24,66,FF,1523 L1E7B] 
135 DATA AsF8,66,24,00,00,00,00,07,00,3ABE LCFECI 
136 DATA #ENDE« 152081 
137 adr=&AsBB: zeile=1B4:MEMORY adr-1 150321 
138 READ ds: IF d$="#ENDE*"THEN 149 LCB9EI 
139 pr=® 9918) 
148 FOR i=1 TO 8 t875C] 
141 READ a$ıa=VAL("&"+a$) LtESSAI 
142 POKE adr ‚asadr=adr+1 [9116] 
143 pr=pr#2: IF pr>65535 THEN pr=pr-645535 14896] 
144 pr=UNT(pr)XDR arIF pr<® THEN pr=pr+6553 

& L1SAEI 
145 NEXT i 127841 
146 READ pr$: "+pr$): IF pr2<@ THEN 

pr2=pr 2+6553. [8698] 
147 IF pr<>pr2 Tren BET EELLESReNEERLEN 

in Zeile";zeil ;TOr £CB181 
148 zeile=-zeile+1:60T0 en [276E] 
149 SAVE"HYPERCLS. BIN" ‚B,&AsQQ,% 108: END [9D5AI 
Listing 1. Basic-Lader für »Hyper-CLS«-Maschinencode 


1Yayw.HOMESOMPUTER 


Happy-lmager 


Eine ganz besondere Hardcopy-Routine wie der 
»Happy-Imager« mit Schattierungen und diversen 
anderen Ausstattungsmerkmalen sollte auch in 
Ihrer Programmsammlung nicht fehlen. 


er seine phantastischen Computergrafiken, wie 
er sie beispielsweise mit dem »Happy-Painter« 
aus der Ausgabe 1/87 des Stammhefts zeichnet, 
auch in adäquater Form zu Papier bringen will, braucht einen 
Drucker und natürlich entsprechend leistungsfähige Soft- 
ware, die ihm diese Hardcopies anfertigt. Der Happy-Imager 
vereintnun ganz besondere Leistungen, denn er verfügtüber 
- ein Druckformat von 22,5 mal 16,8 Zentimeter (DIN A4), 
- bis zu 16 Graustufen (Muster) je nach Bildschirmmodus, 
- eine selbständige Erkennung des Modus, 
- fehlerfreien Druck auch nach Scrollen des Bildschirmin- 
halts, 
- frei und komfortabel editierbare Einstellung der Graustu- 
fen, 
- Epson-Kompatibilität, 
- beliebige Einbindung in Basic- oder Maschinencode- 

Programme. 

Zuerst geben Sie bitte den Basic-Lader (Listing 1) ein. 
Besitzen Sie einen Grünmonitor, geben Sie die Zeilen aus 
Listing 2 anstelle der ursprünglichen ein. 

Speichern Sie das Programm aus Sicherheitsgründen vor 
dem ersten Start. Wenn Sie dann mit »RUN« starten, spei- 
chert Ihr Computer automatisch den erzeugten Maschinen- 
code unter dem Namen »COPY.BIN«. Diesen Code laden Sie 
später mit der Befehlsfolge 
MEMORY &939F 
LOAD ”COPY.BIN” 

Die Hardcopy-Funktion beginnt mit 
CALL &9432 

Die Farbsättigung der Hardcopy steigt mit der Nummer der 
Farbe. Diese Wiedergabe läßt sich jedoch nach Belieben 
beeinflussen. Im Modus 2 lassen sich natürlich Vorder- und 
Hintergrundfarbe nur vertauschen. Das geschieht über zwei 
POKES: 

POKE &9549, &EE:POKE &954A, & FF 


Um die inverse Darstellung wieder aufzuheben, schreiben 
Sie einfach Nullen in diese beiden Adressen: 
POKE &9549,0:POKE 8954A,0 

In den Modi O und 1 verwenden Sie zum Editieren der Far- 
ben den Befehl 
CALL &9800 

Am besten regeln Sie dazu den Monitor auf die hellste Ein- 
stellung. Der Bildschirm erscheint jetzt in den Farben, die 
ungefähr den Graustufen des gedruckten Bildes in der 
Grundeinstellung entsprechen. Der jeweilige Farbtopf zur 
Änderung wechselt in der Darstellung ständig zwischen der 
ihm zugeordneten Farbe und Schwarz. 


7 Min. 39 Sek, 
15 Min. 
14 Min. 48 Sek. 


Tabelle. Die Geschwindigkeit hängt von der genutzten Fläche 
und der Farbverteilung ab 


Benutzen Sie nun folgende Tasten zur Farbwahl: 
<COPY > initialisiert wieder die Grundeinstellung der Far- 
ben. 


<i> dunkelt die aktuelle Farbe um eine Stufe ab. 
<I> hellt die aktuelle Farbe um eine Stufe auf. 
<-> erhöht die PEN-Nummer um 1. 

<-> erniedrigt die PEN-Nummer um 1. 


<ENTER >veranlaßt die Rückkehr ins Basic, wo Sie nun 
die Hardcopy-Funktion mit den geänderten 
Graustufen aufrufen. 


Der Druckvorgang läßt sich zu jeder Zeit mit der ESC-Taste 
stoppen. Er endet jedoch erst, nachdem der Happy-Imager 
seinen Pufferspeicher geleert hat. 

Da jeder CPC bekanntlich nur einen sieben Bit breiten 
Druckerport besitzt, ein Byte (auch im Bildschirmspeicher) 
aber bekanntlich aus acht Bit besteht, geht der Happy-Imager 
einen ungewöhnlichen Weg. Er überträgt nämlich immer nur 


Pen Nr. 
[e) 1 2 3 4 5 6 7 


Ink Nr. bei Farbmonitor 


26: 729.7029.7222.22247 167215 8 
Ink Nr. bei Grünmonitor 
265 24. 9222,822172207 2419418717. 


a 


8 9 10 11 1271987 714715 
4 7 1310 e) 12 3 1 
Dee 9 8 7 5 3 


Bild 1. So sind die Farben in der Grundeinstellung den Farbtöpfen und Druckmustern zugeordnet 


A, KonecaweTen 


ein halbes Byte (Nibble); der Drucker nutzt also nur jeweils 
vier Nadeln. Das stellt zwar nicht die schnellstmögliche 
Lösung dar (die ungefähren Druckzeiten mit einem Epson 
RX-80 F/T+ entnehmen Sie bitte der Tabelle), garantiert aber 
die Software-Kompatibilität zu fast allen Druckern. 
Happy-Imager beginnt seine Arbeit in der linken unteren 
Bildschirmecke. Er liest ein Byte aus dem Bildschirmspei- 
cher, verarbeitet es und schreibt das Bitmuster in einen Puf- 
ferspeicher direkt hinter dem Programm (von Adresse 9943 


Bild 2. Eine Hardcopy 
»par excellence« mit dem Happy-Imager 


1S34WwW.HOMEcomPL TER 


bis A5C7 hex). Das wiederholt sich so oft, bis der obere Bild- 
schirmrand erreicht ist. Erst dann geht der Inhalt des Puffers 
an den Drucker. Darauf folgt die nächste Spalte, bis der 
gesamte Bildspeicher abgetastet ist. 


(Michael Herz/ja) 


Steckbrief 
Programm: Happy-Imager 
Computer: CPC 464/664/6128 
Checksummer: Explora/CPC 
Datenträge: Diskette, Kassette 
108 Rn USIDAT 
1@1 = COPY.DAT - DATA-Lader von ‘CPC’ * L1DB41 
182 DASDEI 
185 ' E[DEB&I 
184 DATA 73AB,07,0E,C7,E5,21,43,99,22,17A4 LFCAAI 
105 DATA 93AB,EE,74,21,64,7C,22,FC,74,5564 L919E1 
186 DATA 93B9,21,85,7F,22,04,95,21,A6,22E@ LBD48] 
127 DATA 93B8,A2,22,2A,95,E1,46,09,E5,52EF [81001 
188 DATA 93C2,CD,3D,95,E1,C1,@D,AF,B9,72AB LFC2CI 
189 DATA 93C8,C8,C5,DD,ES,FD,ES,CD,29,457F L[CE7B] 
11@ DATA 93D@,BC,FD,E1,DD,E1,C1,C3,BD,7587 [234C1 
111 DATA 93D8,93,01,20,@3,D5,E5,C5,AF,49E9 LT4EABI 
112 DATA 93EB,ED,A1,20,07,ER,EB,93,C1,5F87 [92681 
113 DATA 93E8,E1,D1,C9,3E,1B,CD,17,94,5D56 L[7CECI 
114 DATA 93F@,3E,2A,CD,17,94,3E,81,CD,29C7 [82D81 
115 DATA 93F8,17,94,3E,20,CD,17,94,3E,2C62 L[ESBEI 
11& DATA 9488,23,CD,17,94,C1,E1,D1,7E,3D5® L&+B7EI 
117 DATA 94088,23,@B,CD,17,74,AF,B8,20,@CDC [54081 
118 DATA 9418,F6,B9,20,F3,C3,FF,96,E5,5A5SD L[BSF4] 
119 DATA 9418,C5,D5,F5,CD,2E,BD,S8,FB,A6BF [8158] 
128 DATA 9428,F1,CD,31,BD,D1,C1,E1,09,42B7 [ECD41 
121 DATA 9428,CD,11,B0,21,30,94,77,C9,74A7 LB77E1 
122 DATA 9430,00,08,21,AF,94,E5,21,65,89C3 L66121 
123 DATA 9438,96,E5,F3,01,84,0C,21,43,4821 L[D2221 
124 DATA 9449,99,11,44,99,36,@8,ED,BQ,498A L[SBSCI 
125 DATA 7448,0D,28,94,3E,1B,CD,17,94,7EB& [9DE@I 
126 DATA 9459,3E,49,CD,17,94,CD,C2,74,115@ L[8SsEI 
127 DATA 9458,CD,C0,94,11,00,00,24,C9,460D [D3961 
128 DATA 9468,B1,19,3E,C6,F5,CD,26,BC,S1@C LACD41 
129 DATA 9448,F1,3D,FE,00,20,F6,06,50,4AB4 L9FG41 
13@ DATA 947@,D5,E5,C5,CD,A1,93,CD,1B,4175 L[SED21 
131 DATA 9478,BB,FE,FC,20,@4,E1,E1,E1,7D87 L[S@F21 
132 DATA 9482,C9,21,85,9F,CD,D9,93,CD,7177 LFFD2] 
133 DATA 9488,C8,94,21,A6,A2,CD,D9,93,4845 L[CBABI 
134 DATA 9498,CD,CQ,74,21,43,99,CD,D9,472F L76BC1 
135 DATA 9498,93,CD,C8,94,21,64,9C,CD,6BED [76121 
136 DATA 94A@,D9,93,CD,C9,74,C1,05,AF,SAEi [2EF4] 
137 DATA 94AB,B8,E1,D1,23,28,02,C9,3E,7FF4 LEBE6] 
138 DATA 94B9,0C,CD,17,94,3E,1B,CD,17,3EFi L[CIF2I 
139 DATA 94B8,94,3E,40,CD,17,94,FB,C7,4287 [C7D@1 
148 DATA 94CQ,CD,D@,94,3E,0B,C3,DA,74,4194 LASCEI 
141 DATA 9408,CD,D0,94,3E,@1,03,DA,94,4iC4 [D@D21 
142 DATA 94D@,3E,1B,CD,17,74,3E,33,C3,05ED L[78CE1 
145 DATA 94D8,17,94,CD,17,94,3E,@A,03,52DF [DBCCI 
144 DATA 94E0,17,74,E5,2A,EE,94,0D,2C,3416 [86681 
145 DATA 94E8,95,22,EE,94,E1,09,43,99,52B3 L[17B4] 
146 DATA 94F@,E5,2A,FC,94,C0D,2C,95,22,6918 L[72CAl 
147 DATA 94F8,FC,94,E1,C9,64,9C,E5,2A,4B@@ L[CEFCI 
148 DATA 9502,0A,95,CD,20,75,22,04,95,3F81 [737E1 
149 DATA 9588,E1,C09,85,9F,E5,2A,2A,95,5CDi L[ZEE6] 
158 DATA 9518,CD,2C,95,22,24,95,E1,C9,7F@F [52BE1 
151 DATA 9518,00,00,00,@8,00,CD,E7,E3,@285 LAC1B1 
152 DATA 9520,EB,E1,E5,EC,00,00,11,19,5E1B [23781 
153 DATA 9528, 18,16,A6,A2,DD,70,77,23,1@B5 [B27C1 
154 DATA 9530,DD,70,77,23,FD,7C,77,23,7BCS LCEDEI 
155 DATA 9538,FD,7D,77,23,09,21,30,94,4B28 LASB61 
156 DATA 9540, 7E,FE,02,20,2E,78,00,08,025@ Licigl 
157 DATA 7548,CD,62,95,0D,57,95,CD,E2,6174 [BADEI 
158 DATA 9550,94,45,CD,59,95,CD,FE,94,4184 TABCHI 
159 DATA 9558,C7,DD,40,DD,48,FD,40,FD,5299 [18261 
168 DATA 8,C9,6F,E65,8F,47,7D,CB,8495 L[37CA] 
161 DATA F,CB,2F,CB,2F, CB, 2F,E6,2EFC [87881 
162 DATA 9578, Jar, Ser, MH JFE, ‚ai, Mer sE7, MH ‚BsDB EDBF&] 
153 DATA 9578, Ar, AF,SC, SER, 42, 28, 22, CB,4DiF LB8SFAI 
164 DATA 9588,C9,CB,68,28,02,CB,C1,CB,5ABS LICEAI 
165 DATA 7588,28,CB,@1,CB,@1,FE,04,20,2988 [19843 
166 DATA 9590,E7,CB,Q1,CB,01,CD,AE,95,4825 L[2BE41 
167 DATA 9578,CD,E2,94,CD,B6,95,CD LES561 
168 DATA 95AB,974,CD,AE,75,CD,FE,94 LF1SE] 
169 DATA 6,95,CD,0C,95,C9,CD [27641 
178 DATA '5,E5,CD,DA,75,D1,CD TE646] 
171 DATA 95B8, 95, DD,67,CD,CB, 95, DD [3344] 
172 DATA 95C0, ‚ED, ‚CB, MH IFD,, sE7,| JcD, CB, 5,483F [6562] 
173 DATA ISCH, FD, 6F,C9, 1A}E#,0C, 06,03, 7BAF LAAS6]I 
174 DATA 95D8,. 47, ‘Ze, N 7 ‚as, C6,8C,AB,23,2773 L[&58@1 
175 DATA 95D8, 13, c9, SE, 83,A1,CB, 29, EB,SACD L[C618]1 
176 DATA 95ER, 09, cs} CD, ISE, 96, sch M:CH SED, ı297B [94241 
177 DATA 95EB,0C,96,E5,7D,CD,SF,96, CD, SF85 [29461 
178 DATA 95F8,54,96,CD,E2,94,C0D,54,94, 1FAaA [9CBAI 


177 DATA 95F8,CD,F@,94,E1,7C,CD,3F,96,462C [A436] 257 DATA 9868,C0,03,99,FD,23,FD,23,FD,78E7 L7C241 
188 DATA 9600,CD,54,76,CD,FE,94,CD,54,69FE L[SC2CI 258 DATA 2,DD,77,00,FD,26C9 LSADB] 
181 DATA 9608,96,C3,0C,95,CD,16,96,6C,7460 [62881 259 DATA 7,01,FD,7E,02,2092 LDDIEI 
182 DATA 9618,CB,28,CD,1 12721 268 DATA ED6FAI 
183 DATA 9618,CB,49,28,@2,CB,DC,CB,58,744E [84021 261 DATA »78,C3,44,98, [251E1 
184 DATA 9620,28,02,CB,CC,CB,40,28,02,B6AA [66941 262 DATA 4,DD,7E,Q@,FD,A41ED LAAFEI 
185 DATA 9628,CB,D4,CB,7@,C8,CB,C4,C7,4ACD [5A6AI 263 DATA 4,98,CD,03,99,456B L7FCA] 
186 DATA 9630,03,@F,10,17,86,52,40,C4,@4EC LCDZEI 264 DATA 'B,FD,2B,18,C9,&4EED L[D78E1 
187 DATA 9638,CA,D2,1@,24,B2,37,3D,26,54E8 LADECI 265 DATA S'AF}BB,/CA,A4,4098 [B2FAI 
188 DATA 9640,00,54,6F,1E,05,CD,BE,BD,IBED L[1@1@1 266 DATA 9,05,DD,2B,DD,7627 LSFFAl 
187 DATA 9648,E5,CD,24,99,25,D1,19,5E,4EE@ [SBD®] 267 DATA 'D,D7,98,03,44,2E6A L[A23E1 
190 DATA 9650,23,56,EB,C9,7E,DD,67,23,1597 [28AA1 268 DATA @,F&,SE,OF,BB,6BGE [65101 
171 DATA 9650, 7E,DD,6F,23,7E,FD,67,23,8779 LBEE2] 269 DATA 'D,19,99,04,DD,699 LF&1@1 
192 DATA 9660, 7E,FD,6F,23,C9,3E,1B,CD,@9DB [46361 278 DATA D,23,19,E4,C5,2F05 L7FBAI 
193 DATA 9640,17,94,3E,21,CD,17,74,3E,2072 (85841 271 DATA 'F,78,06,00,DD,76F5 LA1E0) 
194 DATA 9670,1D,CD,17,94,CD,CB,94,3E,321E LBICAI 272 DATA ID,CD,32,BC,DD,A4ESS [46641 
195 DATA 9678, 1B,CD,17,94,3E,53,CD,17,3451 [219C1 273 DATA 'D,24,99,FD,7E,57F0 LB73A1 
196 DATA 9688,94,3E,01,CD,17,94,DD,21,4A@5 [22841 274 DATA ,FD,23,DD,23,3F5D L@ADCI 
177 DATA 9688,30,96,FD,21,18,95,06,84,22AC [625C1 275 DATA @,F1,7C,FD,BC,ISSE LAC7CI 
198 DATA 9690, N EN ‚ao, EZ et 17,94,AF,5483 (FE@ZI 276 DATA ID,ES,FS,CD,24,5AB2 LBSIEI 


L3ABAI 277 DATA 9908,99 ,F1,DD,E1,FD,BE,00,C8,60A8 LC7241 
[E382) 278 DATA 9910,FD,23,FD,23,FD,23,C3,QC,4DSE LEF@41 
[23681 279 DATA 9918,99,C5,DD,ES,78,DD,46,00,48@8 LIDCCI 
tEDa2I 28@ DATA 9920,48,C3,E1,98,21,30,94,AF,012F [61601 
CBEBEI 281 DATA 9928,BE,28,0C,FD,21,68,97,DD,SB@B LEEBAI 
[91441 282 DATA 993@,21,F4,97,21,F4,97,09,FD,39E3 [52B61 
13368) 285 DATA 9938,21,88,97,DD,21,B8,97,21,2F57 L&D7EI 
CFBFE] 284 DATA 9949,B8,97,C9,00,00,00,00,00,40E0 LAUF] 
[387€] 285 DATA #ENDE* " CC7D21 
96E0,07,CD,17,94,DD,CB,@@,@F ,SEAB [A1BA1 286 adr=&93AB:zeile=1B4:MEMORY adr-1 £DD48] 
96EB,AF,B8,DD,23,05,20,EE,06,6162 ICFC2I 287 READ d$ı IF d$="#ENDE#"THEN 298 ECFB21 

218 DATA 96F0,86,FD,CB,88,EF,CD,17,94,21D&6 IDAEE] 288 pr=® 164221 

211 DATA 96F8,AF,B8,FD,23,05,20,F2,07,6595 [2806] 287 Eor i=s1 T08 [33781 

212 DATA 9700,00,00,00,00,00,00,00,08,0000 L5D161 29@ READ asıa=VAL ("&"+a$) CABaa1 

213 DATA 9708,01,02,04,08,00,00,00,00,000@ [3246] 291 POKE adr ‚aradr=adr+1 LEF2@1 

214 DATA 9710,01,02,04,08,08,94,02,01,0855 L7F&CI 292 pr=pr«2: IF pr>65535 THEN pr=pr-65535___ ECOABI 

215 DATA 9718,05,00,05,00,05,00,05,00,0202 LSASE] 293 pr=UNT(pr)XDR as IF pr<® THEN pr=pr+6553 

21& DATA 9720,08,04,02,01,08,04,02,01,0505 1L@3723 & CDBBB1 

217 DATA 9728,05,04,05,04,00,00,00,@0,0008 LS28C1 294 NEXT i Li90EI 

218 DATA 9730,09,04,02,09,02,09,04,92,056E LEBBAI 295 READ pr&:pr2=VAL("&"+pr&)sIF pr2<@ THEN 

219 DATA 9738,05,05,0F,05,00,00,08,00,0278 LAB9&l Br2-pr2+85536 Lo9DFAa2 

220 DATA 9749,85,05,85,25,05,85,05,85,8383 [39781 296 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 

221 DATA 9748,8C,0C0,83,83,0C,00,83,03,8585 [26F2]1 in Zei }zeile:STOP 19B22]1 

222 DATA 97758,0D,2B,00,8B,82,84,02,84,8558 LI3S2E5] 297 zeile=zeile+1:G0T0 287 £[C8821 

223 DATA 9758,05,80,23,00,03,00,03,00,8282 I[&s6EC]I 298 SAVE"COPY.BIN" „B,&973AB ,u5AS: END 12B421 

224 DATA 9760,05,04,205,04,05,0A,05,0A,@2@0 [@FDEI 

225 DATA 9768,@F,OF,@F,aF,@0,00,00,00,2558 L7SFEI a r 

= RR om: en = = = = = 3 5! man EEE Listing 1. Der DATA-Lader erzeugt den Maschinencode für 

22a DATA 9780,05,05,0A,0R,00,20,08,00,0228 173941 800 JBappy Insgersinat} Emo. 

227 DATA 9788, 1A,00,77,19,98,97,17,10,1C52 L[AB161 

230 DATA 9799,97,16,18,97,18,20,97,10,45@E L&BFCI 

231 DATA 9798,28,97,0F,30,97,08,38,97,375F L[@F5@] 

232 DATA 97A0,04,40,97,07,48,797,0D,50,@0C6 L[3E16] 

233 DATA 97A8,97,04,58,97,07,60,97,0C,4B7A [BSBEI 

234 DATA 77BQ,68,77,03,70,77,81,78,77,127B [372A1 

235 DATA 97BB,1A,2@,97,19,88,97,17,10,10C52 [90241 

256 DATA 97C0,97,16,18,97,19,20,97,1@,450E [BBICI Zu ara zum in aeg inlznlanısrauan EDEIBI 

u a re Een 231 DATA 9798,28,97,12,38,97,11,38,97,549B CiBiel 

BEE EN RE AIR euren EESZEH 232 DATA 77AQ,@F,40,97,00,48,97,0B,50,05EA [LA9741 

BEL DRIN SIDE s 722002001929 09700 397 BE ABSRETESRE 233 DATA 97A8,97,09,58,97,08,60,97,07,4B59 LA@AC1 

248 DATA 97E0,68,97,05,70,97,01,78,97,127B L[C72AJ 23% DATA 3rna'aula7las.Jalg7lasıvalg7112Ds Le22nı 

241 DATA 97E8,17,00,97,0B,80,77,02,60,1FEB [44501 233 DATA S7BBl1ALa0.97 1000197 1e.ia.ıcan raaını 

242 DATA 97F0,97,01,78,97,17,00,97,@B,4C2D [5456] 232 DATA Srcalan SL 10197 are S,ASAD EBGSEı 

243 DATA 97F8,80,97,82,60,97,01,78,97,675B [8942] 337 Dara 9768128197 1121301971 7'3298 123581 

Be RE a 258 DATA 9708,0F,48,37,8D,48,97,0B,50,05EA [5186] 

245 DATA 9808, 11,35,78,28,04,3E,03,18,1486 LEAFA] 339 DATA 3708.97.09 28.97 !00:2017 EDBecı 

246 DATA 9810,02,3E,0F,77,30,12,01,00,09BA LA23B] 240 DATA 97E0,68,97,05,70,77,0: L9A2A) 

247 DATA 9818,00,CD,38,BC,CD,24,99,FD,38B7 L1E@21 241 Data rt FÜHLE) [285c1 

248 DATA 9820,44,FD,4D,16,08,8A,C5,47,1465 [7558] 242 DATA [50981 

249 DATA 9828,4F,7A,D5,CD,32,BC,D1,C1,2D73 L[D6BA) 283 ara Lasscı 

25@ DATA 9830,14,03,03,03,SE,@F,BA,20,0A@8 L[&F161 

251 DATA 9838,EC,CD,EB,98,CD,24,99,06,566C [8014] 

252 DATA 9840,00,CD,D7,98,CD,89,BB,67,277D LCDDBI 

85 Data Be a Bor Fe un = Kae Ben DEF Listing 2. Diese 15 Zeilen geben Sie anstelle der Zeilen 

255 DATA 9858,02,18,A5}7C,FE,F@,20,38,1028 LC148] 229 bis 243 in Listing 1 ein, wenn Sie mit einem 

256 DATA 98640.DD,7E,OQ,FE,B1,CA,A4,98,7DDB L&FECH Grünmonitor arbeiten 
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Neuer Zeichensatz 
einmal anders 


Speichern Sie Ihre selbstdefinierten Zeichensätze 
doch in Zukunft als Binärdateien. Das spart nicht 
nur Zeit, sondern darüber hinaus auch noch kost- 
baren Speicherplatz. 


Standard-Zeichensatz seines CPC entsetzlich langweilig 
findet. In manchen Programmen sind die Schriftzeichen 
gar völlig unpassend. 

Für diesen Fall sorgt Locomotive-Basic glücklicherweise 
vor. So läßt sich mit dem Befehl SYMBOL ein eigener neuer 
Zeichensatz definieren. Bei jedem Programmstart erfolgt 
also als erstes die Erzeugung des Zeichensatzes, was zum 
einen kostbaren freien Platz im Arbeitsspeicher kostet und 
zum anderen recht zeitaufwendig ist. 

Es gibt aber eine sehr elegante Lösung des Problems. Man 
speichert die Zeichenmatrix als Binärdatei und lädt sie später 
einfach zu jedem Programm, das den neuen Zeichensatz 
benutzen soll, hinzu. 

Ein weiterer Vorteil ist die wahlweise gemeinsame Nutzung 
der Zeichendefinition für Basic- wie auch für Maschinen- 
code-Programme, 

Wie speichert man nun die Matrixtabelle? Die Anfangs- 
adresse der Tabelle ist natürlich im Betriebssystem-RAM ver- 
merkt. Leiderliegt der Vektor, der auf diese Tabelle zeigt, aber 
bei den verschiedenen CPC-Modellen auf unterschiedlichen 
Adressen: B296 und B297 hex im CPC 464 und B736 
B737 hex im CPC 664 sowie im CPC 6128. 

Reserviert man jedoch keinen Speicherplatz mittels 
MEMORY und beeinflußt die Basic-Speicherobergrenze 
auch nicht durch andere Befehle, beginnt die Matrixtabelle 
bei jedem der CPCs direkt oberhalb der Adresse, die die 
Systemvariable HIMEM repräsentiert. Ist auch der ASCIl- 
Wert des ersten definierten Zeichens bekannt, steht dem 
Speichern der Matrixtabelle nichts mehr im Weg. Vergißtman 
den Code einmal, erfährt man ihn über die Adresse B294 hex 
(CPC 464) beziehungsweise B734 hex (bei den CPCs der 
6er-Serie) mittels PEEK. 

Die Befehlsfolge zur Speicherung sieht also wie folgt aus: 
mem=HIMEM+1 
laenge=(letztes.Zeichen-erstes.Zeichen+1)x8 
SAVE "MATRIX”,b,mem,laenge 

Auf den ersten Blick genauso korrekt, in diesem Fall aber 
nicht verwendbar, ist: 

SAVE "MATRIX”,b,HIMEM+1,laenge 

Mit diesem Befehl speichert der Computer nämlich einen 
Teil seines Kassettenbuffers mit, da er bei SAVE einen 4096 
Byte großen Pufferspeicher direkt unter HIMEM anlegt. 

Das Laden gestaltet sich ähnlich. Zuerst wird mit SYMBOL 
AFTER der Platz für die Zeichendefinition reserviert. Der 
ASCII-Wert des ersten definierten Zeichens muß der gleiche 
sein wie beim Speichern. 

SYMBOL AFTER erstes.Zeichen 
mem=HIMEM+1 
LOAD ’MATRIX”,mem 

Nun ist der Zeichensatz geladen. Man kann aber auch jetzt 
noch auf den Original-Zeichensatz zurückgreifen. Ein »POKE 
&B295,0« beim CPC 464 beziehungsweise ein »POKE 
&B735,0« beim CPC 664 und 6128 desaktiviert den selbst- 
definierten Zeichensatz im RAM und schaltet auf denjenigen 
im ROM um. Jedes Argument ungleich Null bei diesen 
POKESs macht die Umschaltung wieder rückgängig. 

(Stefan Aust/ja) 


| rgendwann kommt für fast jeden der Tag, an dem er den 
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Warum nicht einfach? 


Oft führt die Verwendung logischer Operatoren viel 
einfacher zum gewünschten Ziel als man denkt. 


es für jedes Problem verschiedene Lösungen. Will 
man in einem Programm feststellen, ob eine be- 
stimmte Zahl gerade oder ungerade ist, lautet die entspre- 
chende Lösung meist 
IF INT(zahl/2)=zahl/2 THEN (routine gerade) 

Direkter und somit kürzer gestaltet sich jedoch der Einsatz 
der logischen Funktion AND: 

IF zahl AND 1 THEN (routine gerade) 

Das spart neben Speicherplatz auch Rechenzeit. Beach- 
tenswert ist die Tatsache, daß diese Funktion nicht nur unter 
Basic, sondern in vielen Programmiersprachen verfügbar ist. 

(Markus Zietlow/ja) 


B ekanntlich führen viele Wege nach Rom. Und so gibt 


Logo-Programme 
automatisch laden 


Haben Sie gewußt, daß man unter DR Logo Pro- 
gramme automatisch laden lassen kann? 


ahrscheinlich haben auch Siesich bereits gefragt, 
W was Ihr Computer kurz nach dem Start des Logo- 
Interpreters noch macht, während die lapidare 
Meldung »Please Wait« auf dem Monitor prangt. Schaut man 
sich Logo aber mit einem Debugger wie beispielsweise DDT 
einmal näher an, bemerkt man rasch, daß der Computer als 
erstes auf der Diskette nach einer Datei namens »STAR- 
TUPLOG« sucht. Natürlich findet er sie unter normalen 
Umständen nicht, da diese Funktion ja nirgends dokumen- 
tiert ist und somit niemand davon Gebrauch macht. Benennt 
man jedoch ein Logo-Programm entsprechend um, lädt es 
der Interpreter automatisch nach dem Start. Diese Anwen- 
dung ist sinnvoll, wenn Sie bei der Programmentwicklung 
immer die neueste Version des entstehenden Programms 
entsprechend benennen. 
(Bernd Schmidt/ja) 


Gefesselter Bildschirm 


Retten Sie den Bildschirminhalt mit einem kleinen 
Kunstgriff vor ungewolltem Scrolling. 


Basic-Programms der gesamte Bildschirminhalt nach 
oben wandert, wenn man die am weitesten rechts lie- 
gende Position der untersten Bildschirmzeile beispielsweise 
mit einem Befehl wie 
1000 LOCATE 37,25 
1010 PRINT ”Test” 
1020 GOTO 1020 
beschreibt. Der Interpreter setzt hinter das letzte Anfüh- 
rungszeichen automatisch ein Carriage-Return. Das unbeab- 
sichtigte Scrolling läßt sich jedoch vermeiden. Man setzt 
lediglich ein Semikolon an das Ende des PRINT-Befehls: 
1010 PRINT "Test”; 
Das Semikolon verhindert nämlich den Zeilenvorschub 
nach Ausgabe der Textzeile. 


S:: ärgerlich ist es, daß während des Ablaufs eines 


(Markus Zietlow/ja) 


Einzeiler- 
Wettbewerb: 


Der Einzeiler-Wettbewerb ist zu Ende, doch mit der 
Auswertung geht es erst richtig los! In dieser Aus- 
gabe veröffentlichen wir die zehn Super-Einzeiler, 
die gewonnen haben. 


Einzeiler-Wettbewerb gestartet hatten, warteten wir 

lange Zeit vergeblich auf eine Reaktion. Wir gaben 
die Hoffnung, daß die CPC-Programmierer in eine einzige 
Basic-Zeile ein ganzes Programm packen können, schon 
langsam auf, als zwei Wochen vor Einsendeschluß eine 
wahre Flut von Zuschriften begann, die bis zum Tag des Ein- 
sendeschlusses nicht abgerissen ist. 

In nächtelanger Arbeit haben wir die Einzeiler abgetippt, 
ausprobiert und bewertet. Vom Kassetten-Speeder über 
‚Actionspiele bis hin zum DFÜ-Programm reicht das Spektrum 
der Anwendungsgebiete. Auffällig ist, daß allein ein Viertel 
aller Einsendungen aus Textverarbeitungsprogrammen 
besteht; anscheinend ein Thema, das unsere Leser beson- 
ders fasziniert. 

An den eingegangenen Programmen haben wir unschwer 
erkannt, warum die Autoren mit ihren Einsendungen so lange 
gewartet haben: Die Einzeiler wimmeln teilweise von ver- 
schachtelten WHILE-WEND-Schleifen und verschlungenen 
IFTHEN-ELSE-Strukturen, um bedingte und unbedingte 
Sprünge innerhalb einer Programmzeile durchzuführen. 
Allein die Entwicklung dieser komplexen Strukturen muß viel 
Zeit in Anspruch genommen haben. 

Eine Menge weiterer Tricks haben sich die Programmierer 
ausgedacht, um Speicherplatz zu sparen, denn selbstver- 
ständlich muß in den meisten Einzeilern mit jedem Byte ge- 
knausert werden. 

Viele Programmierer sind auf die Idee gekommen, PRINT- 
Befehle durch ein Fragezeichen abzukürzen und alle nicht 


N::: wir im 6. Schneider Sonderheft einen 


Imtdem neven Wellen - \ 
Sich Slinmme a5 richt 


zwingend notwendigen Leerzeichen (zum Beispiel zwischen 
Zeilennummer und Zeilentext) wegzulassen. Schon durch 
diese Maßnahmen lassen sich ein bis zwei Kommandos 
zusätzlich in die Programmzeile einfügen. 

Einzeiler, die Maschinensprache-Routinen verwenden, 
holen die Daten nicht von einem DATA-Befehl, wo allein pro 
Wert ein Zeichen durch das Komma verschwendet wird, son- 
dern lesen die Daten speicherplatzsparend aus einem String 
über die MID$-Funktion in den Arbeitsspeicher. 

Die Profis nutzen die Control-Steuerzeichen zur 
Bildschirm-Formatierung. Dadurch ist zum Beispiel für das 
Löschen des Bildschirms nur ein einziges Zeichen nötig. 

Im folgenden stellen wir Ihnen die zehn Gewinner vor, 
deren Auswahl uns gewiß nicht leichtgefallen ist, denn die 
Konkurrenz war groß. Aus diesem Grund werden wir auch 
weitere interessante Einzeiler in den nächsten Ausgaben ver- 
öffentlichen. 

Sollten Sie selbst noch über einen pfiffigen Einzeiler ver- 
fügen, dann schreiben Sie uns. Bei einer Veröffentlichung 
winkt selbstverständlich ein angemessenes Honorar. 

(ma) 


Diese 10 Einzeiler haben gewonnen: 


.»DFÜ« von Diethelm Buttkus, Mannheim 1 

. »Spacer« von Roland Weigelt, Bonn 1 

. »Text-Star« von Fred Feuerstein, Steinbach 

. »Mini-Monitor« von Holger Schrader, Alsfeld/Leine 


. »Recorderturbo« von Friedhelm Maier, Springe 2 
»Skifahren« von Karl-Heinz Rattay, Freiburg 
»Analoguhr« von Stefan Schwabe, Berlin 28 
»RSX-CALL« von Thomas Fuhrmann, Sonnefeld 
»Galgenmann« von Helmut Göttlich, Glashütten 3 
»New-Script« von Dirk Hansen, Barderup 


Sonnanpun- 


Wr reagiert nicht mal 


1. Platz: 
Ein DFU-Programm 


Unser erster Einzeiler stellt ein vollständiges DFÜ- 
Programm dar, das Daten im ASCIl-Format seriell 
über eine Fernleitung übermittelt. Die Datenüber- 
tragung erfolgt im Halbduplex-Betrieb, die Um- 
schaltung zwischen Senden und Empfangen funk- 
tioniert automatisch. 


an sollte es nicht für möglich halten: Ein einzeiliges 

DFÜ-Programm verwandelt Ihren Schneider CPC 

mit Hilfe einer kleinen Interface-Schaltung (Bild) in 
einen Fernschreiber. Sie können auf der Tastatur Ihres CPC 
Texte eingeben, die über eine Fernleitung (bis zu mehrere 
hundert Meter lang) direkt an einen zweiten CPC gesendet 
werden. Ebenso lassen sich Texte von einem anderen CPC 
empfangen. Die Übertragung der Daten erfolgt seriell im 
ASCII-Format und die Umschaltung zwischen Senden und 
Empfangen geschieht automatisch. 

Wenn Sie zum Beispiel einen Bekannten haben, der eben- 
falls einen CPC besitzt und im gleichen Haus wohnt, können 
Sie sich mit dem DFÜ-Programm kostengünstig eine Kommu- 
nikations-Standleitung einrichten. 

Zu Beginn des Einzeilers liest ein INKEY$-Befehl die Zei- 
chen von der Tastatur ein. Erkennt der Befehl eine Eingabe, 
so verzweigt das Programm zunächst in die Senderoutine, 
die ungefähr in der Mitte des Einzeilers mit »;ELSE PRINT a$« 
beginnt. Hier wird der Text zur Kontrolle auf den Bildschirm 
ausgegeben. 

Bei der seriellen Datenübertragung beginnt jede Zeichen- 
sequenz in der Regel mit einem Startbit, das auf O gesetzt ist. 
Dann folgen die Datenbits (in diesem Fall sieben), und 
anschließend werden noch zwei Stopbits, die beide auf 1 
gesetzt sind, angehängt. Da das höchste Bit bei ASCIl- 
Zeichen immer auf O gesetztist, wirdes hier gleich als Startbit 
verwendet. Der ASCII-Wert der Variablen a$ wird mit BIN$ in 
das Binärformat umgewandelt und die beiden Stopbits wer- 
den mit »11« addiert. 

Jedes Zeichen besteht nun aus 10 binären Ziffern, die der 
Reihe nach, mit dem höchstwertigen Bit beginnend, über die 
MID$-Funktion innerhalb einer Schleife ausgelesen werden. 
Die VAL-Funktion wandelt den jeweiligen Teilstring »0« oder 
»1« in eine Zahl um. Durch Addition mit dem Wert 127 und 
Ausgabe des Ergebnisses über OUT &EFOO liegt an allen 
Datenleitungen des Druckerports und an der STROBE- 
Leitung das invertierte serielle Signal an. Die Invertierung ist 
aufgrund des nachfolgenden Interfaces notwendig, damit der 
Norm entsprechend die Fernleitung bei »Mark« auf 1, und bei 
»Space« auf 0 liegt. 

Alle beschriebenen Schritte sind im OUT-Befehl zusam- 
mengefaßt. Der Ausdruck »z=1/1/1/1« ist ein Laufzeitdummy. 
Die Rechenzeit dieses Terms sorgt für eine zeitliche Anpas- 
sung der Schrittlänge. Ist ein Zeichen vollständig in seine Zif- 
fern zerlegt und übertragen worden, wird das nächste Zei- 
chen von der Tastatur beziehungsweise aus dem Tastaturpuf- 
fer eingelesen. Liegen keine weiteren Zeichen vor, schaltet 
das Programm automatisch auf Empfang um. 

Auch Kontrollzeichen lassen sich problemlos mit der CTRL- 
Taste senden. So ertönt zum Beispiel ein Rufsignal, wenn Sie 
<CTRL+G> drücken, <CTRL+J> erzeugt einen Zeilen- 
vorschub. Welche Bedeutungen die anderen Kontrollzei- 
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chen des CPC haben, können Sie dem Handbuch entneh- 
men. 

Da die Senderoutine sehr »müllintensiv« ist, wird mit 
»f=FRE(” ")«nachjedem Zeichen eine kontrollierte Garbage 
Collection ausgelöst. Die Garbage Collection räumt den 
Speicher auf, indem sie alle überflüssigen Strings löscht und 
die übrigen Strings »am Stück« ablegt. Andernfalls würde der 
CPC nach einer gewissen Zeit selbständig eine Garbage Col- 
lection durchführen, die dann wesentlich länger dauern 
würde und den übertragenen Text unter Umständen verstüm- 
meln könnte. 

Das DFÜ-Programm benutzt die BUSY-Leitung des 
Druckerports als seriellen Dateneingang des CPC. Der 
Befehl INP(&F500) fragt den Zustand des BUSY-Signals ab, 
indem er die Bitkombination an Port B des im CPC eingebau- 
ten Portbausteins 8255 einliest. Es wird dabei auch der 
Zustand der anderen angeschlossenen Signale eingelesen. 
Der eingelesene Wert beträgt 90, wenn BUSY gesetzt ist, 
und 26, wenn BUSY inaktiv (0) ist. Werden diese beiden 
Werte durch 90 geteilt, so ist das Ergebnis einer Integer- 
Division entweder 1 oder O. 

Die Empfangsroutine in der ersten Hälfte des Ein- 
zeilers wartet zunächst auf ein eintreffendes Startbit. So- 
bald ein Startbit empfangen wird, ist die Bedingung 
»INP(&F500) > 64« nicht mehr erfüllt, und eine Schleife mul- 
tipliziert jeden eintreffenden Impuls mit seinem Stellenwert 
(eine Zweierpotenz von 27 bis herunter auf 2°). Die Pro- 
dukte werden zu der Variablen b addiert und anschließend mit 
der CHR$-Funktion als Zeichen ausgedruckt. 

Es folgt ein Rücksprung an den Zeilenanfang, wo auf das 
nächste Startbit oder ein Zeichen von der Tastatur gewartet 
wird. Im letzteren Fall ruft das Programm wieder die Sende- 
routine auf. _ 

Da ein DFÜ-Programm ohne Handshake-Signale oder Takt- 
signal äußerst zeitkritisch ist, erfolgt der Feinabgleich in der 
Empfangsroutine wieder über ein Laufzeitdummy, das der Bil- 
dung der Zweierpotenzen durch schrittweise Halbierung der 
Variablen n angefügt ist (»n=n/2/1/1*1«). Die übliche 
Berechnung der Stellenwerte durch »FORx=7 TO O«unddie 
Bildung von 2* ist hier nicht möglich, weil die Rechenzeit für 
2* vom jeweiligen Exponenten abhängt. 

Die Baudrate des DFÜ-Programms beträgt 58 bit/s. Dies 
erscheint auf den ersten Blick als recht gering, doch in Basic 
lassen sich höhere Baudraten nur schwer realisieren. Immer- 
hin arbeiten viele kommerzielle Fernschreiber (wenn auch in 
einem anderen Code) mit nur 50 Baud. 


BC 547 ‚BC 547 
Fernleitung 
ZF4T 2r 47 
10 kl) 110 K 
A Y 
Pini Pin24 Pin it Pin11 Pin24 Pin 1 


‚Ausgang Masse Eingang Eingang Masse Ausgang 


Bild. Diese kleine Interface-Schaltung erlaubt 
die Datenübertragung zwischen zwei CPCs 


1 a$=INKEY$: IF a$=""THEN IF INF(&FS08) >6 


4 THEN 1 ELSE n=12: OR x=1 TO 8:b=b+INT 
«INP (RF5Q@) /98) &nın=n/2/1/1*#12NEXT:PRINT 
CHR$(b)5;:b=9:60T0 1 ELSE PRINT a 


x=1 TO 1 UT &EF@B.VAL (MIDE(BIN$ (ASC (a$ 
),8)+"11",x,1)9+127:2=1/1/1/12 NEXT: f=FRE 
""):60T0 1 


Listing. Ein vollständiges DFÜ-Programm 


Leider kann man die Fernleitung zur Datenübertragung 
nicht ohne weiteres am Druckerport anschließen. Es ist 
jedoch nur ein minimaler Aufwand für ein DFÜ-Interface nötig. 

Wie erwähnt, erfolgt die serielle Ausgabe der Daten über 
jede Datenleitung und die STROBE-Leitung des Drucker- 
ports. Allerdings kann der Datenpuffer des Druckerausgangs 
nicht gegen die Kapazität einer Fernleitung arbeiten. Deshalb 
müssen Sie eine Transistorstufe als Verstärker anschließen, 
die jedoch ohne zusätzliche Spannungsversorgung aus- 
kommt, weil der Transistor seine Kollektorspannung über den 
internen Pull-up-Widerstand, mit dem die BUSY-Leitung im 
CPC auf +5 Volt gezogen ist, bezieht. 

Da die Fernleitung zwischen BUSY und Masse ange- 
schlossen wird, liegt die BUSY-Leitung ohne Signal auf +5 
Volt. Erscheint dagegen eine 1 (eine invertierte O) auf den 
Datenleitungen und der STROBE-Leitung des Druckerports, 
so schaltet der Transistor durch, BUSY wird auf Masse 
gelegt, und der Zustand der Fernleitung ist O. Dies funktio- 
niert in beide Richtungen. 

Nach dem Start des DFÜ-Programms muß bei beiden Sta- 
tionen einmal die ENTER-Taste gedrückt werden, damit die 
Druckerports initialisiert werden. Andernfalls würde das nach 
dem Einschalten anliegende Bitmuster über das DFÜ- 
Interface die BUSY-Leitung blockieren. 

Wegen der relativ geringen Baudrate kann die Fernleitung 
mehrere hundert Meter lang sein. Die beiden Zenerdioden an 


den Enden der Leitung sind nur bei großen Entfernungen 
erforderlich. Sie machen induktiv eingestreute Überspan- 
nungen unschädlich. Selbstverständlich läßt sich auch ein 
FSK-Konverter mit dem seriellen Signal treiben. Dann ist zum 
Beispiel die drahtlose Übertragung durch Amateurfunk mög- 
lich. Positive Erfahrungen auf diesem Gebiet liegen bereits 
vor. 

Da die Basic-Versionen der verschiedenen CPC-Modelle 
nicht völlig übereinstimmen, können unter ungünstigen 
Umständen Laufzeitprobleme auftreten. Eine eventuell not- 
wendige Anpassung mit Hilfe der Laufzeitdummies ist leicht 
möglich, wenn Sie in der Empfangsroutine den Ausdruck 
»PRINT CHR$(b)« vorübergehend durch PRINT BIN$(b,8) 
ersetzen. Durch Vergleich der ausgedruckten Bitmuster kön- 
nen Sie schnell erkennen, an welcher Stelle zeitliche Unstim- 
migkeiten auftreten. 

Zum Schluß noch ein paar Hinweise zum Aufbau der 
Interface-Schaltung: Besorgen Sie sich einen passenden 
Stecker für den Druckerport und löten Sie an dessen Pole die 
Bauteile nach dem Schaltplan an. Achten Sie darauf, daß 
keine Pole des Steckers durch Löttropfen kurzgeschlossen 
werden. Funktioniert die Datenübertragung nach den ersten 
Versuchen nicht, dann schließen Sie Ihren Drucker an den 
Druckerport an. Wenn Ihr Drucker streikt oder nur unsinnige 
Zeichen ausgibt, haben Sie den Drucker-Datenpuffer im CPC 
durch Kurzschluß zerstört. In diesem Fall müssen Sie die 
Schaltung am Stecker nochmals überprüfen, Ihren CPC auf- 
schrauben, den defekten Baustein 7418273 (sitzt direktam 
Druckerport) auslöten und gegen einen neuen Baustein 


ersetzen. (Diethelm Buttkus/ma) 
Steckbrief 
Programm: DFÜ 
Computer: CPC 464/664/6128 
Datenträger: | Diskette, Kassette 


2. Platz: 
Action total 


Selbst ein heißes Action-Spiel mit schneller Grafik 
und Geräuschuntermalung läßt sich in einer einzi- 
gen Basic-Programmzeile verwirklichen - »Spacer« 
ist der Beweis! 


er Einzeiler »Spacer« demonstriert eindrucksvoll, daß 
D:: ein fesselndes Action-Spiel nicht lang sein 

muß. Spacer verlangt von Ihnen volle Konzentration, 
schnelle Reaktion und starke Nerven. Sie werden überrascht 
sein, daß man sich bei diesem einfachen Spiel so sehr ärgern 
kann! 

Sie sind mit Ihrem Raumschiff in einen Meteoritenschauer 
geraten und müssen nun den auf Sie zurasenden Bruch- 
stücken ausweichen. Je länger Sie den Flug durchhalten, 
desto mehr Punkte werden auf Ihrem Konto verbucht. 
Gesteuert wird mit den Cursortasten. 

Zu Beginn des Spiels können Sie eine beliebige Schwierig- 
keitsstufe wählen. Die Höhe der Stufe bestimmt die Länge 
des Spiels. Wenn Sie einen Durchgang unbeschadet über- 
standen haben, bekommen Sie ein Lob vom Computer, 
andernfalls wird der erreichte Punktestand angezeigt. 


ER oO NEcomeLTen 


Beim Eintippen des Einzeilers müssen Sie jeweils statt der 
geschweiften Klammer mit Inhalt die beiden Tasten gleichzei- 
tig drücken, die in der Klammer angegeben sind. 

Wir können Ihnen schon jetzt versprechen, daß Sie einige 
Male ins Schwitzen kommen werden, bis Sie das erste Mal 
über 1000 Punkte erzielen. Der Redaktionsrekord liegt übri- 
gens (ohne Schummeln) bei 1637 Punkten! 

(Roland Weigelt/ma) 


1 x=2@: INPUT" {CTRL+D} {CTRL+A}Level "sesWH 
ILE c=dsx=x+INKEY (1) -INKEV (8) :PRINT" {CTR 
L+83 “CHR$ (RND*SS+1) " {CTRL+Y? I CCTRL+JF {CT 
RL+J3 {CTRL+B? "CHR$ (x) " (CTRL+A?V" 5 2 SOUND 

7,@,6,3,,,4:c=TEST (x*16-8, 380) :5=s+1:d=s 
=6*1@0: WEND:CALL &BBQS: IF c THEN PRINT"{ 
CTRL+HIHECTRL+IICTRL+H? CETRL+"3 CCTRL+JI 
}Score"s:FOR t=Q TO 6:SOUND 7,8,20,7-t,, 
„1S:NEXT ELSE PRINT"Super! 


Listing. »Spacer« sorgt für Nervenkitzel und feuchte Hände 


Be Steckbrief =] 
Programm: Spacer 
Computer: CPC 464/664/6128 
Datenträger: Diskette, Kassette 
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3. Platz: 
Die ultimative 
Textverarbeitung 


Mühen Sie sich auch noch mit Ihrem Speicherplatz 
fressenden und umständlich zu bedienenden Text- 
verarbeitungssystem ab? Unser Einzeiler »Text-Star« 
ist die richtige Alternative - klein, stark, schnell! 


tungssystem erst mühsam von drei Disketten laden 

mußten und dann nur durch ständiges Nachschlagen 
im kiloschweren Handbuch unter Berücksichtigungaller Fuß- 
noten und Querverweise die Steuerzeichen-Sequenz zum 
Aufruf der Unterfunktion »Texteingabe« herausfinden konn- 
ten. 

Wir bieten Ihnen mit dem Einzeiler sText-Star« eine vernünf- 
tige Alternative zu Ihrem bisherigen Textverarbeitungspro- 
gramm an. Sie können bequem Texte eingeben, die Eingabe 
durch <ENTER>, Leerzeichen, <ENTER> abbrechen 
und den geschriebenen Text wahlweise auf den Bildschirm 
oder den Drucker ausgeben. 

Die Leistungsmerkmale von Text-Star sind beeindruckend: 
- weniger als 300 Byte Speicherplatzbedarf 
- Basic-kompatibler Zeileneditor 
- ein Hauptmenü, das alle Funktionen übersichtlich anzeigt 
- dank Basic-Code leicht modifizierbar und trotzdem über- 

raschend schnell 


Vv: sind die Zeiten, in denen Sie Ihr Textverarbei- 


- automatische Sicherung auf Datenträger 
- keine Druckeranpassung nötig 
- nicht kopiergeschützt 
- kein Handbuch notwendig 
Wer kann dazu schon »nein« sagen! 
(Fred Feuerstein/ma) 


{CTRL+D} {CTRL+B}1 Eingabe 
PRINT"S Ausdruck":WHILE f= 
:WEND:CLS: IF 


WHILE NOT EOF: INPUT#9,b$:PRINT# (#-2) 
:WEND:CLOSEIN:CALL &BBi8:RUN 


Listing. Der Alptraum aller Textverarbeitungssysteme: 
»Text-Star« 


— 
Steckbrief 

Programm: Text-Star 

Computer: CPC 464/664/6128 

Datenträger: Diskette, Kassette | 


. A. Platz: 
Mini-Monitor 


Der Einzeiler »Mini-Monitor« listet ab einer beliebi- 
gen Adresse den Inhalt des Arbeitsspeichers in 
hexadezimaler Form und als ASCll-Werte in tabella- 
rischer Form auf. 


ft kommt es vor, daß man »mal eben« den Inhalt des 
Speichers auflisten möchte. Also gibt man im Direkt- 
modus eine Schleife ein, die den Inhalt des Arbeits- 
Speichers innerhalb des in der Schleife definierten Bereichs 
ausgibt. Doch entweder hat man das Semikolon hinter dem 
PRINT-Befehl vergessen, so daß die Werte rasend schnell 
über den Bildschirm jagen, oder der Speicherzellenwert wird 
ohne Speicheradresse ausgegeben, so daß der Bezugswert 
fehlt. Es kann auch vorkommen, daß man nur an den ASCII- 
Werten oder den hexadezimalen Werten interessiert ist, und 
gerade diesen Wunsch erfüllt die zusammengebastelte 
Schleife nicht. 
Mit dem »Mini-Monitor« gehören diese Probleme der Ver- 
gangenheit an. Der Mini-Monitor listet 256 Byte aus dem 
Arbeitsspeicher ab einer gewünschten Adresse sowohl in 
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hexadezimaler als auch in ASCII-Form übersichtlich auf dem 
Bildschirm auf. Da es sich beim Mini-Monitor nur um eine 
Zeile handelt, äßtsich das Programm auch bequem in eigene 
Programme integrieren oder mit dem MERGE-Befehl einbin- 
den. 

Die geschweiften Klammern im abgedruckten Listing 
geben jeweils zwei Tasten an, die Sie beim Eintippen der Zeile 
gleichzeitig drücken müssen. (Holger Schrader/ma) 


1 INPUT"{CTRL+D3 {CTRL+B>Adresse: ",‚sıa 

":FOR w=Q TO 15:h$=h$+HEX$ (w,2)+g$: 
$+HEX$ {w) =NEXT=PRINT" {CTRL+B3 {CTRL+FF {CT 
RL+D"h*g$g$i#"{CTRL+J}":FOR t=s TO s+248 

STEP 1&:2$=HEX$(t,4)+g$:FOR i TO 15:x 
=PEEK (t+1) :z$=2$+HEX$ (x „2) +g$: 0$=0$+"{CT 
RL+A3 "+CHR$ (x) :NEXT:PRINT z$+g$+0$+0$:0$ 
NEXT:CALL &BB18:RUN 


Listing. Mit Steuerzeichen wird 
im Mini-Monitor nicht gespart 


Steckbrief 
Programm: Mini-Monitor 
Computer: CPC 464/664/6128 
Datenträger: Diskette, Kassette 


5. Platz: 
Turbo für den 
Recorder 


Auch Befehlserweiterungen für das Schneider- 
Basic sind mit einer Programmzeile machbar. Der 
Einzeiler »Recorderturbo« implementiert den RSX- 
Befehl IBAUD, der die Datenübertragung des CPC- 
Recorders auf 3600 Bit pro Sekunde beschleunigt. 


1000 Baud (SPEED WRITE 0) beziehungsweise 

2000 Baud (SPEED WRITE 1) ist zwar recht ordent- 
lich, doch der Schneider CPC verträgt auch höhere Übertra- 
gungsraten bis zu 3600 Baud. 

Zu diesem Zweck erweitert »Recorderturbo« den Basic- 
Befehlssatz des CPC um den RSX-Befehl IBAUD. Tippen Sie 
das Listing ab und sichern Sie es vorher auf einen Datenträ- 
ger. Dann starten Sie das Programm, das eine kleine 
Maschinencode-Routine in den Arbeitsspeicher des CPC 
schreibt und sich anschließend selbsttätig löscht. 

Einmal in einem Programm angewandt, schaltet IBAUD die 
Datenübertragungsrate des CPC auf 3600 Baud hoch. Sie 


D: Datenübertragungsrate des CPC-Recorders mit 


können die Übertragungsrate jederzeit mit dem Befehl 
SPEED WRITE auf 1000 oder 2000 Baud zurücksetzen und 
anschließend mit IBAUD wieder hochschalten. 
Recorderturbo bietet zusätzlich den Vorteil, daß es den 
Maschinencode in einen vom Betriebssystem reservierten, 
jedoch unbenutzten Teil des Arbeitsspeichers schreibt. 
Dadurch ist ein MEMORY-Befehl zum Schützen des Maschi- 
nencodes überflüssig und der frei verfügbare Speicherplatz 
für Basic-Programme und Maschinencode-Routinen bleibt 
vollständig erhalten. 
(Friedhelm Maier/ma) 


1 MODE 2:PRINT"Der RSX-Befehl IBAUD setz 
audrate auf 3608 Bit pro Sekunde 
OR n=%&BQC7 TO &BQE6:READ as: POKE 
m„VAL("&"+a$) sNEXT:CALL &B@C7: NEW: DATA 
1,D1,B@,21,D5,B@,CD,D1,BC,C9,D9,B@,18,8, 
0.0,0,0.42,41,55,C4,0,21,5D,0,3E,A,CD,6&8 


„BC,C 


Listing. Vergessen Sie nicht, das Programm vor dem Start 
abzuspeichern! 


Steckbrief 


Recorderturbo 
CPC 464/664/6128 


Diskette, Kassette 


Programm: 


Computer: 
Datenträger: 


6. Platz: 
Skifahren per 
Computer 


Skifahren ist in dieser Jahreszeit nur noch in den 
Hochlagen der Alpen möglich. Mit dem Einzeiler- 
Programm »Skifahren« können Sie sich jedoch 
auch ohne schneebedeckte Berge auf die Piste 
schwingen und eine rasante Abfahrt wagen. 


denn wenn Sie mit diesem Programm skifahren, kön- 
nen Sie sich nicht die Knochen brechen, falls Sie 
beim Fahren stürzen. 

Sie befinden sich auf einer Bergstation und vor Ihnen 
erstrecktsich die Abfahrt bis hinunter ins Tal. Leider sind wäh- 
rend der Bergfahrt dichte Wolken aufgezogen, so daß Sie die 
Streckenführung der Piste nur erahnen können. Weil die 
Piste sehr schmal ist, können Sie durch Schwingen auch 
kaum bremsen. Deshalb müssen Sie blitzschnell reagieren, 
um nicht über die Begrenzung geschleudert zu werden. 

Am liebsten würden Sie wieder mit der Kabinenbahn 
zurück ins Tal fahren, doch die letzte ist vor ein paar Minuten 
gestartet. So müssen Sie die Abfahrt wagen, wenn Sie nicht 
in der Nacht auf dem Berg erfrieren wollen, und todesmutig 
schießen Sie in die Tiefe. 

Gesteuert wird über den Joystick. Wenn Sie von der Piste 


D er Einzeller »Skifahren« tut etwas für Ihre Gesundheit, 


abkommen und stürzen, zeigt der Computer die zurückge- 
legte Strecke in Kilometern an. Wenn Sie gleich zu Anfang 
den ersten Kilometer heil überstehen, können Sie sich zur 
Elite zählen. Andernfalls sollten Sie noch ein wenig üben, um 
nicht in den Ruf eines Pistenschrecks zu geraten! 

Damit Sie die Funktion des Einzeilers (Listing 1) genau ver- 
stehen, haben wir in Listing 2 das Programm in einer »ausein- 
andergezogenen« Form und mit Dokumentations-Zeilen ver- 
sehen abgedruckt. (Karl-Heinz Rattay/ma) 


19 "Skifahren 


12 'Bildschirm initialisieren 
13 MODE 2 


15 ‘Strecke und Grenzen festlegen 
15 a=Q:b=35:c=41 


18 ‘Beginn der Hauptschleife 
179 WHILE c>b AND c<b+1@ 


21 ‘Festlegen des Fistenverlaufs durch 
"Zufallsgenerator und UVeberwachung, 
23 ‘dass der Bildschirmbereich nicht 


24 ‘verlassen wird 

25 b=b+INT (RND (b) #3) -INT (b/69-0.02)-1 
26 ° 

27 "Abfrage des Joysticks 

28 d=INKEY (74) ze=INKEY (75) 

In, 

32 "Auswertung der Abfrage 


31 WHILE d=@:c=c-1:d=1:WEND 


Listing 1. Knochenbrüche ausgeschlossen: Skifahren mit 
dem CPC 
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32 WHILE e=@:c=c+1:e=1:WEND 


33° 

34 'Fahrtstrecke registrieren 
35 asa+ti 

se ° 


37 "Neuen Pistenabschnitt ausgeben 
38 LOCATE b,25:PRINT"! Ns 

39° 

48 ‘Neue Skispur ausgeben 

41 LOCATE c,25:PRINT"#" 

42 ° 

43 "Tonausgabe 

44 SOUND 1,b*20,8 

45° 

46 ‘naechsten Streckenabschnitt fahren 
47 PRINT:WEND 

48° 

49 "Ergebnisausgabe 

58 PRINT"Gefahrene Strecke: "a/1QB"km." 


Listing 1. (Schluß) 


1 r=99: INPUT" {CTRL+W3 {CTRL+A} {CTRL+L} Zei 
t"3m,s:DEG:ORIGIN r,r:FOR i=1 TO &@:PLOT 
SINli*6)#r ‚COS(i#6)#r:NEXT:WHILE 1:x=SI 
N{s*6) #r: y=C05 (5*6) &r2 v=SIN (m#6) #40 
S(m*6)*6Q@:MOVE x„y:DRAW ®,@:DRAW v,wis=s 
+1+68* (s=640) sm=m" (s=1): FOR k=1 TO PQB:NE 
XT:MOVE x ,v:DRAW 8,@:DRAW v,w:WEND 


Listing. Zeiträume bis zu einer Stunde lassen sich mit 
dem Einzeiler »Analoguhr« messen 


1 MODE 2:a=8:b=35:c=41 
ain: b=b+INT (RND (b) #3) 
NKEY (74) :e=INKEY (75 
:WEND:WHILE e=B:c=c+ 
OCATE b,25:?"} 

#" SOUND 1,b*20,8: ?:WEND 
ecke: "a/1Q0"km. 


Listing 2. »Skifahren« dokumentiert 


:WHILE c>b AND c<b 
INT (b/69-0.82)-1:d 
HILE d=@:c=c-1:d 


Gefahrene Str 


7. Platz 


Eine Uhr, die auf dem Monitor des Schneider CPC 
die Zeit anzeigt - das ist doch sicherlich nur durch 
ausgetüftelte Anwendung der Interrupt-Befehle 
machbar! Falsch. Der Einzeiler »Analoguhr« 
demonstriert, wie sich mit wenig Aufwand eine Uhr 
programmieren läßt. 


as Programm »Analoguhr« zeichnet in die linke untere 

Ecke des Bildschirms eine Uhr, die die Minuten und 

Sekunden analog anzeigt. Zuvor kann der Benutzer 
die Startzeit bei einer Zeitabfrage festsetzen. 

Da die Basic-Versionen der CPC-Modelle geringfügig diffe- 
rieren, kann es zu kleinen Zeitunterschieden kommen. Wenn 
die Uhr auf Ihrem CPC zu schnell läuft, müssen Sie die Ober- 
grenze der FOR-NEXT-Schleife am Ende des Einzeilers, die 
auf 900 festgesetzt ist, erhöhen. Läuft die Uhr auf Ihrem 
CPC-Modell zu langsam, müssen Sie den Wert entspre- 
chend verringern. 

Die geschweiften Klammern am Anfang des Einzeilers 
geben an, daß Sie an dieser Stelle die CTRL-Taste und eine 
zweite angegebene Taste gleichzeitig drücken müssen. 

(Stefan Schwabe/ma) 
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: Steckbrief 
Programm: Skifahren 
Computer: CPC 464/664/6128 
Datenträger: Diskette, Kassette 


Steckbrief 
Programm: Uhr 
Computer: CPC 464/664/6128 
Datenträger: Diskette, Kassette 


8. Platz: 


CALL einmal 
anders 


Wer eine Maschinencode-Routine über den Basic- 
Befehl CALL aufruft, kennt das Problem: Alle Para- 
meter des CALL-Befehls müssen erst aus dem 
Speicher in die gewünschten Register des 
Z80-Prozessors geladen werden, bevor die 
Maschinencode-Routine ihre Funktion ausführen 
kann. Unser RSX-Befehl ICALL schafft Abhilfe, 
indem er die Parameter automatisch in die 
gewünschten Register übernimmt. 


it dem umständlichen Laden der CALL-Parameter 
aus dem Arbeitsspeicher ist es nun vorbei. Das 
Einzeiler-Programm »RSX-CALL« bindet den neuen 
RSX-Befehl ICALL in das Basic des Schneider CPC ein. Der 
Befehl hat folgende Syntax: 
| CALL,adresse,a,be,de,hl,ix,iy 

Der erste Wert bestimmt die Startadresse der aufzurufen- 
den Maschinencode-Routine und muß zwischen O und 
65536 liegen. Der zweite Wert wird in den Akkumulator des 
Prozessors Z80 geladen und liegt zwischen O und 255, Alle 
weiteren Parameter haben den gleichen Wertebereich wie 
der Adressen-Parameter und werden direkt in die 16-Bit- 
Register BC, DE und HL, sowie in die beiden Indexregister IX 
und IY geladen. 

Das Listing »RSX-CALL« schreibt eine kleine Maschinen- 
code-Routine in den Arbeitsspeicher des CPC und bindet 
den RSX-Befehl durch Aufruf der Routine in das Basic ein. 
Danach kann das Listing mit »NEW« gelöscht werden. Ein vor- 
heriger MEMORY-Befehl zum Schutz des Maschinencodes 
istnicht zwingend erforderlich, aber wünschenswert. Geben 
Sie dazu vor dem Start des Einzeilers im Direktmodus 
»MEMORY &9FFF« ein. 

Beim Abtippen des Einzeilers sollten Sie sorgfältig die 
Werte des Daten-Strings prüfen und vor dem ersten Lauf das 


Programm vorsichtshalber auf Diskette oder Kassette spei- 
chern. Wenn das Programm nach dem RUN-Befehl abstürzt, 
haben Sie einen oder mehrere Werte falsch abgetippt. Schal- 
ten Sie dazu den Computer aus und wieder ein, laden Sie den 
Einzeiler vom Datenträger und vergleichen Sie sorgfältig Zei- 
chen für Zeichen mit dem abgedruckten Listing. 

(Thomas Fuhrmann/ma) 


1 FOR x=&AQGa TO %ABST:POKE x ,„VAL("&"+MI 
D$+ ("D1BEAB21SBARCSDI1BC4S414CCCHBBFABFSCS 
DSESDDESFDESDDS4DDSDEB7EFD&AF237EFD67237E 
DD6F237EDD67234E2346ED434AAB235E2356234E 
2346237E2323054E2346ED434DAUC 121DQBBCDO® 
BBFDELDDELEIDICIFICY" „ (x-&IFFF)#2-1,2)): 
NEXT:CALL x-88 


Listing. Der RSX-Befehl ICALL erleichtert den Aufruf 
von Maschinencode-Routinen 


»MID$(c$,2,1)« bestimmten Position des Wortes im String c$ 

ergänzt. Dies geschieht entsprechend mehrfach, wenn der 

Buchstabe in b$ mehrmals im String c$ vorkommt. 
(Helmut Göttlich/ma) 


3 FOKE %&B4E8,255:PEN 8: INPUT r$er=LEN(r$ 
)2zc$=STRING$ (r,"-")=MODE 1:PEN 1:FOR j=1 
TO 2*rsPRINT c$, "Buchstabe"; : INPUT b$:F 
OR z=1 TO r:MID$#(c$,z,1)=STRING$ (- (b$=MI 
D$(r$,z,1)),b#) :NEXT:ıIF c$=r$ THEN PRINT 
c#,"OK.":END ELSE NEXT:PRINT"Richtig wa 
r "r$".":END 


Listing. Eine knifflige Angelegenheit für zwei Spieler ist 
»Galgenmann« 


Steckbrief 
(EB 


9. Platz: 
Galgenmann 


Nachdem wir bereits zwei Action-Einzeiler vorge- 
stellt haben, folgt an dieser Stelle noch ein Spiel, 
das etwas Nachdenken erfordert. Es handelt sich 
um die Computerversion von »Galgenmännchen«, 
einem Spiel, bei dem man durch Wählen von Buch- 
staben ein Wort erraten muß. 


noch aus der Schulzeit bekannt sein. Ziel des Spieles 

ist es, die einzelnen Buchstaben eines unbekannten 
Wortes zu erraten, bevor ein (gezeichnetes) Männchen kom- 
plett am Gagen hängt. Beim Einzeiler »Galgenmann« mußte 
aus Platzgründen zwar auf die Zeichnung verzichtet werden; 
das Spielprinzip blieb jedoch erhalten. 

Zu Beginn von Galgenmann muß der erste Spieler das zu 
ratende Wort blind (PEN-Farbe ist gleich PAPER-Farbe) über 
die Tastatur eingeben und mit der ENTER-Taste abschließen. 
Der zweite Spieler versucht nun, durch Eingabe einzelner 
Buchstaben dieses Wort herauszufinden. Er darf doppelt so 
oft raten, wie das Wort Buchstaben hat. 

Wird das Wort innerhalb der‘erlaubten Anzahl von Versu- 
chen erraten, so erscheint die Meldung »OK.«, ansonsten 
zeigt der Computer das Lösungswort auf dem Bildschirm an. 

Der POKE-Befehl zu Beginn des Einzeilers stellt sicher, 
daß bei allen Eingaben und Vergleichen nur mit Großbuchsta- 
ben gearbeitet wird (es sei denn, man benutzt zusätzlich die 
Taste <CAPS LOCK>). Das Herzstück des Programms ist 
der in der inneren Schleife stehende Ausdruck 
MID$(c$,2,1)=STRING$(-(b$=MID$(r$,2,1)),b$) 

Wenn der rechts stehende Vergleich (b$=MID$(r$,z,1)) 
wahr ist, so erhält er den Wahrheitswert -1. Dadurch wird der 
Buchstabe im String b$ an der über die Anweisung 


D as Spiel Galgenmännchen wird den meisten Lesern 


Programm: ] Galgenmann 
® Steckbrief Computer: | CPC 464/664/6128 
Programm: RSX-CALL Datenträger: | Diskette, Kassette | 
Computer: CPC 464/664/6128 
Datenträger: Diskette, Kassette 


10. Platz: 


Neuer 
Schriftsatz 


Unser letzter Einzeiler zeigt, daß es nicht unbe- 
dingt notwendig ist, eine Programmzeile bis auf 
das letzte Byte auszunutzen, um eine interessante 
Anwendung zu bieten. »New-Script« installiert bei 
einer Zeilenlänge von 116 Zeichen einen neuen Zei- 
chensatz auf dem CPC. 


enn Sie die ewig gleiche Schrift Ihres Schneider 

CPC auf die Dauer nervt, dann ist »New-Script« 

genau das Richtige für Sie. Dieser Einzeiler 
kopiert zuerst mit dem Befehl »SYMBOL AFTER 32« die 
ASOII-Zeichen 32 bis 255 in den Arbeitsspeicher des Com- 
puters und verändert dort die Bitmaske der einzelnen Zei- 
chen durch eine logische Verknüpfung. Dadurch erhalten Sie 
einen völlig neuen Schriftsatz auf Ihrem CPO, der sich für die 
Textausgabe in Spielen und Anwendungsprogrammen glei- 
chermaßen eignet. (Dirk Hansen/ma) 


1 SYMBOL AFTER 32:FOR n=HIMEM+1 TO_HIMEM 
+1(127-32)#*8) STEP 8:FOR t=n TO n+7:POKE 
t,PEEK(t) AND PEEK (t) +255:NEXT:NEXT 


Listing. »New-Script«: Viel Effekt bei wenig Aufwand 


Steckbrief 
Programm: New-Script 
Computer: CPC 464/664/6128 
Datenträger: Diskette, Kassette 


eos 
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Rüstzeug für Assembler- 
Programmierer 


Programmieren Sie auch in Maschinensprache? 
Dann haben wir etwas für Sie! Sie finden hier ein 
Paket mit nützlichen Routinen, die man immer wie- 
der benötigt. 


erade wenn man seine Programme mit Hilfe eines 
Assemblers entwickelt, braucht man für jedes neue 
Projektimmer wieder die gleichen Standardroutinen. 
Dazu zählen Aus- und Eingaberoutinen sowie diverse andere 
Unterprogramme. Für alle mit einem noch unvollständigen 
Fundus haben wir die wichtigsten Funktionen zusammenge- 
stellt. 
Die Routinen verarbeiten alle Assembler, die beliebig lange 


Labels und freie Textgestaltung zulassen. Für Devpac müs- 
sen Sie beispielsweise die Labels auf sechs Zeichen kürzen. 
Bei einigen anderen Assemblern müssen Sie »DB« durch 
»DEFB« oder »DEFM« ersetzen. Die Quellcodes sind so 
umfangreich dokumentiert, daß sich zusätzliche Informatio- 
nen an dieser Stelle erübrigen. (Stefan Aust/ja) 


Steckbrief 
Programm: Assembler-Routinen 
| Computer: | Po 48476646128 
| Datenträger: Diskette, Kassette Er 


RR 
u 


RRRKRRRENER 


für alle Row 


jDiese Vereinbarungen g 


) Ausgabe eines ASL 
j TrAsZeichen 


OUT-CHAR BQU OBBSAH 


.e Ausgabe eines Byte 
; 0: () 


QUTAHEK: PUSH AR jAkku und Flags 
PUSH AR ;aveinsl retten 
RRCA  joberes und 
RRCA  junteres Nibble 
Arch ;(das sind je 4 Bit) 
ÄRCh _ jvertauschen 
CALL NIBBLE  jerste Ziffer ausgeben 
POP AP ;Zahl wieder in Akku 
CALL NIBBIE jaweite Ziffer ausgeben 


POP AP ;Akku und Flags restaurieren 
Bet 


NIBBLEL; 


+) 


OUTHLHEX:  FUSHAR jäkkı und Flags rei 
ID A,H ;NSB (oberes Byte) 
(ALL OUT_AHER jausgeben. 
1DA,L zund LSB (u 
ALL OVT_AHEK jausgeb 
POP AR 
BE 


„ damit 0 gedruckt vird 
t noch inner 0 


ınd ausgeben 


veier-Konplenent) 


Aw MONEcOMPU 


ALL OUT_CHAR ;ausgeben 
1D A,H ;Einer-Konplement 
GPL jbilden 

IDhA 

WAL 

CPL 

1D L,A 

INC HL jZweier-Konplenent 


OUTIKT: CALL OUTLHL_DEZ ;HL ausgeben 
POP HL ;Register restaurieren 
POP AR 
BET. 
m 


Listing 1. Routinen zur Bildschirmausgabe von Zahlen 


ROHR 


TEIL, 2 = STRINOAUSOABE 


im 
EOTTTTTLTELTTTLNTLELLTLTELLTLLLLLLLLLLLLLLLLLLLLLLLLLLLLELLLLLLLLET 
n 

Für alle Stringroutinen gelten folgende Vereinbarungen 


ENDMAR BAU OFFH ;Endmarkferung der Strings 
OUT_CHAR. BQU OBBSAHN zälkku ausgeben 


+) String ausgeben, Adresse An Hl 
nStringadr; O:hilsStringende; (AP,HL) 


} 
UTSTRL: 1D A,(HL) rates Byte 


des Strings 


NO HL ;Adresse plus 1 

CP ENDNAR jEnder 

ALL NZ,OUT_CHAR ‚;neln, Byte 
ausgeben 

IR NZ,OUTSTRL zund weiter 

BET 


-) String ausgeben, String steht hinter CALL-Befehl. 
1:-5 0:-; (AFHL) 


Qur_sma: POP HL ;Returnadresse in 
HL kopteren 
CALL QUT_SIRL ;String ausgeben 
IP (HL) jund weiter in Progrann 


äspiel der Ankendung: 
ANWENDUNG:  CALL OUTSTRZ 
DB "Ein fing, sie gu knechten, sie alle zu finden, ",13,10 
DB “Ins Dunkel zu treiben und ewig zu binden. ”,13,10 
DB ENDMAR 
BET 


) String ausgeben, Akku enthält Stringnunser einer Stringtabelle 
TrAeltunner; O:-; (AF,HL) 


STRTAB EQU BEISPIEL ;hier mub die Adresse der Tabelle eingetragen 
jwerden, als erstes Byte steht die Anzahl der Strings, dann der 
;String, der bei ungültiger Nunmer ausgegeben vird.Nun folgen 
;dde Strings, beendet von ENDNAR 
OUTEIRZ: 1D HL,SIRTAB  ;Adresse der Tabelle 
CP (IL) ;Nunmer zu groß? 
INC HL ;HL geigt auf String 0 
IR 0,03 jmein, 
XOR A ;Asllunner Fehlerstring 
OUT3L: ORA jmichtägen String gefunden? 
IP Z,OUTSTRL  ;ja, String ausgeben 
und fertig +) 
DEO A ;Nunner minus 1 
PUSH AR zund retten 


uma2: Arbyte 
plus 1 
CP ENDKAR jEnde erreicht? 
IR NZ,00132  jnein, welter 
POP AF 
or OuTaL jauf richtige Nunner varten 


;Diese Routine 1äßt sich mit kleinen Änderungen auch rekursiv aufrufen. 
18 lassen sich bis zu 126 Strings und ein Fehlerstring verwalten, die 


jeich gegenseitig aufrufen können. Dabei müssen Sie nur darauf achten, 
;dad der Heschinenstack nicht überläuft, 


Rekursive Stringausgabe 
T:AsStringnunner; O:-; (AF,HL) 


QUTSTRA: AND OTEH ;Bit. 7 ausblenden 
ID HL,STRTAB ;Adresse der Tabelle 


CP (HL) Nummer au groß? 

IN HL ;HL zeigt auf String 0 

IR CU  zmein,-) 

XOR A jAtunner Fehleratring 
OVt41: ORA jmichtigen String gofundent 

RZ la) 

DE A jNunmer minus 1 

PUSH AR jund retten 
42: 1D A,(HL) \eByte 

ING HL jAdresse plus 1 


CP ENDMAR ;ände erreicht? 
IR NZ,OUT42 jnein, weiter 
POP AP 
IR OUTAL ;) 

QU143: 1D A,(HL) jAelyte 
INC HL ;Adresse plus 1 
CP EUDMR sEnde? 
BETZ 5a) 


PUSH HL ;Adresse retten 

CALL, M,OUTLSIR4 ;rekursiver Aufruf, venn Bit 7 gesetst 
POP EL ;hier geht's weiter 

CALL NZ,OUT_CHAR ‚jByte drucken 

IR 00143 


) Beispiel einer Stringtabelle: 


BEISPIEL: 83 ;Anzahl 
D8 "Sprich Freund, und tritt ein!” ;String 0 
D8 13,10, mmsar 
DS "Sein Grab liegt unter Schatten dar,” ‚String 1 
D8 13,10, 20DMaR. 
D2 "In Khased-dun, in Korlal" | ;ötring 2 
28 13,10, Mar 
j-) Ausgabe eines Strings nit fester Länge 
A T:HL-Textadresse; O:-; (AF,HL) 


Das erste Byte des Strings zeigt die Länge an, daher ist eine 
;Endaerkierung nicht nötig. 
ALLSIRS: PUSH BC ;Register retten 
1D B,(H1) ;Belänge 
INC HL ;Stringanfang 
OUTS1: ID A,(HL) sheByte 
INC HL jAdresse plus 1 
CALL OUT_CHAR ;Zeichen ausgeben 
DINZ OUT ;B-nal =) 
POP BC  ;Register zurück 
Ber 


;Zum Beispiel: 
DEMO: DB 39,"Ents, die Erdsprosse 


it vie die Berge" 


-) Ausgabe konprinierter String 

; HleToxtadresse; Or-; (AL) 

jAnstelle von Leerzeichen vird an Ende Jedes Wortes das 
;Bit 7 gesetzt. Ende wie Oblich mit ENDKAR 


NT_STR6: 1D A,(HL) jAszeichen 
INC HL_;Adresse plus 1 
‚Endet 


tt 7 1dschen 

CALL OUT_CHAR jZeichen ausgeben 

Da” Ace 

ALL M,OUT_CHAR ;War Bit 7 gesetzt, dann SPACE ausgeben 
IR OUTSTRE jund weiter -) 


sein Beispiel: 

STRING: DB “He”,OACH, "To”,0EOH, "Boabadi1*,OA1 
DB "To”,0EDH, "Bonabadonne! *,13,10,ENDMAR 
mm 
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FREEKERARRRKERKEKEERREEERR EEE 


‚Anzahl, Carrys0,enn (E50) sonst 1; (AF,BC) 


ir » 
im TEIL 3 = ZEICHENEINOABE “ INPUT: CALL CLRINPUT ;Tastaturpuffer leeren 
in “ PUSH DE ;Register 


RKERKEREONEE ERROR PUSH HL ;retten 
j 1D 8,0 ;Anzahl=0 
INPUTL: ID DE,INFUTL ;Rücksprungadrease auf diese Zeile 


je) Für al PUSH DE jerzeugen 

; DNSCHOSE SER HE un CALL WAITLCHAR ;auf Zeichen von Tastatur warten 
OUT.CHAR BAU OBBSAH ;Akku ausgeben ID E,A  jeingegebenes Zeichen merken 

BNDMAR  EQU OFFIE ‚Stringendnarkierung S 2 ei ENTER) 

\ EXT OUT_STRL  ;Stringausgaberoutine (aus Teil 2) CP OFCH ;(ESC)? 

; IR 2,250 

je) Ein Zeichen von der Tastatur erwarten cp 127 ;(DEi)? 

; OrksZeichen; (AP) a >) 

3 jZeichen kleiner 32 (SPACE)? 

WATT.CHAR BU OBBOSI ‚da, ungültig =) 


‚Grafikseichen (ASCIT )126) =) 
maximale Zeichensahl 


; 
; 


--) Tastatur abfragen (wie INKEYS) hon erreichtt 
mn Cartyel, Asdeichen, sonst ‚le, unglltig =) 
GarzysO; (AP) E ‚jZeichen merken 
‚Pufferadresse plus 1 
READ_CHAR BAU OBBOgI Irre 


ID A,E ;AsZeichen 
JP OUTCHAR  ;ausgeben und zu INPUTL 


; 
ie) Tastaturpuffer Iceren ; 

; . d: (ar) jLetates Zeichen löschen 
; BEL: 

CLRLINPUT: . CALL READ_CHAR ;Zeichen solange lesen, 


JR C,CLRLINFUT j#e vorhanden. 


RET 
; ‚jAnsahl minus 1 
N 1D A,8_ ;Steuerzeichen )) Cursor nach 1inka(( 

=) Zeichen in Großbuchstaben wandeln CALL OUT_CHAR _;ausgeben 

3 T:Aszeichen; O:AsGroßbuchstabe; (AF) 1D A,16 ;Steuerzeichen: })Zeichen 1öschen(( 
h JP OUTCHAR jausgeben und zu INPUTL 
TO_UPPER: GP "a" jZelchen kleiner "a"? . 

RER Ha, =) ;Eingabe abbrechen 

CP "ar jgnößer "u" 2 SC: POP DE ;Rückkehradrease entfernen 


POP HL ;Pufferadresse zurlok 

POP DE ;Register restaurieren 

1D (HL),ENDNAR ;Zeile löschen, da Abbruch 
OR A ;Carıy=0 bei Abbruch 


Ber 
Zeichen in Kleinbuchstaben wandeln 3 
T:ArZeichen; O:Askleinbuchstabe; (AF) JElnanbi beenden 
ENTER: POP DE ;Rückkehradrease entfernen 
LONER: ML jZelahen kleiner "Ar 1D (HL) ENDMAR ;Zeilenende narkleren 
RT Ha, -) POP HL ;Zeiger auf Pufferanfang 
CP *2"41" "Hüeiohen größer "Zr? POP DE ;Register restaurieren 
RET.NO ;Ja, =) SC? jCarrysi, alles Ok, 
ADD 4,32 ‚Korrektur mt 
BET ; 
H =) Henüsteuerung, CASE-OF-Befehl 
j--) Alternativenabfrage 3 1:HL=Tabellenanfang; O:-; (AP,BC,DE,HL) j 
| 5 T:Hel Zeichen, Le2.Zeichen; O:AsBingabe,Carrys1sH,0sL; (AP) ‚Foraat der Tabelle: 1 Byte Befehl, 2 Byte Adn #00 ala Ende 
; ; 
AUTERABP:  OALL CLRLINPUR ;Testaturpuffer Ioeren CASE_OP MENU: CALL CLALINPUT ;Tastaturpuffer Jeoren 
Alt; CALL WAIT-CHAR ;auf Zeichen von der Tastatur warten (SL: PUSH HL jTabellenanfang merken 
CALL TO.UPPER jund in Großbuchstaben wandeln CALL WAIT.CHAR  ;Auf Zeichen warten und 
N ;Tante (Mr CALL TO_UPPER _;An Großbuchstaben wandeln. 
IR 2,412 An 1D B,A ;Befehl merken 
CPL ;Taste (Ir CASE2: LD A,(HL) iA«Befehl aus Tabelle 
IR 2,412 Mi INC HL. ;Adrense plus 1 
1D AT ;Fehlerton OR A _jTabellenende, Fehler? 
GALL OVT_CHAR ausgeben IM Z,FERER ide -) 
JR ALL 3) (PB jrichtigen Befehl gefunden? 
Aa: OPH jbei ersten Alternative IR ZPO ije, -) 
SOP  ;CarıyeL INC HL ;Zeiger auf nächsten Befehl 
RETZ IN HL 
OR A jsonat Carıy=0 JR CASE2 zund weiter -) 
BET FEHLER: POP HL jnoch einmal von neuen 
A JR CASEL ‚beginnen -) 
‚Als Beispiel eine Ja-Nein-(J/N-JAbfrage POUND: LD E,(HL) ;DE=Rout inenadresae 
MM: AD HL,OAMEH ;04AH=(d), OAEHS(N) INC HL 
CALL ALTERABP ;Abfrage ID 
ID HL,ITXT  jäiesen Text bei (} PUSH DE 
IR c, a RET  ;Routine aufrufen, muß mit RET enden 
AD HL,NTXT sdlesen Text bei (N) B 
NL: IP OUTLSTRL ‚ausgeben ‚Beispiel einer Tabelle 
; TARBEISPIEL: DB "A" 
JTT: DB “Ja, sehr schön, wir sind einer Neinung*, DU 08000 5b #800 Asciädunp 
ENDMAR. Da D* 
NIT; DB "Wein, wohl gegen alles, wie..." ENDHAR Di O8120H ;Ab #8120 Disassenbler 
N DB 0 jEnde der Tabelle 
; am 
;-) Inputroutine (BASIC-INPUT 1iegt bei jeden CRC-Typ anders) 
B 1:0=max Zeichenanzahl, HL-genügend großer Puffer; Listing 3. Routinen zur Zeicheneingabe via Tastatur 


146, ww.HomecomP 
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5x 
ir TEIL 4 - zumaıl 
in 


PRESSE Renee 


;--) Globale Definitionen: 


ENDNAR BRD OFFEL ‚Stringende-Markierung 
;Acı ausgeben 
EXT OUTHLDEZ ;HL dezimal anzeigen (aus Teil 1) 
EXT OUTSTRL ;Stringausgaberoutine (aus Teil 2) 


‚Multiplikation (ohne Vorzeichen) 
I:#,LeArgunente; O:Hl=Produkt; (AP,HL) 


PUSH BO ‚Register retten 
PUSH DE 

ID E,L ;DEsmweltes Argument 
120,0 

1D1,D ;1SB Ergebnis löschen 
1D B,8 ;Zähler 


MIOOP: ADD HL,HL ;Ergebnis nal 2 
‚IR NC,NOADD ;kein Bit in H gesetat -) 
ADD HL,DE ;DE zum Ergebnis addieren 


NOADD: DINZ MIOOP jweiter, wenn B größer 0 -) 
POP DE ;Register zurück 
POP BC. 
BET 


; 
je) 8-Bit-Division (ohne Vorzeichen) 
; I:H«Divident,LDivisor; O:H=Quotient,A=Rest; (AF,HL) 
DIVISS: PUSH BC ;Register retten 
XOR A ;Aklku und Carry löschen 
ID B,8 ;Zähler 
DLOOP: RL H ;Divident links schieben 
MA ;bertragungebit nach A 
SUB L_ ;Subtraktion versuchen 
JR NC,DADD ‚jwenn kein Unterlauf, -) 
ADD A,L ;sonst wiederherstellen 
DADD: CCR ;Carry=1 wenn Subtraktion erfolgreich 
DINZ DLOOP ‚weiter, wenn B größer 0 -) 
RUHR ‚letztes Bit nach H 
POP BC ;Register zurück 
Rat 


Pseudorufaliszahl holen (Wethode von Neunann) 
I:hsObergrenze; O:ksZufallszahl (AF) 
jLiegt die Obergenze beispielsweise bei 6, liefert die Routine 
;Zahlen aus der Menge (0,1,2,3,4,5) 
;Man ninnt, eine beliebige n-stellige Zahl und quadriert sie. 
;Nit der aus den mittleren n Ziffern entstehenden Zahl wird 
jdiese Prosedur nun wlederhelt. Die Startzahl muß ungleich Null sein! 


GET.AND: PUSH DE ;Register retten 
PUSH HL 
PUSH AR ;Obergrense retten 
ID A,R ;Refresh (Zufallszahl) 
IDL,A ;quadrieren 
ID H,A 
CALL NULTIES ;HleieL 
1D DE, (LASTAND) jLetzte Zufellssahl holen 
ADD HL,DE zund addieren 
DAR ;istH 
RA ;gleich 02 
ARNZ,GETL  jnein, -) 
Ic H 

GEM: DAL zistL 
RA ;gleich 07 


JR NZ,GET2 mein, =) 
mc L 
E12: 1D (LAST.AM),HL swieder merken 


POP AP ;Obergrenze 

IDL,A jnach L (Divisor) 

CALL DIVE  ;Modulo-Rest bestimmen 
POP HL ;Register zurück 

POP DE 


) Daten 
STAR: DU BOCH ;Speicher für RID-lert 


) RD-Test-Routine 
jDas Program erzeugt 60000 Zufellssehlen zwischen 0 und 9 und zählt, 


je oft jede Zahl vorkommt. Das Ergebnis wird dann mittels einiger 
‚Rostinen sus den vorigen Teilen angezeigt. 

ie Zufelissahlen weichen um zirka drei Prozent von statistischen 
ittel eb (sie erscheinen mit unterschiedlicher Häufigkeit). 

ieser Wert ist aber für Pseudozufalissahlen sehr gut! 


ZOESI: CAILERADAT ;Detenbereich löschen 
ID H,SIROL ;Eräffungsstring 
CALL OITSTRL ausgeben 
‚;Zufallszehlen erzeugen 
1D B0,60000 ;Ansahl RND-Yerte 
Or1: 1D 4,10 ‚Obergrenze 
CAILGELRD ;EMD-Wert holen 
AD A,A ;Zahl mal 2 
1D HL,OMTEN  jCrundadresse 
ADD A, ;ELHIA 
DıA 
u N, DL 
De a 
wor: I (m) sZänlene 
IR WZ,RD2 ;kein Übertrag -) 
IC HL 8 Zählen 
me (m) 
Mm2: DEC BC ;RID-Wert-Zähler minus 1 
1DA,B ;B0-0? 
ac 
IR NZ,IOOPL nein, weiter -) 
‚Häufigkeit anzeigen 
1D HL,STRO2 ;noch einen String raus. 


1D 8,10 ;Anzahl der Werte 

ID DE,DATEN ;Hl=Grundadresse der Daten 
1O0P2: CALLNUMER  jMunner ausgeben 

1D a,(D8) ;ID HL,(DE) 

INC DE ;Adresse plus 1 

DLA 

ID 4,(0E) 

IM IE 


CALL OUT_HL_DEZ ;Anzahl. ausgeben 
DZ 00°? ;10 mal ausführen 
E23 

;Unterprograns: Datenpool löschen 

ERADAT: LD HL,DATEN  ;Grundadresse 


1D DE, DATE 

1 86,19 ;änge 

1 (m),0 ;löschen mit Null 
1DIR 

Ber 


;Unterprogremm: Carrige Return und Nunser anzeigen 
KOMER: ID HL,STEOZ  ;Carrige Return 
CALL OUTSTRL 
1D 4,10 ;Arlummer 


1D #,0 ;Hl-Mumer 

DLAa 

CALL QUT_AL_DEZ ;Nammer ausgeben 
1D HL,STROL ;Doppelpunkt 
CALL OULSTRL  ;raus 


Ber 
j--) Strings: 
STROL: DB 4,1,14,0,15,1 ;MODE 1:PAPER O:PEN 1 


D5 BID-TEST - ",164,71986 by Stefan M. Aust”,13,10,10 
ich wuerfele!",13,ENDNAR 
DB 18, "Fertig. ”,13,10,10, "AUSWERTUNG: ",13, 10, ENDKAR 


5--) Ein kleines Würfelprogramm als Anwendungsbeispiel 

{Dieses Program zeigt einen Würfel an, den der programierte 
}Zufallgenerators ))wärfelt((. Vor der Anwendung nüssen Sie 

jmoch das WINDOW 1 an die Stelle setzen, wo der Würfel 

jerscheinen soll. PEN 1 und PAPER 1 bestimmen die Farbe. 

jDas Fenster zub eine Breite und länge von mindestens 3 Zeichen haben. 


‚Es werden einige ROM-Routinen benötigt: 


--) Texrt-Fenster auswählen (WINDOW SAP) 
I:Arneue Fensternumer; O:4=alte Fensternumer; (AF,HL) 


STRSEIEET  EQU GEEBLE 
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je) Text-Cursor setzen (LOCATE) 

3 ıleSpalte,LxZeile (relativ zur Pensterecke); 

j -Spalte,L»Zeile (absolut zum Bildschirm (Ecke ist 0,0)); (AP,HL) 
; 

SET.EURSOR OU OBB7H 

==) Testen, ob eine bestinnte Taste gedrückt wird (INKEY(n)) 

; T:AsTastennunn 

; OrC=CTRL/SHIFT-Flag, Z=0/1 Taste gedrückt/nicht (AF,C,HL) 
; 

TRST.KEY EQU OBBAEH 

; 

; 


j=-) Würfelprogranm 
WUERFEL: 1D A,1 ;Fenster 1 
CALL STRSELEOT janwählen 
PUSH AP ;und alte Nummer merken. 
WIOOP: CALL SHOWN jwünfeln und Würfel anseigen. 
1D 4,47 ;ist die Leertaste 
CALL TESTKEY gedrückt worden? 
‚IR NZ, WLOOP ja, weitermachen =) 
1D 8,10 ;noch zehnmal würfeln, danit Würfel ausrollt, 
1D HL,20 ‚Vergögerungszeit 
VLOOP: CALL SHOW_W irfeln und anzeigen 
PUSH HL 
ul: DEC HL 


POP HL ;wieder herstöllen 

ADD HL,HL, jund verdoppeln. 
DINZ VIOOP jueiter -) 

POP AR jaltes Fenster 

CALL STRLSELECT jwieder anwählen 
RED zund zurück, 


:Würfeln und WüFel anzeigen 
SEOW_V: PUSH BO ;Register retten 


1D A,6_;ein normaler Würfel hat sechs Seiten. 


ALL GET RD ;Zufallszehl ewischen 0 und 5 holen. 
ADD AyA zmit 

ADD AA 58 

ADD A,A ;multiplisieren 

ID DE,WTABLE  ;Grundadresse der Augen-Tabelle 

ADD A,E ;DE=DE+A ; 

ID E,A 

AR NG,SL ‚jkein LSB-Übertrag 


mc D 

St: IDHLLTBLE ;Grundadresse der LOCKTE-Tabelle 
1D 8,7 ;Es gibt 7 Positionen 

SLOOP: CALL PLOT jeinen Würfelpunkt (Auge) anzeigen 


DINZ SLOOP jweiter -) 

POP HL ;Register restaurieren 
POP BC 

BET 


je) Unterprogrann:Ein Würfelpunkt anzeigen 
PLOT_V: PUSH DE ;Augen-Tabellen-Zeiger retten 


1D D,(HL) DeSpalte 

INC HL 

ID E,(HL) jEszeile 

INC HL 

EX DBJHL ;H,1eSpalte Zeile, DE+LOOATE-Tabellen-Zeiger 


ALL SET_CURSOR jund Cursor setzen 

EX DE, HL, 5HLSLOCHTE-Tabellen-Zeiger 
POP DE ;Augen-Tabellen-Zeiger surdck 

1D A,(DE) jAsZeich Augen-Tabellle 
Inc DE 

ALL, OVT_CHAR ;Zeichen ausgeben 

BET 


) Datenpool: 


-) LOCATE-Tabelle: 


5 :123: Folgende Positionen beinhaltet 
5 54 : die Tabelle in der Reihenfolge 
5 1567: der Zahlen. 

RLTABLE: 


DB 1,1, 2,1, 3,1, 2,2, 1,3, 2,3, 3,3 


) Augen-Tabelle: 

der Reihenfolge der Zahlen gibt es für jedes Wüfelzeichen 
seine Komination aus Space und einen kleinen Kreis (CHR$(231)) 
1ER EQU 32 ;Space 

VOLL EQU 231 ;kleiner ausgefüllter Kreis 


WTABLE: DB LERR,LERR, LEER, VOLL,LEER, LEER, LEER, O, 
DB VOLL,LEER,LEER, LEER, LEER, LEER, VOLL, 
DE LEER, LEER, VOLL,VOLL,VOLL, LEER, LEFR,O 
DS VOLL,LEER, VOLL, LEER, VOLL, LEBR, VOLL,O 
DE VOLL,LEER, TOLL, VOLL,VOLL, LEER, VOLL,O 
DE VOLL, VOLL, VOLL, LEER, VOLL, VOLL, VOLL,O 
2 
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(Schluß) 


in 

im TEIL 5 = WINDOW-OPERATTONEN 

ie 
IRRE 


Globale Definitionen 


STRSELEOT  EQU OBBBAH 


;Fenster selektieren (siehe Teil 4) 
Neue RON-Routinen: 
-) HL als Bildsohimpeiger ein Byte erhöhen 


N T:HleZeiger; O:HloZeigere1; (AF,HL) 
‚(der komplisierte Aufbau des Bildschirms wird berücksichtigt) 


NEXT.BYTE 
; 

je) HL als Bildschimseiger ein Byte ernfedrigen 
n T:HleZeiger; O:HL=Zeiger-1; (AF,HL) 


RU OB020H 


PREV_BYTE AQU OBC23H 


je) HL als Bildschirnzeiger eine Pixelseile erhöhen 
; I:hlsZeiger; O:HL=Zeiger eine Zeile tiefer; (AF,HL) 


NEUEN EQU OBca6H 


-) HL als Bildschimpeiger eine Pixelseile erniedrigen 
T:Hl=Zeiger; O:HL=Zeiger eine Zeile höher; (AF,HL) 


REVLINE EQU OBC29H 


;--) LOCMTE-Position im Bildschimnfenster In Bildschirnadregse unrechnen 


FRRRKERRRKEREKEERERRRR 


I:HeSpalte,L-Zeile; O:HlsZeiger,BeZeiohenlänge; (AF,B,HL) 
EQU OBCIAH 


jr-) WINDON-Eokkoordinaten holen 

; ; O:sSpalte links, IsZeile oben, 

B D-Spalte rechts, EsZeile unten, (Alle Werte zwischen 0 und 79) 
; Carıy=0sHardvarescrolling, CarryslsSoftuarenerolling 

; (AR,DE KL) 
[; 


IETWINDON EAU OBBEOH 


5) WINDOW-OPERATIONEN 

;MiS WINDOY-Operationen sind Operationen geneint, die auf bentinnte 
‚Bildschirabereiche zugreifen und diese verändern. Die Veränderung 
beschränkt sich dabei nur auf den gewählten Bereich, 

‚Dieser Bereich wird durch H,L und D,E als Rokpunkte ))oben-links(( und 
i))unten-rechts)) definiert. Die Eokpunkte Liegen awischen 0 und 79 und 
;eind modusabhängig. BC enthält den Zusatzparaneter. 

;In einer höheren Stufe können Sie die Routinen auch von Basic aus als 
serweiterten CALL-Befehl aufrufen. Dazu welter unten mehr. 

;Da die Routinen sienlich ähnlich sind -- sie bestehen im wesentlichen 
jaus zwei verschachtelten Schleifen --;ist nur die erste ausführlich kommentiert. 


3 I:HL+Zeiger Bildschirm, DEzZeiger Puffer, BeLänge; 
; O:Hl=eine Bildschirnseile tiefer, DE<DE+Länge; (AF,DE,HL) 
TO_BUFFER: PUSH BC ;Schleifenzähler retten 
PUSH HL ;Bildschirmzeiger retten 
BL00P: LD A,(HL) sByte aus Bildschirm. 
1D (DE),A ‚An Puffer kopieren 
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INC DE ;Pufferzeiger plus 1 
(CALL NEKI_BITE ;Bildschirazeiger plus 1 
DINZ BLOOP / zweiter bis Länge 0 

POP HL ;Bildschirnzeiger 

POP BO ;Schleifenzähler zurück 

JP NEXTLINE ;jeine Zeile tiefer und =) 


Unterprogramm: Zeile aus Puffer in Bildschira kopieren 
I:Hl=Zeiger Bildschimn, DE+Zeiger Puffer, B-Länge; 
; O:Hl=eine Bildschirazeile tiefer,DE=DE+länge; (AF,DE,AL) 
TO.SOREEN: PUSH BO jSchleifenzähler retten 
PUSH HL ;Bildschirnzeiger retten 
sıoor: 1D A,(DE) ‚jByte aus Bildschira 
ID (#t),A ;in Puffer kopieren 
ING DE ;Pufferzeiger plus 1 
CALL NEXT.BYTE ;Bildschirmzeiger plus 1 
DINZ SLOOP ter bis Länge 0 
POP HL ;Bildschimneiger 
POP BC ;Schleifenzähler zurück 
JP NEKTLINE jeine Zeile tiefer und =) 


Fenster in Speicher ab BO kopieren 
I:H,L, D,EsEckpunkte, B(sStartadresse Pensterpuffer; 
0:DE»Pufferendadresse+l; (AF,BC,DE,HL) 


IAVENINDON: CALL PAR ;Registen laden (siehe unten) 
RET NZ jEnde wenn Fehler aufgetreten =) 

WSAYL: CALL TO.BUFFER ;Zeile in Puffer kopieren 

DECO jalle Zeilen 

IR NZ,WSAVL  jabarbeiten 

[2 


Speicher ab BO in Fenster kopieren 
L, D,EsEokpunkte, BCsStartsäresse Fensterpuffer; 
iaPufferendndresse+l; (AP,BO,DE,HL) 


ALL PARAM 
RET NZ bei Fehler zurück =) 

WIOML: ALL TO.SOREEN ;Zeile auf Bildschirm kopieren 
DRe C 
JR NZ,WIORL 
RET 


j-+)Speicherinhalt und Fensterinhalt austauschen 
L, D,EsEckpunkte, BC=Startadresse Fensterpuffen; 
; 0:DE»Pufferadresserl; (AF,BC,DE,HL) 


SWAP-WINDOV:  CALL PARAN 

RET NZ jbei Fehler zurück ») 
WSNPL: PUSH BC 

PUSH RL, 
WSWP2: 1D C,(HL) 

1D-A,(DE) jmun Byte aus Puffer 

1D (AL),A jin Bildschirm schreiben 

1D A,C zund © (das Byte aus dem Bildachirn) 

1D (DE),A ‚in den Puffer schreiben 

ING DE 

CALL NEXT_BYTE 

DINZ, VSWP2 

POP HL 

GALL, MEXT_LINE 

POP BC 

Dec C 

JR NZ,HSWPL 

Ber 


j-+) Fenster mit einer Farbe füllen 
5 Ill, DyEsEckpunkte, CeFüllferbe; 


(Ar, B0,DE,EL) 


PILLCWINDOW: ALL PARAN 
RET NZ ;bei Fehler zurück =) 
WEIL: PUSH BO 
PUSH HL 
WRILZ: ID (HL),E 
CALL NEKT_BITE 
DINZ WEIL 
POP HL 
(ALL NEKTLINE 
POP BO. 
DEOC 
JR NZ,WFILL 
BET 


‚Fenster mit E füllen (PARAM kopiert C nach E) 


;--) Fenster invertieren, so können einige Mister erzeugt werden 
I:H,L, D,E-Eckpunkte, BC=Invertierword (B=Pen,C=Paper). 
0:-5 (AF,BO,DE,EL) 


ONVERT_WINDON: CALL PARAM 
BET NZ ;bei Fehler zurück =) 
ID A,E ;Invertierbyte erzeugen 


RED ;umd 
IDE,A jnach £ Inden 
WOWI: Pusa BC 


jByte aus Fenster 
MR E ;invertieren 

ID (EI),A zund wieder schreiben 
CALL NERLaYTE 

DINz vIw2 

Por HL 

CALL MEXTLINE 

Pop 3C 

Der c 

IR Z,uIwL 

sr 


;--) Unterprograma: Paraneter berechnen 
}Wie oben ungesprochen, kann der Aufruf aus Basic auf zwei Arten 
jerfolgen: 

jCALL adresse, fensternummer, paraneter 

5 oder 

jCALL adresse,x1,22,yl,y2,paraneter 

jwünschen Sie das, müssen Sie BASIC.PARAN anstelle 

;CALE_PARAN verwenden. Sonst {st nichts zu beachten, 


PARAN EU BASIC_PARAN 


--) Unterprograms: Bildschirmsdresse aus Zokpunkten berechnen 
T:E,L, D,EsZekpunkte, BO-Paraneter; 
O:Hl=Bildschirnsdresse, BeBreite in Byte,Cslänge In Pixelzeilen 
DEsParaneter, ZeOsFehler, Zeis0k; (AF,BO,DE,HL) 


ALC_PARAN: PUSH BO ;Paraneter auf Stack 
IR CALO zweiter -) 


Parazeterberechnung bei Basio-Aufruf 

I:AsParaneteranzahl, IX=Pointer "drauf; 
‚HleBfläschirnadresse,BeBreite In Byte,CsLänge ind Pixelzeilen 
DE«Paraneter, Z«O«fehler, Z«1«Ok; (AF,BC,DE,HL) 


AASICARMN: CP 2 ;lwel Paranetert 
JR NZ,DIREKT mein, direkte Eingabe 
PUSä DE ;Paraneter retten 
1D A,(1%2) 

ALL STRLSELZET 

1D C,A ;alte Fensternunner merken 
CALL. GET„WINDOW 

DAC 

FUSH HL jaltes Fenster wählen 
CALL STR.SELECT 

FOP HL 


IR CALC jweiter -) 
@ 5 ;Mnf Paraneter? 

RET NZ jnein, Fehler =) 

PUSH DE jParaneter retten 
1DH,(IX8) ;H,L=Ecke Links-oben 


DIREKT: 


ID L,(1X4) 

1 D, (116) »D,EsEcke rechts-unten 
1D £,(IXe2) 

DECH  ;Korrektur ninus 1 

DE L 

Dec D 

DEE 


CALC: CALL BOXPOS ;Berechnungsroutine 
POP DE ;Paraneter nach DE 
KR A  ;1=0k 

;Berechnung (ähnelt der Betriebssystenroutine des PO 464 bei 0B95hex) 

BOXPOS: LD A,E juntere Grenze 

‚jainus obere Grenze 

‚plus 1 

zund mal 8 


;Eslänge in Pixelzeilen 
,D_ ;rechte Grenze 
R ;jminus Linke Grenze 
A plus 1 
1DD,A ;jergibt Anzahl der Zeichen pro Zeile 
CALL CHAR_POS  ;Bildschiraadresse berechnen 
TOR A ;löschen 
SCKL: ADD A,D ;Zeichen pro Zeile mel Byte pro Zeichen 
DZ BOIL ;äsbyte pro Zeile 
ID3,A jnach B 
1D C,2 ;C=länge in Pixelzeilen 
= 


KERSEHEE 


Listing 5. Routinen für Window-Operationen 


Die drei Befehle ENV, ENT und 
SOUND zur Tonerzeugung sind 
jedem CPC-Besitzer geläufig. In- 
formationen über RELEASE, ON 
SQ GOSUB und SQ sind jedoch 
nur wenig verbreitet. Lernen Sie, 
das gesamte Spektrum dieser 
Befehle anzuwenden, werden 
Sie zum Sound-Profi! 


iele Anwender bestaunen re- 
V spektvoll die Soundeffekte von 

professionellen Spielen auf 
dem CPC und glauben, daß dieser 
Sound wohl nur mit Maschinensprache- 
Routinen zustande kommen kann. 

Die Programmierung in Basic er- 
scheint angesichts der Handvoll Be- 
fehle schwierig zu sein. Rein rechne- 
risch können Sie mit diesen drei Befeh- 
len jedoch fast 2,5x 10°* Ton- und Ge- 
räuschfolgen erzeugen. Und die Praxis 
zeigt, daß diese Befehle, wenn der An- 
wender sie voll ausreizt, einiges aus 
seinem Gerät herausholen 

Die drei CPC-Modelle von Schneider 
sind alle mit dem Tongeneratorbaustein 
AY-3-8912 ausgerüstet. Dieser Bau- 
stein verfügt über drei Kanäle zur Ton- 
ausgabe (A, B und C) und über einen 
Kanal für das Rauschen. Die Ausgabe 
von Tönen und Rauschen steuert in 
Basic primär der SOUND-Befehl. Die 
Befehle ENV und ENT bestimmenledig- 
lich Lautstärken- sowie Frequenzhüll- 
kurve und kommen je nach Bedarf zum 
Einsatz. 

Töne erzeugen Sie, indem der Para- 
meter »Frequenzteiler«e des SOUND- 
Befehls gesetzt wird; das Rauschen 
wird über den letzten Parameter des 
SOUND-Befehls »Rauschen« gesteu- 
ert. Wenn dieser Wert ungleich Null ist, 
entsteht ein sogenanntes weißes Rau- 
schen, das sich aus einer Mischung 
aller möglichen Frequenzen zusam- 
mensetzt. Eine parallele Ausgabe von 
Tönen und Rauschen erfolgt, wenn 
beide Parameter, »Frequenzteiler« und 
»Rauschen«, gleichzeitig gesetzt sind. 

Weil für die Tonausgabe drei ge- 
trennte Kanäle zur Verfügung stehen, 
lassen sich durch den Anschluß einer 
Stereoanlage an den Computer auch 
Stereoeffekte erzielen. 

Beispielsweise können Sie bei einer 
zweistimmigen Melodie die erste Stim- 
me auf den linken Lautsprecher (Kanal 
A) und die zweite Stimme auf denrech- 
ten Lautsprecher (Kanal C) legen. 

Für die Ausgabe des Rauschens 
steht dagegen nur ein Kanal bereit, was 
eine Stereoausgabe von Rauschen ver- 
hindert. Rauschen kann es bei einer 
Stereoanlage also nur auf einem be- 


Schneiders 


stimmten Lautsprecher (Kanal A oder 
C), oder auf beiden gleichzeitig (Kanal 
B), aber ohne Stereoeffekt. 

Der Befehl SOUND ist das wichtigste 
Kommando zur Tonausgabe und kann 
bis zu sieben Parameter verarbeiten. 
Tabelle 1 führt die einzelnen Parameter 
in der Reihenfolge, in der sie im 
SOUND-Befehl vorkommen, auf und 
gibt den jeweiligen Wertebereich an. 


Der Wertebereich von »Kanalstatus« 
beträgt genau 1 Byte. Jedes Bit davon 
hateine besondere Bedeutung. Tabelle 
2 entnehmen Sie die Bedeutungen die- 
serBits und den entsprechenden Wert. 

Wenn Sie eine bestimmte Funktion 
wünschen, geben Sie für »Kanalstatus« 
lediglich den Wert der Funktion an. Die 
Programmierung von einfachen Ton- 
und Geräuschfolgen setzt hier die 
Angabe des Kanals, also einen Wert 
von eins, zwei oder vier voraus. Wollen 
Sie mehr Aufwand bei der Tonausgabe 
betreiben (zum Beispiel mehrstimmige 
Melodien oder vorprogrammierte 


Geräuschfolgen), so müssen Sie auch 
auf die restlichen Bits zurückgreifen. 


Der Wert des Parameters »Frequenz- 
teiler« bestimmt die Höhe des auszuge- 
benden Tons. Die Frequenz dieses 
Tons berechnen Sie, indem Sie 62500 
(nicht 125000, wie im Handbuch ange- 
geben) durch »Frequenzteiler« dividie- 
ren. Da der Betrag von »Frequenzteiler« 
nur im Bereich von O bis 4095 liegen 
darf, macht dies erst Frequenzen ab 15 
Hz möglich. Dies ist aber nicht weiter 
tragisch, denn das Frequenzspektrum, 
das ein Mensch wahrnehmen kann, 
beginnt erst bei 16 Hz. Außerdem ge- 
ben selbst teure Lautsprecher Fre- 
quenzen unter 50 Hertz nur ungenü- 
gend wieder. 

Die Programmierung von Melodien 
mit SOUND gestaltetsich rechtaufwen- 
dig. Zuerst muß die Frequenz von jeder 
zu spielenden Note ermittelt und aus- 
gehend von dieser Frequenz der Wert 
für »Frequenzteiler« berechnet werden. 
Folgende Formel vereinfacht das Ver- 
fahren wesentlich: 
frequenzteiler= 
62500/32, 7032x2( (note-1)/12+oktave-1) 

Wenn Sie in diese Formel für »Okta- 
ve« die Nummer der gewünschten Ok- 
tave ausgehend von der Kontra-Oktave, 
und für »Note« die Nummer des zu spie- 
lenden Halbtons innerhalb dieser Okta- 


150... MHOMECOMPUTE 


große Töne 


ve einsetzen, können Sie das Ergebnis 
direkt als Wert für »Frequenzteiler« im 
SOUND-Befehl verwenden. Tabelle 3 
zeigt in einer Übersicht die Werte für 
»Oktave« und »Note« und deren Bedeu- 
tung. 

Der Parameter »Dauer« bestimmt die 
Länge des auszugebenden Tons oder 
Rauschens. Ist der Wert positiv, stehter 
für die Länge in Hundertstelsekunden. 
Eine negative Zahl gibt durch ihren Ab- 
solutwert an, wie oft die Lautstärken- 
hüllkurve des zugehörigen ENV-Be- 
fehls wiederholt wird. 

Je größer der Wert des Parameters 


»Lautstärke« ist, desto lauter ist auch 
der Ton. Ohne Lautstärkenhüllkurve 
entspricht der Wertebereich von Obis 7 
dem Bereich von 8 bis 15. Mit Lautstär- 
kenhüllkurve können Sie jedoch feiner 
differenzieren, da dann für das Lautstär- 
kenspektrum alle 16 Werte zur Verfü- 
gung stehen. 

Der Wert von »Lautstärkenhüllkurven- 
nummer« gibt an, welche ENV-Zuwei- 
sung für den SOUND-Befehl gültig ist. 
Dementsprechend weist der Wert 
von »Frequenzhüllkurvennummer« dem 
SOUND-Befehl einen bestimmten ENT- 
Befehl zu. Der erste Parameter in einem 


Wertebereich 


Parameter 

Kanalstatus (0 bis 255) 
Frequenzteiler (0 bis 4095) 

Dauer (-32768 bis 32767) 
Lautstärke (0 bis 15) 
Lautstärkenhüllkurvennummer (0 bis 15) 
Frequenzhüllkurvennummer (O bis 15) 

Rauschen (O bis 31) 


Tabelle 1. Vielfalt im SOUND-Befehl gewährleisten die Parameter 
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ENV- oder ENT-Befehl steht für die 
Nummer der jeweiligen Hüllkurve. 

Der letzte Parameter des SOUND- 
Befehls gibt die Höhe des Rauschens 
an. Je größer dieser Wert ist, desto 
dumpfer ist das Rauschen. Ein Wert 
gleich Null erzeugt kein Rauschen. 


Sirenen und Raketen 


Für sämtliche Parameter gilt, daß die 
Werte ganzzahlig und im angegebenen 
Bereich liegen müssen. Nicht ganzzah- 
lige Werte rundet der Interpreter auto- 
matisch zur nächstliegenden ganzen 
Zahl auf oder ab. Beträgt der Wert eines 
Parameters Null, so dürfen Sie ihn weg- 
lassen und stattdessen nur ein Komma 
setzen. Am Ende eines SOUND-Be- 
fehls können Sie auf eine Angabe voll- 
ständig verzichten. Zum Beispiel gibt 
der Befehl 
SOUND 1,142,1000,15,,,1 
über den Kanal 1 den Kammerton A mit 
einer Frequenz von 440 Hertz eine 
Sekunde lang mit maximaler Lautstärke 
aus. Parallel dazu wird ein helles Rau- 
schen erzeugt. 

Nach soviel Theorie zunächst ein 
paar praktische Beispiele. Listing 1 er- 
zeugt das Heulen einer Sirene. Den an- 
und abschwellenden Effekt von Laut- 
stärke und Frequenz bewirken entspre- 
chend definierte Hüllkurven. 

Ein Rauschen, dessen Eigenschaf- 
ten eine Schleife verändert, simuliert in 
Listing 2 einen Raketenstart. Der dritte 
Parameter im SOUND-Befehlrregelthier 
die »Größe« der Rakete. 

Ein weiteres interessantes Beispiel 
zeigt Listing 3. Hier ertönt ein Martins- 
horn, das dadurch zustande kommt, 
daß zwei Töne miteinander abwech- 
seln. Diese Töne werden über verschie- 
dene Kanäle ausgegeben, so daß über 
eine Stereoanlage ein reizvoller Effekt 
entsteht. Die Befehlsfolge 
WHILE SQ(kanal) >127:WEND 
wird in diesem Beispiel zweimal ange- 
wendet. Diese Schleife hat die Aufgabe, 
zu verhindern, daß die beiden Töne 
gleichzeitig ausgegeben werden. 

Sollen zwei Töne über den gleichen 
Kanal laufen, gibt es keine Probleme, 
denn der Computer kann die beiden 
Töne nur nacheinander erzeugen. Wol- 
len Sie dagegen die Töne über ver- 
schiedene Kanäle leiten, so erfolgt die 
Tonausgabe ohne Vorsichtsmaßnah- 
men fast parallel. Die Töne sind nur um 
die winzige Zeitspanne versetzt, die der 
Interpreter benötigt, um einen SOUND- 
Befehl zu bearbeiten. Eine parallele 
Ausgabe der beiden Töne istim Beispiel 
des Martinshorns jedoch nicht er- 
wünscht. Deswegen wird hinter jeden 
SOUND-Befehl eine WHILE-WEND- 
Schleife eingefügt, die über die SQ- 
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Bit Wert deutung 
Bit 0 1 Tonausgabe über Kanal A 
Bit 1 2 Tonausgabe über Kanal B 
Bit 2 4 Tonausgabe über Kanal C 
Bits & Synchronisation mit Kanal A 
Bit | 16 Synchronisation mit Kanal B) 
Bit 5 32 Synchronisation mit Kanal C' 
Bit 6 64 Tonausgabe wird durch RELEASE-Befehl gestartet 
| Bitz 128 Tonausgabe wird sofort ausgeführt (Priorität) 


Tabelle 2. Der Kanalstatus gibt sein Geheimnis preis 


Funktion (näheres dazu später noch) 
den Status des Tonkanals abfragt. Erst 
wenn der Kanal inaktiv ist, das heißt das 
oberste Bit (entspricht dem dezimalen 
Wert 128) zurückgesetzt ist, bricht die 
Schleife ab und der nächste Befehl wird 
ausgeführt. 

In den drei aufgeführten Beispielen 
trafen Sie teilweise bereits auf Lautstär- 
ken- und Frequenzhüllkurven. Jetzt er- 
fahren Sie, auf welche Weise Sie diese 
Hüllkurven verwenden können und wel- 
che Effekte sich erzielen lassen. 


Je lauter, je lieber 


Ohne Lautstärkenhüllkurve gibt der 
Computer über den SOUND-Befehl nur 
Töne und Rauschen mit konstanter 
Lautstärke aus. Der Befehl ENV öffnet 
nun die Möglichkeit, die Lautstärke 
während der Ausgabe zu variieren, das 
heißt, den Ton oder das Rauschen in 
definierter Zeit bis zu einer bestimmten 
Lautstärke an- und abschwellen zu las- 
sen. 

An den ENV-Befehl können Sie bis zu 
16 Parameter übergeben. Der erste 
Parameter bestimmt die Nummer der 
Hüllkurve, und die weiteren Werte for- 
men jeweils als Dreiergruppen einzelne 
Ausschnitte der Hüllkurve. Es folgt eine 
Aufstellung von Parametern und Werte- 
bereichen: 


Hüllkurvennummer (1 bis 15) 


1. Schrittzahl (0 bis 127) 
1. Schrittgröße (-128 bis 127) 
1. Schrittzeit (0 bis 255) 
5. Schrittzahl (0 bis 127) 
5. Schrittgröße (-128 bis 127) 
5. Schrittzeit (0 bis 255) 


Die Funktion der einzelnen Parameter 
geht schon aus deren Bezeichnung 
hervor. Die Schrittgröße 1 ist mit der 
Schrittgröße 1 desSOUND-Parameters 
»Lautstärke« identisch. Die Schrittzeit 
geben Sie wie beim Parameter »Dauer« 
in Hundertstelsekunden an. Den Start- 
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wert für die Lautstärkenhüllkurve 
bestimmt der SOUND-Befehl. Wenn die 
Lautstärke also mit Null beginnen soll, 
muß auch im zugehörigen SOUND- 
Befehl eine Null für »Lautstärke« einge- 
tragen sein. 

Da die Lautstärke der Hüllkurve bei 
großen Schritten oder hoher Schrittzahl 
leicht den Maximalwert von 15 über- 
schreitet, gilt: 
lautstärke=lautstärke MOD 16 

Die Lautstärke 16 entspricht der Laut- 
stärke 0, 17 entspricht 1 und so weiter. 

Bild 1 zeigt als praktisches Beispiel in 
einer grafischen Darstellung die Hüll- 
kurve zu dem Befehl 
ENV 1,15,1,1,1,0,40,15,-1,3 

Der Befehl definiert eine Lautstärken- 
hüllkurve, die aus drei Abschnitten be- 
steht. Im ersten Abschnitt wird die Laut- 
stärke in Einzelschritten zu je 1 Hun- 
dertstelsekunde auf den Maximalwert 
gesteigert. Der zweite Abschnitt hält 
die Lautstärke über 0,4 Sekunden kon- 
stant, und im dritten Abschnitt wird sie 
wieder in Einzelschritten zu je 5 Hun- 
dertstelsekunden auf Null verringert. 
Die gesamte Hüllkurve hat die Dauer 
von 1 Sekunde. Sie bewirkt bei der 
Tonausgabe, daß der Ton nicht zu ab- 
rupt ansetzt und weich ausklingt. 


Steht für den Parameter »Dauer« im 
SOUND-Befehl ein negativer Wert, so 
wiederholt sich die Lautstärkenhüllkur- 
ve entsprechend oft. Eine Hüllkurve, 
die eine gleichmäßig an- und abschwel- 
lende Lautstärke definiert, erzeugt auf 
diese Weise schöne Vibratoeffekte. 

Ein SOUND-Befehl ohne Frequenz- 
hüllkurve kann nur einen Ton mit kon- 
stanter Frequenz, das heißt statischer 
Tonhöhe, zustande bringen. Oft ist je- 
doch eine geringfügige Frequenz- 
schwankung erwünscht, damit der Ton 
lebendiger klingt. Eine stärkere Fre- 
quenzschwankung ist nötig, um Sire- 
neneffekte zu simulieren. Für diese 
Zwecke können Sie mit dem Befehl 
ENT über 16 Parameter eine Frequenz- 
hüllkurve definieren. 


ENTfesselte 
Frequenzen 


Der erste Parameter bestimmt die 
Nummer der Hüllkurve, und die weite- 
ren Werte formen wieder jeweils als 
Dreiergruppen (ähnlich wie bei der 
Lautstärkenhüllkurve) einzelne Aus- 
schnitte der Hüllkurve. Im folgenden 
eine Übersicht über Parameter und 
Wertebereiche: 


Hüllkurvennummer (-15 bis 15) 


1. Schrittzahl (0 bis 239) 
1. Schrittgröße (-128 bis 127) 
1. Schrittzeit (0 bis 255) 
5. Schrittzahl (0 bis 239) 
5. Schrittgröße (-128 bis 127) 
5. Schrittzeit (0 bis 255) 


Die Hüllkurvennummer der Fre- 
quenzhüllkurve kann im ENT-Befehl ein 
negatives Vorzeichen erhalten. Dieses 


Wert Oktave Ton 
1 Kontra-Oktave B 
2 große Oktave cis 
E kleine Oktave d 
4 eingestrichene Oktave dis 
5 zweigestrichene Oktave e 
& dreigestrichene Oktave f 
7 viergestrichene Oktave fis 
8 fünfgestrichene Oktave q 
E is 
10 a 
1 als 
12 h 


Tabelle 3. Allen Hobby-Komponisten erleichtert diese Tabelle das Leben 


Vorzeichen gibtan, daß die Hüllkurve so 
oft wiederholt wird, bis der Ton des 
SOUND-Befehls beendet ist, Erhält die 
Nummer der Hüllkurve kein negatives 
Vorzeichen, so wird sie nur ein einziges 
Mal erzeugt. 

Die Schrittgröße 1 der Hüllkurve ent- 
spricht hier einem Einzelschritt des 
SOUND-Parameters »Frequenzteiler«. 
Die Schrittzeit muß wie beim Parameter 
»Dauer« in Hundertstelsekunden ange- 
geben werden. Den Ausgangswert für 
die Frequenzhüllkurve bestimmt »Fre- 
quenzteiler«. Eine positive Schrittweite 
der Frequenzhüllkurve verringert die 
Frequenz des Tons (der Ton wird tiefer), 
und eine negative Schrittweite läßt den 
Ton höher klingen. 


Ein Beispiel für eine Frequenzhüll- 
kurve zeigt Bild 2. Es zeigt den Befehl 
ENT 1,20,-5,3,1,0,80,20,5,3 

Der Befehl definiert eine Frequenz- 
hüllkurve, die aus drei Abschnitten be- 
steht. Im ersten Abschnitt wird »Fre- 
quenzteiler«in 20 Schritten zuje 3Hun- 
dertstelsekunden um 5 verringert. Der 
zweite Abschnitt hält die Frequenz für 
die Dauer von 0,8 Sekunden konstant, 
und im dritten Abschnitt wird »Fre- 
quenzteiler« wieder auf den Ausgangs- 
wert gebracht. Bei der Wahl des Wertes 
für »Frequenzteiler« müssen Sie beach- 
ten, daß der Wert auch bei maximaler 
Verringerung durch die Hüllkurve (in 
diesem Fall 100) nicht negativ wird. 

Nachdem nun die drei Basic-Befehle 
SOUND, ENV und ENT ausführlich vor- 
gestellt wurden, ist es an der Zeit, daß 
die Spezialeffekte, die Sie durch Pro- 
grammierung des Parameters »Kanal- 
statuse und durch die Befehle RE- 
LEASE, ON SQ GOSUB sowie SQ 
erzielen können, näher erläutert wer- 
den. 


Der wichtigste Effekt bei der Tonaus- 
gabe ist das mehrstimmige Spielen von 
Melodien. Die Methode dazu läßt sich 
auf einfache Weise an einem prakti- 
schen Beispiel zeigen. Listing 4 ist ein 
Programm, das den Kanon »Bruder 
Jakob« dreistimmig spielt. 

Ab Zeile 200 sind die Frequenzen 
der Töne als Ton und Oktave abgelegt. 
Diese Werte werden direkt von der 
obengenannten Formel zur Berech- 
nung der Frequenzteiler verwendet. 
Steht ein Wertepaar zwei- oder viermal 
hintereinander, so bedeutet dies, daß 
der Ton doppeltoder viermal so lang wie 
ein einfacher Ton gespielt wird. 

Zeile 10 definiert eine eindimensio- 
nale Matrix mit 72 Feldern. 72 Noten 
erfordert das Programm, um die Melo- 
die »Bruder Jakob« zu spielen. Die 
Schleife von Zeile 20 bis 50 liest die 72 
Wertepaare aus den DATA-Zeilen ein, 
wandelt sie über die Formel in Fre- 
quenzteiler um und legt sie in der Matrix 
ab. 

Ab Programmzeile 60 beginnt die 
eigentliche Tonausgabe. Die Schleife 
von Zeile 60 bis 80 gibt die ersten vier 
Doppeltöne einstimmig über Kanal A 
aus. Dann kommt der Clou. Die fol- 
gende Schleife spielt die nächsten vier 
Doppeltöne zweistimmig über Kanal A 
und B. Die Parallelausgabe der Töne 
wird über die Synchronisation der bei- 
den Kanäle miteinander erzielt. 

Diesen Vorgang steuert der Parame- 
ter »Kanalstatus«. Wenn Sie Kanal A mit 
B synchronisieren wollen, setzen Sie 
das Bit 4 von »Kanalstatus«, das heißt, 
»Kanalstatus« muß den dezimalen Wert 
16 erhalten. Auch die Synchronisation 
von Kanal B mit A ist notwendig. Hierzu 
wird dem »Kanalstatus« von Kanal B der 
Wert 8 (Bit 3) zugewiesen. 

Die Werte der beiden Parameter lau- 
‚ten im Programm jedoch weder 16noch 
8. Dies kommt daher, daß »Kanalstatus« 


‚zusätzlich die Nummer des Kanals 


angeben muß. Wollen Sie »Kanalstatus« 


Sekunden 


Bild 1. Treppensteigen 
für die Lautstärke 


für mehrere Funktionen einsetzen, so 
addieren Sie die Werte der entspre- 
chenden Funktionen und geben die 
Summe als »Kanalstatus« an. In diesem 
Fall bewirkt der Wert 17 (1416) eine 
Ausgabe über Kanal A synchron zu B, 
und 10 (2+8) einen Ton über B parallel 
zu A. 

Die Verschiebung zwischen den bei- 
den Melodien erreichen Sie, indem Sie 
die Laufvariable »Lauf« der zweiten 
Stimme um 8 erniedrigen. Dies hat zur 
Folge, daß die zweite Stimme der ersten 
um vier Doppeltöne nachläuft. 

Jetzt gestaltet sich alles weitere ganz 
einfach. In der Schleife von Zeile 190 
bis 170 wird der Rest der Melodie über 
alle drei Kanäle parallel ausgegeben. 
Jeder Kanal ist über »Kanalstatus« mit 
den anderen beiden Kanälen synchro- 
nisiert, und die dritte Stimme um wei- 
tere vier Doppeltöne von der zweiten 
Stimme verschoben. 


Warteschlange 
stillgestanden! 


Der Befehl RELEASE dient zum Star- 
ten von gespeicherten Tönen. Wenn 
der Interpreter einen SOUND-Befehl 
bearbeitet, dessen Parameter »Kanal- 
status« ein gesetztes Bit 6 enthält, 
weist dies das Betriebssystem an, den 
Ton nicht zu spielen, sondern in einer 
Warteschlange zwischenzuspeichern 
und auf einen RELEASE-Befehl zu war- 
ten. Bis zu vier Töne pro Kanal können 
‚Sie auf diese Weise speichern. Ein fünf- 
ter Ton läßt sich zugleich ausführen. 

Die Benutzung des Befehls RE- 
LEASE istsehr einfach und wird am Bei- 
spiel von Listing 5 verdeutlicht. Hier 
wird zu Beginn des Programms viermal 
ein SOUND-Befehl über Kanal A ausge- 
geben. Zu hören ist allerdings nichts, 
weil das Bit 6 von »Kanalstatus« gesetzt 
ist. 


A HomecomeuTeR 


153 


| 
| 


Ab Programmzeile 100 folgt das 
Hauptprogramm, das aus einem kurzen 
Text und einer Warteschleife besteht. 
Erst nach einer Wartezeit wird ein 
Unterprogramm aufgerufen, das über 
vier RELEASE-Befehle jeden Ton ein- 
zeln freigibt. Mit einer WHILE-WEND- 
Schleife wartet das Programm, wie im 
Beispiel mit dem Martinshorn, auf das 
Ende eines Tons. Die RELEASE-Befeh- 
lewerden nämlich nur dann hintereinan- 
der ausgeführt, wenn jeder auf »seinen« 
Ton wartet. 

Auf diese Weise können Sie den Ton- 
generator vorprogrammieren und bei 
Bedarf über RELEASE starten. 


Zauberei 
ist nicht dabei 


Der Befehl ON SQ GOSUB läßt zu, 
daß Musik während der Bearbeitung 
eines Programms praktisch »nebenher« 
erzeugt wird. ON SQ(Kanal) GOSUB 
prüft den Status von Kanal »Kanal« und 
veranlaßt den Sprung in ein Unterpro- 
gramm, falls die Warteschlange des 
Kanals leer ist. Wenn dieser Befehl 
periodisch abgefragt wird und ein 
Unterprogramm aufruft, das die Ton- 
Warteschlange wieder auffüllt, ist es 
einfach, den gleichzeitigen Ablauf von 
Programm und Tonausgabe zu simulie- 
ren. Bei der Wahl des Wertes für 
»Kanal« gilt: Kanal A=1, KanalB=2 und 
Kanal C=4. 

Listing 6 zeigt ein Beispiel für die 
scheinbare Parallelverarbeitung von 
Bild und Ton. Einige Teile dieses Pro- 
gramms stammen aus Listing 4, so daß 
Ihr GPC wieder die Melodie von »Bruder 
Jakob« aus dem Lautsprecher erklin- 
gen läßt. 


Am Anfang des Programms wird eine 
Matrix mit den Frequenzteilern der 
Melodie gefüllt. Ab Zeile 100 beginnt 
das Hauptprogramm, das eine Grafik 
auf den Bildschirm ausgibt. Da der zen- 
trale Teil des Hauptprogramms aus 
einer Schleife besteht, läßt sich der 
Befehl ON SQ GOSUB zu Beginn der 
Schleife bequem regelmäßig abfragen. 
Wenn festgestellt wird, daß die Tonaus- 
gabe beendet ist, erfolgt ein Sprung in 
das Unterprogramm. 

Dort wird über den SOUND-Befehl 
ein neuer Ton ausgegeben. Die Variable 
»lauf« wird auf Überlauf überprüft und 
eventuell zurückgesetzt, um die Melo- 
die von vorne zu spielen. Anschließend 
erfolgt die Rückkehr ins Hauptpro- 
gramm. 

Mit der SQ-Funktion gelangen wir 
zum Ende unserer Einführung in die 
Tonprogrammierung. Über SQ(Kanal) 
fragen Sie den Status eines Tonkanals 
ab. Dabei werden die einzelnen Kanäle 
wie bei ON SQ GOSUB über 1, 2 und 4 
angesprochen. 

Ähnlich dem Parameter »Kanalstatus« 
hat auch bei dem Wert, der vom Inter- 
preter für SQ(Kanal) ausgegeben wird, 
jedes Bit eine spezielle Bedeutung. Die 
Bits O, 1 und 2 bestimmen die Anzahl 
der freien Einträge in der Warteschlan- 
ge desangesprochenen Tonkanals. Um 
den dezimalen Wert zu erhalten, müs- 
sen Sie den Wert von Bit 1 verdoppeln 
und von Bit 2 vervierfachen. Die Sum- 
me der Bits ergibt die Zahl der freien 
Einträge. 

Die Bits 3, 4 und 5 geben den Syn- 
chronstatus des ersten Eintrags in der 
Warteschlange an. Bit 3 ist gesetzt, 
wenn der Ton mit Kanal A synchronisiert 
ist, Bit 4 zeigt eine Synchronisation mit 
Kanal B an und Bit 5 ist für die Synchro- 
nisation mit Kanal C zuständig. 


Bild 2. Für Sirenen 
sehr gut geeignet 


Wenn Sie nur der Wert eines einzel- 
nen Bits interessiert, können Sie die 
SQ-Funktion bei der Abfrage logisch 
verknüpfen. So gibt zum Beispiel die 
Befehlsfolge 
PRINT SQ(kanal) AND 16 
nur dann den Wert 16 (=2*) aus, wenn 
Bit 4 gesetzt ist. In allen anderen Fällen 
wird eine Null als Ergebnis ausgege- 
ben. Analog dazu kann die Befehlsfolge 
PRINT SQ(kanal) AND 32 
benutzt werden, um den Zustand von 
Bit 5 (2°) zu überprüfen. Nur bei ge- 
setztem Bit 5 wird der Wert 32 ausge- 
geben, ansonsten erscheint die Null. 

Das Bit 6 der SQ-Funktion zeigt an, 
ob sich die Warteschlange im Haltezu- 
stand befindet. Auf diese Weise läßt 
sich abfragen, ob die Warteschlange 
durch ein gesetztes Bit 6 in »Kanalsta- 
tus« blockiert wird und über RELEASE 
freigegeben werden kann, oder ob die 
Schlange leer ist und aufgefüllt werden 
muß. 

Bit 7 wurde bereits bei der Befehls- 
folge 
WHILE SQ(kanal) >127:WEND 
benutzt. Dieses Bit gibt an, ob Kanal 
»kanal« aktiv ist. Wenn nicht, dann ist Bit 
7 auch nicht gesetzt und die Summe 
der übrigen sieben Bit kann höchstens 
127 betragen, nicht mehr. 


Die SQ-Funktion 


Abgesehen von Bit 7 dienen die Bits 
der SQ-Funktion nur für sehr ausgetüf- 
telte Effekte. Darunter fallen zum Bei- 
spiel mehrstimmige Melodien, die zu 
einem unbekannten Zeitpunkt unter- 
brochen werden und möglichst nahtlos 
in einen anderen Sound übergehen 
müssen. Ein weiteres Beispiel ist mehr- 
stimmige Musik, die plötzlich nur noch 
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ent erzeugt einen Ton oder ein Geräusch, Die Eigenschaften werden über bit 
jen Tfortge! werden sol zu sieben Parametern gesteuert. 


Nachdem Sie miEn ee Punkt 
die Tonprogrammizrung we Sasic-Be- 
fehlen ausführic Esnengeiemt ha- definiert die Frequenzhüllkurve. 
ben, sehen Se sheeH = 228 nicht RELEASE startet einen Ton, dessen Ausführung durch ein gesetztes Bit 6 im Kanı 
unbedingt Masehinensprsche-Kennt- status des SOUND-Befehls blockiert wird. 
nisse notwendigsimd smasf den CPCs ONEOROSIE 


Töne und Geräusche =#ektiv und wir- — 
kungsvoll zu zeugen (ma) sa ist eine Funktion, die den Status eines Tonkanals angibt. 


definiert die Hüllkurve der Lautstärke. 


bewirkt einen Unterprogrammaufruf, wenn die Ton-Warteschlange leer ist, 


144941 10 '*#* Raketenstart xx* CACBB1 
119021 2@ FOR lauf=31 TO 1 STEP -1 [83801 
CASQ6] 3@ SOUND 2,0,20, (lauf-2) /4,, ‚lauf CB1B6] 
EB14C1 AQ NEXT lauf [A616] 
sa G0TO 18 [027€] 
Listing 1. Die Nachbarn werden sich freuen Listing 2. Cape Canaveral aus dem Computer 
18 FOR lauf=1 TO 4 CAF6AI 
2® READ frequenzteiler EFA66] 
3@ SOUND 65, frequenzteiler 5,15 198561 
48 NEXT lau LAG161 
5@ DATA 478,379,319,239 ECFEBI 
109 REM Programm ECBFAI 
18 Z4g# Martinshorn us LEBF2I 112 ELS:PRINT"Jetzt dauert es eine Weile 
28 ENV 1,15,1,1,1,0,40,5,-1,1 ESF321 LEC9CH 
32 FOR lauf=1 18, io’ Ccıca] 120 FÜR warten=1 TO S@QR:NEXT warten LF316) 
3@ SOUND 1,19 LEi9DEI 130 GOSUB 1808 [34201 
52 WHILE SaCySi2PVhEnn [c328J 140 Ei [90181 
&@ SOUND 4,142,648,8,1 L28E21 jaso nem Unterprogramm TON AB taB181 
5a anıle Saca)3127ehenn £D712] 1818 FOR lauf=1 TO 4 EF22C1 
8@ NEXT lauf ESA1EI 1020 RELEASE 1 LOBAA] 
ZUND 2,0,28, (lauf-2)/4,, „lauf [BaADI 105® WHILE SQ(1) >127:WEND TACC6I 
40 NEXT lauf LAs161 104@ NEXT lauf LFADa] 
5@ G0TO 18 1827E3 1050 RETURN £078C3 
Listing 3. Nur das Blaulicht fehlt noch Listing 5. Zauberei mit dem RELEASE-Befehl 
10 DIM frequenzteiler (72) LFES41 18 DIM frequenzteiler (64) 18456] 
20 FOR lauf=1 TO 72 LE7D6] 2@ FOR lauf=1 TO 64 LEBDBI 
[76801 3@ READ ton,oktave [76801 
Treguenzteiler 1 auf)62500/ (52. 7032.2 4@ frequenzteiler (lauf) =62509/ (32.7032*2 
)/12+0ktave 187761 > (ton-1)/12+oktave-1)) 107761 
auf EB118] 5@ NEXT lauf:lauf=® [5286] 
&@ FOR lauf=1 T08 Lac7c] 108 REM Hauptprogramm 11338] 
7® SOUND 1,frequenzteiler (lauf),25,15  LECABI 110 MODE 2 RANDOMTZE TIME:DEG:ORIGIN 320 
8@ NEXT lauf ESAIEI ,208 TAABAI 
90 FOR lauf=9 TO 16 E11F@] 12@ %=B:y=8 19990] 
1@@ SOUND 17,frequenzteiler (lauf) ,25,15_ [&F@23 140 FOR grafik=1 TO 3060 STEP 6 LBAFB] 
110 SOUND 18, frequenzteiler (lauf-8) /2,25 15@ ON SO(1) GOSUB 1000 [50341 
„15 133821 168 z=1Q@xC0S (grafik) [DSAsI 
120 NEXT lauf LB4741 178 MOVE z,z [675€] 
138 FOR lauf=17 TO 72 CABAB] 18@ DRAW 199*C08 (grafik/x) „199#SIN(grafi 
14@ SOUND 49,frequenzteiler (lauf) ‚25,15 [77141 k/y) LiaER] 
150 SOUND 42, frequenzteiler (1auf-8)/2,25 198 NEXT grafik [741A1 
„15 [BB94] 200 END tA9121 
168 SOUND 28,frequenzteiler (lauf-16)/4,2 1808 REM Unterprogramm NAECHSTER TON LCA7ACI 
Bin ca2a@1 1921@ lauf=lauf+i ED5961 
170 NEXT lauf EC37EI 1020 SOUND 1,frequenzteiler (lauf) ‚25,15 LBIFB] 
188 RESTORE CAABAI 1030 IF lauf=64 THEN lauf LFACC] 
190 GOTO 68 EBSF23 1240 RETURN CA9BAl 
200 DATA 1,3,1,3,3,3,35,5,5,3,5, 3,14 5,1,3 DATA 1,3,1,3,3,3,3,3,5,3, 53,1, 371 
150581 55 18916] 
21@ DATA 1,3,1,3,3,3,3,3,5,3,5,3,1,3,1,3 18010 DATA 1,3,1,3,3,3,3,3,5,3,5,3,1,3,1 
L9@SAI „3 L7D181 
220 DATA 5,3,5,3,6,3,6,3,8,3,8,3,8,3,8,3 18028 DATA 5,3,5,3,6,3,6,3,8,3,8,3,8,5,8 
TEAABI ei 1395E1 
258 DATA 5,3,5,3,6,3,6,3,8,3,8,3,8,3,8,3 10030 DATA 5,3,5,3,6,3,6,3,8,3,8,3,8,3,8 
LABA21 ,3 CBS681 
248 DATA 8,3,10,3,8,3,6,3,5,3,5,5,1,3,1, 109048 AR 8,3,18,3,8,3,6,3,5,3,5434143, 
3 LSEDEI 1C69C1 
250 DATA 8,3,10,3,8,3,6,3,5,3,5,3,1,3,1, 10058 oATa 8,3,10,3,8,3,6,3,553,5,331,3, 
3 L2BE@1 TE99EI 
260 DATA 1,3,1,3,8,2,8,2,1,3,1,3,1,3,1,3 12040 bAra 1,3,1,3,8,2,8,2,1, 3512321, 3r1 
CBB643 55 190223 
270 DATA 1,3,1,3,8,2,8,2,1,3,1,3,1,3,1,3 10078 DATA 1,3,1,3,8,2,8,2,1,3,1,3,1,3,1 
114661 ge 191241 
280 DATA 1,3,1,3,8,2,8,2,153,1,3,1,3,1,3 
TBQ681 Listing 6. Malen und Musizieren - der Computer 
Listing 4. Auch Ihr Computer spielt im Kanon kann es gleichzeitig 
Zi 
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Computerwissen von AbisZ 


‚Adreßbus: Gruppe von Signalleitungen, die der 
Mikroprozessor zur Adressierung von Speicher 
und Peripherie benutzt. 


‚Algorithmus: Schema für einen Programm- 
ablauf. Jedes Problem, das ein Computer bear- 
beiten kann, läßt sich schematisch darstellen - 
und damit als Algorithmus formulieren. 


Applikation: Anwendung (für ein Programm) 


‚Arbeitsspeicher: Speicherbereich eines Com- 
puters, in dem Programme und veränderliche 
Daten abgelegt sind. Der Inhalt des Arbeitsspei- 
chers geht beim Ausschalten des Computers in 
der Regel verloren. 


Assembler: Übersetzungsprogramm, das 
‚Assemblercode in Maschinencode umwandelt. 


Assemblercode: Maschinenorientierte Pro- 
grammiersprache, die im Gegensatz zu Hoch- 
sprachen nur auf ein bestimmtes Prozessor- 
modell zugeschnitten ist und direkt in Maschi- 
nencode übersetzt werden kann. 


Bank: Speicherbereich, der beim CPC 6128 ein- 
und ausgeblendet werden kann. 


BDOS-Funktion: Routine aus dem Disketten- 
Betriebssystem von CP/M. 


Betriebssystem: Routinen-Sammlung, die zum 
Betrieb eines Computers und seiner Peripherie 
unbedingt erforderlich ist. Die Routinen steuern 
die Speicherverwaltung, Zeicheneingabe, Bild- 
ausgabe, Datenübertragung etc. Ohne Betriebs- 
system ist ein Computer nicht funktionsfähig. 


binär: Ein binärer Wert basiert auf einem Zahlen- 
system, das nur die beiden Zustände O und 1 
kennt. Während im gebräuchlichen Dezimal- 
system zehn verschiedene Ziffern pro Stelle 
erlaubt sind, benötigt die Ziffer 2 im Binärsystem 
bereits zwei Stellen (10) und die Ziffer 4 sogar 
drei Stellen (100). 


Binärdatei: Prinzipiell jede Datei, die binäre 
Daten oder Maschinencode enthält. Beim 
Schneider CPC enthalten Binärdateien meistens 
Maschinencode oder den Bildschirminhalt. 


Bit: Kleinste Speichereinheit, die nur die beiden 
‚Zustände 0 (Spannung aus) und 1 (Spannungan) 
‚annehmen kann. 


booten: Laden des Betriebssystems von Dis- 
kette. 


Bootsektor: Abschnitt einer Diskettenspur, des- 
sen Daten beim Start von CP/M geladen werden. 


Byte: Speichereinheit zu 8 Bit, die 28 = 256 
verschiedene Zustände erlaubt. Ein Byte ist die 
kleinste Einheit im Speicher des Schneider CPC, 
die sich in Basic mit PEEK oder POKE anspre- 
‚chen läßt. 


CAD: Abkürzung für »Computer aided design« 
(computerunterstützte Konstruktion). 


Compiler: Programm, das den in einer Hoch- 
sprache geschriebenen Quellcode in Maschi- 
nencode übersetzt. 


Controller: Baustein oder Baugruppe, die eine 
Hardware-Einheit kontrolliert (zum Beispiel 
Disketten-Controller). 
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CPC: Abkürzung für »Colour PersonalComputere 


CPIM: Weitverbreitetes Betriebssystem, das auf 
Prozessoren des Typs 8080, 8085 und Z80 
läuft. Dadurch ist sichergestellt, daß unter CP/M 
geschriebene Programme auf allen Computer- 
modellen arbeiten, die CP/M-fähig sind. 


CPIM Plus: Erweiterte Version des Betriebs- 
systems CP/M 2.2. 


CPU: Abkürzung für »Central Processing Unit« 
(zentrale Prozessoreinheit). Wird oft auch als 
Mikroprozessor bezeichnet. 


Cursor: Zeichen auf dem Bildschirm (meistens 
blinkend), das die Position anzeigt, auf die das 
nächste Zeichen ausgegeben wird. 


DATA-Lader: Basic-Programm, das Werte aus 
DATA-Zeilen als Maschinencode im Arbeitsspei- 
cher ablegt und abschließend als Binärdatei auf 
einen Datenträger speichert. 


Datei: Sammlung von Daten und/oder Pro- 
grammien), die zusammengehören und unter 
einem gemeinsamen Dateinamen im Arbeitsspei- 
cher oder auf Datenträger abgelegt sind. 


Datenbus: Gruppe von Signalleitungen, die von 
der Hardware des Computers und von der Peri- 
pherie zum Austausch von Daten benutzt wird. 


Datenfeld: Sammlung von Daten oder Datensät- 
zen. 


Datensatz: Sammlung von Daten. 


Decodierlogik: Aus logischen Gattern aufge- 
baute Schaltung, die einen oder mehrere ange- 
schlossene Bausteine nur unter ganz bestimm- 
ten Bedingungen freigibt. 


Directory: Verzeichnis aller Dateien auf einer 
Diskette. Bestimmte Spuren auf der Diskette sind 
für dieses Inhaltsverzeichnis reserviert. Mit sei- 
ner Hilfe findet der Computer die einzelnen 
Daten. 


Direktmodus: Zustand, in dem eingegebene 
Befehle direkt ausgeführt werden (erreicht man 
durch Eingabe der Befehle ohne vorstehende 
Zeilennummer), 


Diskette: Scheibenförmiger Datenträger mit 
Magnetbeschichtung. 


Disketteneditor: Programm, das die Daten einer 
Diskette auflistet und Änderungen dieser Daten 
erlaubt. 


DOS: Abkürzung für »Disc Operating Systeme 
(Disketten-Betriebssystem). 

editieren: Programmtexte oder Daten verändern 
bzw. verbessern. 


Elektrolytkondensator: Spezielle Bauart eines 
Kondensators, die höhere Kapazitäten bei glei- 
chen Abmessungen erlaubt. 


emulieren: Nachbilden, simulieren. 


EPROM: Abkürzung für »Erasable Programmable 
Read Only Memory« (löschbarer programmierba- 
rer Festwertspeicher). Festwertspeicher, der 
vom Anwender programmiert und durch UV-Licht 
wieder gelöscht werden kann. 


Escape-Sequenz: Zeichenfolge, die der Compu- 
teran den Drucker sendet, um das Gerät zu nitia- 
lisieren oder bestimmte Werte (zum Beispiel 
Schriftart) einzustellen. 


Explora: Prüfsummen-Programm für Schneider 
CPC. 


Extension: Kombination aus drei Buchstaben, 
die den Dateityp eines Dateinamens angibt (ASC, 
BAS, BIN etc.). 


Fließkommazahl: Zahl mit Nachkommateil und 
eventuellem Exponent. 


Gatter: Schaltung, die binäre Signale logisch mit- 
einander verknüpft. Ausgehend von den dı 
Urverknüpfungen »NOT«, »AND« und »OR« las- 
sen sichalle weiteren denkbaren Verknüpfungen 
realisieren. - 


Hardcopy: Ausgabe des Bildschirminhalts auf 
einen Drucker. 


Hardware: Feste, greifbare Bestandteile eines 
Computersystems (Gehäuse, Bauteile, Drähte 
etc.). 


hexadezimal: Ein hexadezimaler Wert basiert 
auf dem Hexadezimalsystem, das 16 verschie- 
dene Ziffern pro Stelle einer Zahl zuläßt (0 bis 9, 
A,B,C, D, E und F). Da 16 ein Vielfaches von 2 
(der Grundzahl des Binärsystems;) ist, lassen sich 
im Hexadezimalsystem Byte-Werte sehr über- 
sichtlich darstellen (00 bis FF). 


Hochsprache: Höhere Programmiersprache wie 
Basic, Pascal oder Prolog, die für den Menschen 
leichter verständlich ist, als es Assembler oder 
Maschinencode sind. 

Include-Datei: Teilstück einer umfangreichen 
Datei, das beim Compilieren in den Programm- 
code eingebunden wird. 


Indexregister: Spezielles Register im Prozessor 
Z80, das die Adressierung von Datentabellen 
erleichtert. 


Inline: Die Inline-Funktion erlaubt das Mischen 
von Basic-Befehlen und Assembler-Anweisun- 
gen innerhalb einer Programmzeile, 


Bindeglied zwischen Computer und 


Interpreter: Im Gegensatz zum Compiler über- 
setzt der Interpreter ein Programm während des 
‚Ablaufs Schritt für Schritt in Maschinencode- 
‚Anweisungen. Dadurch wird die Programmbear- 
beitung zwar verzögert, doch die Fehlersuche ist 
einfacher. Basic ist eine typische Interpreter- 
sprache. 


Interrupt: Außerplanmäßige Unterbrechung 


eines Programms durch eine interne Uhr oder 
eine Peripherieeinheit. 


Inverter: Gatter, das den Zustand des Eingangs- 
Signals in sein Gegenteil umwandelt. 
KByte: Speichereinheit zu 1024 Byte. 


kompatibel: Verträglich. Kompatible Computer 
verarbeiten problemlos die gleiche Software, und 
kompatible Programme sind in Bedienung und 
‚Funktion äquivalent. 

Kondensator: Bauteil, das elektrische Ladung 
speichern kann. 


konvertieren; Von Siem Format nn &in anderes 
Format umformen. 


Label: Marke in einem Programm, die vor dem 
Start der Software in eine efiektive Adresse 
umgerechnet werden mu in Assembler haben 
Labels eine große Bedeutung, weil sie das Pro- 
grammieren wesentlich versinischen. 


Leiterbahn: Letende Veröindung zweier Punkte 
auf einer Platine 


Listing: Ausdruck eines Programmcodes. 


Lochstreifenrasterplatine: Platine zum Aufbau 
elektronischer Schaltungen, die mit Bohrungen 
im Abstand von 2,54 mm versehen ist undauf der 
Lötseite mit dünnen Kupferstreifen beschichtet 
wurde. 


logische Verknüpfung: Erzeugen eines Aus- 
gangssignals aus mehreren Eingangssignalen 
nach einem definierten Schema. Die wichtigsten 
Verknüpfungen sind »NOTe, »AND«, »NAND«, 
»OR«, »NOR« und »XOR«. In der Elektronik wer- 
den logische Verknüpfungen durch Gatter aus- 
geführt. 


Makro-Assembler: Übersetzungsprogramm von 
‚Assemblercode in Maschinencode, das auch die 
Definition von eigenen Befehlen (die sogenann- 
ten Makros) erlaubt. 


Maschinencode: Eine Reihe von Binärwerten, 
die der Prozessor direkt als Befehle erkennen 
und ausführen kann. Häufig wird Assembler mit 
Maschinencode verwechselt. 


Maschinensprache: siehe Maschinencode. 


M: Da eine Spannung immer nur zwischen 
zwei Punkten anliegen kann, bildet die Masse 
den zweiten, nicht gesondert erwähnten Be- 
zugspunkt für die Spannungen von Signalleitun- 
gen. 


MByte: Speichereinheit zu 1024 x 1024 = 
1048578 Byte. 


Mikroprozessor: Zentraler Baustein eines Com- 
puters, der für den Programmablauf und die 
Datenverarbeitung zuständig Ist. Der Mikropro- 
zessor kommuniziert über Adreß- und Datenbus 
mit den anderen Einheiten des Computers und 
zeigt über die Signale des Steuerbus die 
gewünschte Betriebsart (Lesen, Schreiben, 
Warten etc.) an. 


Modula: Nachfolger der Programmiersprache 
Pascal, Modula bietet gegenüber Pascal einen 
stark erweiterten Befehlssatz, der auch assem- 
blerähnliche Anweisungen und strukturfeindli- 
‚che Kommandos erlaubt. 


Monitor: Programm, das den Inhalt von Spei- 
cherbereichen in dezimaler, hexadezimaler oder 
ASCII-Form auflistet und die Veränderung der 
einzelnen Speicherzellen erlaubt. 


negative Logik: Gegenteil von positiver Logik. 
Signale, die mit negativer Logik arbeiten, werden 
mit einem Strich über der Signalbezeichnung 
dargestellt, O bedeutet aktiv und 1 inaktiv. 


Objectcode: siehe Maschinencode. 
Offset: Differenz zwischen zwei Adressen. 
Opcode: siehe Assemblercode. 


Oszilloskop: Meßgerät, das Spannungsverläufe 
auf einem Bildschirm grafisch darstellt. 


Parameter: Wert(e), die einen Befehl oder eine 
Funktion zur Ausführung benötigen. 


Pascal: Höhere Programmiersprache, die den 
Anwender zur strukturierten Programmierung 
zwingt. 


Pass: Durchlauf eines Compilers. 


Patch: Flicken. Patches dienen zum Beheben 
von Programmfehlern und zur Anpassung von 
Software an die unterschiedliche Hardware von 
Computermodellen. 


Pin: Anschluß eines IC. 
Pixel: Bildpunkt. 


Portadresse: Adresse für ein Tor (Port) zur Peri- 
pherie, um Daten zwischen Prozessor und Peri- 
pherie austauschen zu können. 


Prefix: Vorspann, Vorsatz. 
Prozessor: siehe Mikroprozessor. 


Pseudo-Befehl: Anweisung, die in einem Assem- 
blercode eingesetzt Bytes, Texte (DEFB) und 
Adressen (DEFW) definiert, Speicherplatz reser- 
viert (DEFS), die Startadresse des Maschinen- 
code angibt (ORG). 


Puffer: Zwischenspeicher im Arbeitsspeicher 
des Schneider CPC, die für Tastatureingaben, 
Editiervorgänge, Druckerdaten, Kassetten- und 
Diskettenoperationen reserviert sind. 


Pull-up-Widerstand: Widerstand, der eine Lei- 
tung, die nicht mit einer definierten Signalspan- 
nung versorgt wird, auf den Wert der Versor- 
gungsspannung legt. 


Quellcode: Summe aus Assemblercode, Pseu- 
do-Befehlen und Kommentaren, die der Assem- 
bler in Maschinencode übersetzt. 


RAM: Abkürzung für »Random Access Memory« 
(Schreib-/Lesespeicher). Das RAM ist der flüch- 
tige Speicher eines Computers, der als Arbeits- 
speicher verwendet wird und Programme, Varia- 
blen sowie weitere Daten enthält. Der Speicher- 
inhalt geht nach Ausschalten des Gerätes verlo- 
ren. 


Register: Zwischenspeicher im Mikroprozessor 
‚oder in Form eines Bausteins in einer Computer- 
schaltung. 


Reset: Zurücksetzen und Neustart eines Com- 
Putersystems. 


resident: Im Computerspeicher vorhanden. 


ROM: Abkürzung für »Read Only Memory« (Nur- 
Lese-Speicher). Das ROM ist ein nichtflüchtiger 
Speicher im Computer, der als Festwertspeicher 
eingesetzt wird und das Betriebssystem sowie 
den Basic-Interpreter (sofern vorhanden) ent- 
hält, Der Speicherinhalt kann vom Anwender 
nicht überschrieben oder gelöscht werden. 
Rotation: Drehbewegung um die senkrechte 
Achse. 


Routine: Eigenständiges Kurzprogramm, das 
sich in einem anderen Programm auch als Teil- 
‚oder Unterprogramm verwenden läßt. 


FeS 


RSX: Abkürzung für »Resident System Exten- 
sion« (residente Betriebssystem-Erweiterung). 


Runtime-Modul: Routinen, die ein Compiler dem 
in Maschinencode übersetzten Programm bei- 
fügt, damit es lauffähig ist. 


Schnittstelle: Gruppe von Signalleitungen, die 
für den Anschluß einer Peripherie-Einheit auf 
eine gemeinsame Buchse (oder Stecker) geführt 
ist. 


Scrollen: Verschieben des gesamten Bild- 
schirminhaltes in eine bestimmte Richtung. 
Wenn zum Beispiel ein Listing, daslängerals eine 
Bildschirmseite ist, ausgegeben wird, scrollt es 
über den Bildschirm. 


‚Sektor: Abschnitt einer Diskettenspur. 


Software: Programme, die in Zusammenarbeit 
mit der Hardware eines Computers dafür sorgen, 
daß das Gerät »funktioniert«. 


Sourcecode: siehe Quellcode. 

Spur: Kreisförmiger Streifen auf einer Diskette, 
der die Daten enthält. Moderne Disketten sind in 
40 oder in 80 Spuren pro Seite aufgeteilt. 


SRAM: Abkürzung für »Static Random Access 
Memory: (statischer Arbeitsspeicher). Der Spei- 
‚cherinhalt eines statischen RAM muß im Gegen- 
satz zum dynamischen RAM nicht periodisch 
aufgefrischt werden. 


Stack: Reservierter Speicherbereich, der gesi- 
cherte Registerwerte und Rücksprungadressen 
von Unterprogrammaufrufen enthält, 


Steuerzeichen: Visuell nicht darstellbares Zei- 
chen, das eine Aktion auslöst. So schaltet zum 
Beispiel das Steuerzeichen <CTRL+P> unter 
CP/M und MS-DOS das Druckerprotokoll ein. 


Steuerzeichen-Sequenz: Reihe von Steuerzei- 
chen. 


String: Zeichenkette, die aus ASCII-Zeichen auf- 
gebaut ist. 


Systemformat: Diskettenformat, das die Sy- 
stemdaten des Betriebssystems enthält. 


Temporärspeicher: Speicherbereich, in dem 
Daten zeitlich begrenzt abgelegt werden. 


Treiber: Verstärker für binäre Signale. 
Utility: Hilfsprogramm. 


Vektoren: Speicheradresse, die den Aufruf einer 
Betriebssystem-Routine enthält. 


Vibrato: Vibrationen eines Tonsignals durch 
geringfügige Frequenzschwankungen. 


Widerstand: Bauteil, das den Stromfluß bei einer 
fest anliegenden Spannung (nach dem Ohm- 
schen Gesetz) begrenzt. 


Window: Teilbereich eines Bildschirms, der vom 
Computer wie ein eigenständiger Bildschirm 
behandelt wird, 


Zenerdiode: Diode, die in Sperrichtung in eine 
Schaltung eingebaut wird und bei Überschreiten 
einer definierten Spannung durchschaltet. Auf 
diese Weise lassen sich Überspannungen kurz- 
schließen und Versorgungsspannungen stabili- 
sieren. 
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Fehler im Diskettenformat 


Und wieder ist es passiert: Der 
berühmt-berüchtigte Fehlerteu- 
fel war auch im 6. Schneider 
nicht untätig. Wir bitten Sie dafür 
herzlichst um Entschuldigung. 


lagen« aus dem letzten Sonderheft 
(Schneider-Sonderheft Nummer 6) 

haben sich dieses Mal zu unserem 
Bedauern einige Fehler eingeschli- 
chen. Hier finden Sie nun die Korrek- 
turen. 

Seite 129, Tabelle 1 

Bei »SENSE DRIVE STATUS« muß 
das Statusregister 3 (ST3) nicht in der 
Kommandophase übergeben werden; 
seinen Inhalt liefert vielmehr die Resul- 
tatphase. 

Seite 132, Listing 1 

In Zeile 11 fehlt vor [$iconvbyte.inc] 
die öffnende geschweifte Klammer. 

Seite 134, Listing 3 

Die Procedür »fdecall« funktioniert 
nur dann einwandfrei, wenn der Con- 
troller schon bereit ist, ein Kommando 
zu übernehmen. Ironischerweise ist 
genau der Teil, der bei einem unzulässi- 
gen Controllerzustand eine Meldung 
ausgibt, fehlerhaft. 


| n die Artikelserie »Diskettengrund- 


Variablenparameter 
ohne Typangabe 


Eine Besonderheit von Turbo-Pascal 
sind die Variablenparameter ohne 
Typangabe: Läßt man im Kopf einer Pro- 
zedur hinter 
var name 
das »:typ« weg, darf man für »name« 
Variablen beliebigen Typs übergeben. 
Es kommt dann nicht mehr zur Fehler- 
meldung »falscher Variablentyp«. 

Nutzt man diese Besonderheit in der 
Prozedur »fdccall«, vereinfachen sich 
die meisten Aufrufe. Statt zum Beispiel 
execute[0] 
reicht jetzt auch das kürzere 
execute. 

Den neuen Anfang der Prozedur 
»fdccall« sehen Sie im neuen Listing 1. 
Es verzichtet aus Platzgründen auf 
Kommentare, die Sie jaim Originallisting 
nachschlagen können. 

Seite 143 ff 

Der Text sagt vereinfacht aus, daß 
beim ersten Diskettenzugriff nach 
einem Warmstart automatisch das For- 
mat der Diskette bestimmt wird. Die 
Erkennung des Formats funktioniert 
aberauch dann, wenn das Laufwerk seit 
dem letzten Zurücksetzen erstmals 


(« Funktionen zum Direktzugriff auf Disckontroller uPD765, Vers. 24.08.1986 x) 
sonst FDCPOR: integer=$fb7e;MOTPOR: Integer=$fa7e ;MOTON:byte=1;MOTOFF:byte=0; 
computertyp:string[13]='Schneider CPC'; 

function fdocall(var comman,execut,result):byte; 

var busy:byte;begin 

Inline ($ED/$4B/FDOPOR/$ED/$5B/CONMAN/$2A/RESULT/$ES/$2A/EXECUT/ 
$ED/$78/$87/$30/$FB/3E6/$E1/$3E/SFF/820/362/$14/813/800/3ED/$79/$0D/$3E/805/ 
$3D/$20/$FD/$ED/$78/387/830/$FB/$87/838/821/887/838/80D/33E/804/$3D/820/8FD/ 
‚$ED/$78/$E6/$10/$20/8DF/$18/83B/$7E/800/8ED/$79/80D/$23/$ED/$78/887/830/$FB/ 
986/840/820/8P1/$18/812/887/830/$0F/800/8ED/378/80D/877/823/8ED/878/387/ 
$30/8FB/$E6/$40/$20/$F1/8E3/3ED/878/887/830/8FB/8E6/$20/$28/80D/$00/$ED/$78/ 
$0D/877/823/838/804/$3D/$20/3FD/$18/$EA/$E3/$ED/878/$E6/30F/801/832/BUSt) ; 
fdecall:=busy end; 

procedure fäcmotor(flgmot: byte);begin 

Inline ($ED/$4B/MOTPOR/$3A/HOTON/$5F/S3A/MOTOFF/857/83A/FLONOT/$A7/87A/$28/801/ 
$78/8ED/379) 

end; 

procedure fdeinterrupt(flgint: byte);begin 

Inline ($3A/FLGINT/$A7/$28/803/$FB/$18/$01/8F3) 

end; 


Listing 1. Eine neue und korrekte Version des Programms FDC 


program setdisk; 
(« Ein Diskettenformat auswaehlen und ins Betriebssystem installieren x) 
(«x Isar-Anper-Soft, Version 19.01.87 x) 


eonst max = 11; (x Anzahl der bekannten Diskettenformate x) 
var i:integer; wahl: char; 


eonst (4Tabellenwerte fuer Vortex-Controller mit Vortex-62K CP/M 2.2-09/85%) 
(„Die Werte des eigenen Systems sind mit Hilfe von Getdisk zu bestimmeny) 


version: string[48] = 'VDOS 2.0 mit Vortex-62K CP/M 2.2 Vers. 09/851; 
Aphstart: Integer = $feco; freistart: Integer = Iff2B; 

esvab: array[0..1] of integer = ($fe45, $fe95); 

alvab: array[0..1] of integer = ($fe65, $feb5); 


parameter: array[0..max] of record 
nane: string[32]; 
dpb: array[O..14] of byte; 
xdpb: array[0..9] of byte 
end = ( 


(x Je nach verwendeten Diskcontrollertyp muß eines der beiden 
folgenden Formate gestrichen werden x) 


name: !Vortex, Originalformat % 
dpb : ($24,300,805,$1f,$03, 30, $00,$72,900, 380,300, $20,300,$02,900) ; 
xdpb: (301,309, $28,352,9e5,902,304,342,341,303) 

I 

name: 'Amstrad, automatische Formatwahl'; 

apb : ($24,800,$03,307,300,$aa,$00,$37,300,3c0,300,$10,$00,$02,800) ; 
xdpb: ($41,809,$28,952,3e5,302,$04,$42,327,800) 

»» 


(x Bei allen jetzt noch folgenden Formaten muß jeweils das letzte Byte 
des xdpb an den Diskcontrollertyp angepaßt werden. 
Der richtige Wert lautet: 


Bei Schneider-Controller 
- alle Formate: ser 
Bei Vortex-Controller, für eines der beiden eingebauten Laufyerke 
- bei doppelseitigen Formaten: 303 
- bei einseitigen Formaten: 302 
Bei Vortex-Controller, für drittes (externes) Laufwerk 
- bei doppelseitigen Formaten: $23 
- bei einseitigen Formaten: $22 


Achtung: Auch mit diesem Programm ist es nicht möglich, 
- doppelseitige Formate mit dem Schneider-Controller 
- 40-spurige Formate in 80-spurigen Laufwerken 
einzusetzen x) 


(x die folgenden Formate können nur mit einem Vortex-Controller 
eingesetzt werden. 
Anpassung des letzten xdpb-Bytes beachten! x) 
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nane: Vortex (D5,807)'; (x 9 Sektoren, Nummern ab $01 =) 
app : ($24,800,505,81£,303,5b0, 300,372 ,500,$80,$00,$20,$00,$02,$00) ; 
xapb: ($01,809,328,352,$25,902,804,$4f,$48,303) 


name: 'X-Data 820K (DS,821)'; (x10 Sektoren, Nummern ab $01 x) 
dpb : ($28,800,804,307,300,399,$01,$bf ,$00,$e0,$00,330,$00, 300,300) ; 
xdpb: ($01,30a,$0e,$1d,$e5,302,304,84f,$51,303) 

name: "Siemens PC 16-11 (DS,807)'; (x 9 Sektoren, Nummern ab $01 4) 
apb : ($24,800,904,802,300,355,301,322,300,3£0,$00,340,800,304,300); 
xdpb: ($01,809,$2a,352,$e5,802,804,342,342,303) 


(x die folgenden Formate können sowohl mit Vortex- als auch mit 
Schneider-Controller eingesetzt werden. 
Anpassung des letzten xdpb-Byte beachten! x) 


(" physikalisch identisch zu 3” CP/M 2.2-Systenformat, aber 80 Spuren x) 
name: 'X-System (SS,807)'; (x 9 Sektoren, Nummern ab $41 4) 
dpb : ($24,300,304,80f,$01,$ae,$00,$31,$00,980,$00,$10,$00,802,800) ; 
xdpb: (841,809, 92a,852,$e5,902,$04,$41,841,902) 

nane: 'X-Data 215K (85,437)'; («10 Sektoren, Nummern ab $01 x) 
dpb : ($28,300,303,807,300,3d6,$00,$32,300,300,300,$10,$00,800,800) ; 
xdpb: ($01,$0a,$0e,$1d,$e5,302,304,$4f,$28,$22) 

name: 'Kaypro II (SS,407)'; (#10 Sektoren, Nummern ab $00 x) 
dpb : (928,$00,903,907,300,$c2,300,$32,300,$c0,$00,$10,$00,301,800) ; 
xdpb: ($00,$02,$0e,$1d,$e5,302,304,342,$27,822) 


name: "Amstrad CP/M 2.2-System (SS,407)'; (x 9 Sektoren, Nummern ab $41 x) 
apb : ($24,$00,$03,$07,$00,$aa,$00,$37,300,$c0,$00,$10,300,302,800); 
xdpb: ($41,809,92a,352,$e5,302,$04,347,$27,$22) 


name: "Amstrad Data-Only (8S,407)'; (x 9 Sektoren, Nummern ab $c1 x) 
apb : ($24,900,303,$07,$00,3b3,300,$37,$00,$00,300,$10,$00,$00,800) ; 
xdpb: ($c1,309,32a,$52,$e5,302,304,347,327,$22) 


name: 'IBM CP/M-Single Sided (SS,407)'; (x 8 Sektoren, Nummern eb $01 x) 
dpb_ : ($20,300,303,$07,300,996,$00,$37,$00,$c0,300,$10,$00,300,$00); 
xdpb: ($01,$08,$22,$50,$e5,302,304,347,327,322) 

)»( (# Joyce-Format nicht getestet! Eventuell weniger Systenspuren? x) 

: Joyce CP/M Plus-System (SS,40T)'; (x 9 Sektoren, Nummern ab $01 x) 
($24,800,$03,$07,$00,$63,500,33?,$00,$c0,300,$10,300,300,300); 

xdpb: ($01,809,$2a,352,$e5,902,304,347,327,822) 


); 


(« Achtung: Mindestens auf einen Laufwerk muss immer das Originalformat 
verfuegbar sein. Solange auf Laufwerk A das Originelformat nicht 
verfuegbar ist, darf kein Warnstart ausgefuehrt werden. Unnittelber vor 
ersten Zugriff auf das neue Format muss das betroffene Laufwerk 
zurueckgesetzt werden, z.B. durch den Prozeduraufruf Bdos(13)x) 


progedure instellformat(disk, wahl: Integer); 
type dphfeld = array[0..1,0..7] of integer; 
var xdpbptr: “byte; dph: "dphfeld; drive: integer; 


begin 
with parameter[wahl] do 
begin 
dph := ptr(dphstart); drive := disk and 1; 
1f wahl = 0 
then begin dph” [drive,6]:=csvab[drive];dph” [drive,7]:=alvab[drive] end 
else begin 


dph” [drive, 6] := freistart; 
dph” [drive, 7] := freistert + dpb[11] + dpb[12] shl 8 
end; 
xdpbptr ;= ptr(dph“ [Arive, 5]); move(dpb,xdpbptr” „25); 
writeln('Format *',name,'” auf Drive '‚chr(ord('A')+drive),' installiert!) 
end 
end; 


begin 
writeln('Angepasst fuer '‚version); writeln; 
writeln('Welches Format wird auf Laufwerk B gewuenscht?'); writeln; 


for 1:= 0 to max do writeln(! (', chr(itord('a')), ') ", parameter[ij.nane); 
writeln; write('Bitte waehlen Sie aus: '); 
repeat 


read(kbd, wahl); wahl := upcase(wahl) 
until (wahl )= 'A') and (orä(wahl) (= (orä('a') + max)); 
writeln(wahl); writeln; 
installformat(0, 0); installformat(1, ord(wahl) - ord('A')) 
end. 


Listing 2. Ganz unterschlagen hatten wir »Setdisk« zum Installieren 
verschiedener Laufwerksparameter 


wieder angesprochen wird. Man kann 
also auch während eines Programm- 
laufs eine automatische Formatbestim- 
mung herbeiführen, indem man ein 
einzelnes Laufwerk mit dem Aufruf der 
Pascal-Prozedur 

bdos(37,1 shl drive); 

zurücksetzt. <drive> ist die Lauf- 
werksnummer, wobei Laufwerk A dem 
Wert O entspricht, B dem Wert 1 bis 
zum Laufwerk P mit dem Wert 15. Für 
Binärzahlen-Experten: Jedem Lauf- 
werk ist im zweiten Parameter der 
Bdos-Funktion 37 ein Bit zugeordnet. 
Zurückgesetzt werden alle Laufwerke, 
deren Bits auf Eins gesetzt sind. Der 
Aufruf von »bdos(13)« setzt alle Lauf- 
werke gleichzeitig zurück. »bdos(37)« 
und »bdos(13)« dürfen Sie jedoch nur 
verwenden, wenn sich auf den ange- 
sprochenen Disketten keins zum 
Schreiben geöffneten Dateien befin- 
den. 


Auch unter Basic 


Das Amsdos (beziehungsweise 
Vdos) lehnt sich sehr stark an CP/M an. 
Dementsprechend gelten die POKEs 
zum Verändern der Parameter nicht nur 
für CP/M-Basic-Interpreter, sondern 
auch für das Locomotive-Basic. Die 
Parametertabellen liegen in diesem Fall 
im Bereich von A700 bis ABFF hex. Am 
schnellsten zum Erfolg führt, wenn Sie 
mit einem einfachen Monitorprogramm 
in diesem Bereich zunächst nach der 
charakteristischen Bytefolge »24 hex, 
00 hex, 03 hex, 07hex« suchen und 
danach die Stelle, an der die Anfangs- 
adresse dieser Tabelle steht. 

Seite 147, Listing 1 

Bei var name:”datei fehlt im Listing 
der kleine Pfeil. Als Folge passen beim 
Compilieren die Variablentypen nicht 
zusammen. 

Seite 148, Spalte 1 

Die Adresse des Diskparameter- 
blocks enthält das Wort »DPB«, das im 
DPH zu finden ist und nicht das Byte 
DPH. 

Seite 148, Spalte 3 

Die CSV-Tabelle darf natürlich nicht 
»(DSM+1)/4« Byte (Disk Size Mask) 
lang sein, sondern nur (DRM+1)/4 
Byte (Directory Mask). 

Ansonsten bildet CP/M bei jedem 
Zugriff auf das Inhaltsverzeichnis (wie 
zum Beispiel beim Schließen einer 
Datei) eine Prüfsumme für den gesam- 
ten Inhalt der Diskette. 

Seite 150 

Und das war wohl der schlimmste 
Fehler: Durch eine lange Erklärung 
wurde Ihnen der Mund für ein Pro- 
gramm wäßrig gemacht, mit dessen 
Hilfe Sie verschiedene Diskettenfor- 
mate einstellen. Doch das Listing von 
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»Setdisk« suchten Sie vergeblich. Sie 
finden es deshalb hier - und das 
sogar in einer verbesserten Version 


(Listing 2). 
Es ist jedoch auch mit diesem Pro- 
gramm nicht möglich, 40-Spur- 


Disketten auf 80-Spur-Laufwerken zu 
bearbeiten oder doppelseitige Disket- 
ten mit einem Schneider-Controller. 
Das erfordert nämlich massive Eingriffe 
ins ROM-BIOS des Computers. 

Einzelne Dateien sind auf derartigen 
Disketten jedoch lesbar, wenn Sie sich 
mit Hilfe der Unterprogrammsammlung 
»FDC.INC« eine spezielle Kopierroutine 
selbst erarbeiten. 

Besitzern einer Vortex-Disketten- 
station bietet Vortex mit dem Programm 
»Para« eine fertige Lösung dieses Pro- 
blems an. Besitzer eines Schneider- 
Controllers können sich neuerdings 
des Programms »Diskpara« bedienen. 
Einen ausführlichen Test dieser Utility 
finden Sie in der Happy-Computer, Aus- 
gabe 4/87. 

Einige Formate der Tabelle im Listing 
Setdisk sind etweder nur für den 
Schneider-Controller oder nur für den 
Vortex-Controller geeignet. Die jeweils 
nicht passenden müssen Sie aus der 
Tabelle löschen und die Konstante 
»MAX« entsprechend der Anzahl der 
Formate vermindern. Vergessen Sie 
nicht, vorher mit Hilfe von »Getdisk« die 
Parameter für Ihre Gerätekonfiguration 
festzustellen und ins Programm einzu- 
tragen. 

Ein Beispiel verdeutlicht die Vorge- 
hensweise: 

‚Angenommen, Sie besitzen einen 
Schneider-Controller und ein Zweitlauf- 
werk mit 80 Spuren. Natürlich möchten 
Sie die 80 Spuren auch gern nutzen. 
Dazu gehen Sie folgendermaßen vor: 

Eine Spur soll aus neun Sektoren zu 
je 512 Byte bestehen. In einen Sektor 
passen also vier Records zu je 128 
Byte. Der erste Wert des XDPB erhält 
deshalb den Wert 09 und das fünfte 
Byte »xdpb« den Wert 04. 
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Die gesamte Spur hat 9x4=36 (=24 
hex) Byte. Die Bytes O0 und 1 des DPB 
erhalten also die Werte 24 und 00. 

Ein Sektor ist 128x2* Byte lang. Der 
Exponent dieser Berechnung wird in 
Byte 5 des XDPB eingetragen. 

Die Sektoren sollen wie das Original- 
Systemformat Nummern ab 41 hex tra- 
gen. Dieser Wert kommt in Byte 1 des 
XDPB. 

Die Bytes 2 und 3 des XDPB geben 
die Längen der Gaps beim Schreiben, 
Lesen und Formatieren an. Beachten 
Sie, daß der geringere Wert immer 
zuerst stehen muß (erst das Low- und 
danach das Highbyte). 

Ähnliche Werte wie die angegebenen 
erhalten Sie mit Hilfe des Programms 
»GAPS.PAS«. 

Beim Formatieren soll CP/M den Sek- 
tor wie üblich mit ES hex füllen. Dieser 
Wert steht im Byte 4 des XDPB. 


Ein Beispielformat 


Das Format soll zwei Systemspuren 
erhalten. Dieser Wert kommt in die 
Bytes 13 und 14 des DPB. 

Für den Datenbereich bleiben folglich 
78x4,5=351 KByte übrig. Blocklän- 
gen von einem KByte sind nur für Dis- 
ketten mit maximal 256 KByte Spei- 
cherkapazität erlaubt. Wir verwenden 
also eine Blocklänge von zwei KByte 
beziehungsweise 16 Records. 16 ent- 
spricht 2%; tragen Sie also in das 
zweite Byte des DPB den Wert 4 undin 
das dritte den Wert OF hex ein. 

350 KByte entsprechen 175 
Blöcken zu je 2 KByte. Der Wert 
175-1=00AE hex muß deshalb in die 
Bytes 5 und 6 des DPB. 

Weil wir weniger als 256 Blöcke ver- 
wenden, benötigen die Blocknummern 
nur 8 Bit. In einen Extent passen 16 
Sektoren zu je 2 KByte (=32 KByte). 
Ein logischer Extent ist nur 16 KByte 
lang. Das Byte 4 des DPB erhält des- 


halb den 
KByte)-1=1. 

Das Inhaltsverzeichnis soll Platz für 
64 Einträge erhalten. Das sind bei 32 
Byte pro Eintrag genau 2 KByte bezie- 
hungsweise ein Block oder 16 
Records. Die Anzahl der Einträge minus 
1 wird in den Bytes 7 und 8 des DPB 
abgelegt: 3f und 00 hex. 

Die Anzahl der Blöcke, die das Ver- 
zeichnis umfaßt, ist in den Bytes 9 und 
10 des DPB codiert. Für jeden vom Ver- 
zeichnis belegten Block ist in diesen 
Bytes ein Bit gesetzt. 

Der Wert in den Bytes 11 und 12 gibt 
die Anzahl der Records des Inhaltsver- 
zeichnisses an, über die eine Prüf- 
summe berechnet wird. Da das Ver- 
zeichnis nur 16 Records belegt, gilt das 
auch als sinnvolle Obergrenze für die 
Prüfsummenbildung. Die Zahl gibt 
gleichzeitig die Länge des Prüf- 
summenspeichers in Byte an. 

Beim Schneider-Controller brauchen 
Sie jetzt nur noch das letzte Byte des 
XDPB in den Wert FF hex zu ändern, 
damit das mühevoll angepaßte Format 
nicht schon nach dem nächsten 
Warmstart (beispielsweise durch 
<CTRL+C>) wieder verloren ist. 

Beim Vortex-Controller erhält die nie- 
derwertige Ziffer den Wert 2, wenn es 
sich um ein einseitiges Format handelt 
und den Wert 3 bei einem doppelseiti- 
gen Format. Die höherwertige Ziffer hat 
den Wert O für eingebaute Laufwerke 
und den Wert 3 bei externen Zusatz- 
laufwerken. 


Wert (32 KByte/16 


(Helmut Tischer/ja) 


Wir werden uns natürlich in 
Zukunft alle Mühe geben, solche 
Fehler zu vermeiden. Gelingt uns 
dies nicht ganz und gar, bitten wir 
um ein wenig Verständnis. 


Herzlichen Dank! 


| 
| 


Hat Ihnen 
das Heft gefallen? 


Wieder einmal haben Sie ein Schneider-Sonderheft von 
Happy-Computer vor sich liegen. Und wieder fragen wir uns, 
ob wir mit unseren Themen richtig liegen. Denn diese Frage 
können nur Sie - unser Leser - beantworten. Deshalb 
schicken Sie uns bitte den untenstehenden Fragebogen aus- 
gefüllt zurück. Denn seine Auswertung zeigt uns den Weg, 
den wir mit dem 8. Schneider-Sonderheft einschlagen müs- 
sen. 

Auch der Schneider-Teilim Stamm-Magazin Happy-Compu- 
ter wird nach Ihren Vorschlägen gestaltet. Deshalb ist Ihre 
Meinung für uns so immens wichtig. 


Auch Sie profitieren also davon, wenn Sieuns Ihre - positive 
und negative - Kritik wissen lassen. 
Schicken Sie den ausgefüllten Fragebogen bitte an: 


Markt&Technik Verlag AG 
Redaktion Happy-Computer 
Kennwort: Schneider-Umfrage 
Hans-Pinsel-Straße 2 
8013 Haar bei München 


(a) 


Fragebogen zum 7. Schneider-Sonderheft 


Wie hat Ihnen dieses Heft gefallen? 


U sehr gut Ü weniger gut 
El gut O gar nicht 
Ü mittel 


Welche Rubriken wollen Sie in Zukunft erweitert sehen? 


E] Hardware © Einsteiger-Teil 

EI Software U Aktuelles 

Ü Basteleien U Tips&Tricks 

Ü Spiele-Tests DO Spiele-Listings 

EI CP/M U Anwendungs-Listings 


DO PC-Teil (MS-DOS) 
Ü Grundlagen 


Ü Grafik-Listings 


Welche Rubriken sollen in Zukunft eingeführt werden? 


Welche Computer-Zeitschriften lesen Sie? 


El Happy-Computer 
EI deutsche Schneider-Zeitschriften - wenn ja, welche? 


El englische Amstrad-Zeitschriften 
DD) andere - wenn ja, welche? 


Welche Schneider-Sonderausgaben von 
Computer haben Sie sich schon gekauft? 


© 1. Schneider-Sonderheft 
U] 2. Schneider-Sonderheft 
E13. Schneider-Sonderheft 
©] 4. Schneider-Sonderheft 
DI 5. Schneider-Sonderheft 
U 6. Schneider-Sonderheft 


Happy- 


year: 
En 


Wenn Sie alle sieben Schneider-Sonderhefte besitzen, 
welches hat Ihnen am besten gefallen? 

© 1. Schneider-Sonderheft 

2. Schneider-Sonderheft 

3. Schneider-Sonderheft 

4. Schneider-Sonderheft 

5. Schneider-Sonderheft 

6. Schneider-Sonderheft 

7. Schneider-Sonderheft 


000000 


Welchen Computer besitzen Sie? 


EI] Schneider CPC 464 U einen anderen, welchen? 
U Schneider CPC 664 

DO] Schneider CPC 6128 SERIE 
Ü Schneider Joyce — — 
U Schneider PC — 


Welchen Diskettencontroller besitzen Sie? 


DO Schneider 
OD Vortex 
U Vortex X-Controller 


OD einen anderen, welchen? 


Welche Speichererweiterung besitzen Sie? 
DO Data Media 
DI dk'tronics 
U] Vortex 


DO eine andere, welche? 


Ich bin damit einverstanden, daß die hier gemachten 
Angaben elektronisch verarbeitet werden. 


Name/Vorname 

Straße 
PLZ/Ort 3 
Alter Jahre 


| 
| 


Markt&Technik-Produkte 
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Ihrem Depot-Buchhändler 
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Tel. (0451) 180060 - Buchhandlung Storm, Langenstraße 10, 2800 Bremen , Tel. 
(0421) 321523 - Buchhandlung lohse-Eissing, Marktstraße 38, 2940 Wilhelmshaven, 
Tel. (04421) 41687 - Buchhandlung Schmorl u. v. Seefeld, Bohnhofstraße 13, 3000 
Honnover 1, Tel (05 11].327651 + Buchhandlung Graf, Neve Straße 23, 3300 Broun- 
schweig, Tel. (0531) 49271 « Deuerlich'sche Buchhandlung, Weender Straße 33, 
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83, 6300 Gießen, Tel. (0641) 12001 + Soziolwissenschofliche Fachbuchhandlung, 
Friedrichstraße 24, 6400 Fulda, Tel. (0661) 75077 - Albertis-Hofbuchhandlung, lang- 
straße 47, 6450 Honay, Tel. (061 81} 24301 + Gutenberg Buchhandlung, Große Blei- 
che 29, 6500 Mainz, Tel. (061 31) 370 11 « Buchhandlung Bock + Seip, Fütterstraße 2, 
6600 Scarbrücken, Tel. (0681) 30677 » Buchhandlung Wilhelm Hofmann, Eismorck- 
straße 98, 6700 Ludwigshafen, Tel. [0621] 516001 » Buchhandlung loeffler, B1,5, 
6800 Monheim 1, 1el. (0621) 289 12 * Buchhandlung Stehn, Bahnhofstraße 13, 7000 
Stuttgert 50, Tel. (071) 561476 = Osiondersche Buchhandlung, Sindelfinger 
Allee 25, 7030 Böblingen « Buchhandlung am Markt, Kramstraße 6, 7100 Heilbronn, 
Tel. (07131) 68682 » Ösiandersche Buchhandlung, Wilhelmstraße 12, 7400 Tübin- 
gen, Tel. (07071) 51761 + Osiandersche Buchhandlung, Kaiserpassage 8, 7410 Reut- 
lingen « UNI Buchhandlung Kellner+ Moessner, Kaiserstraße 18, 7500 Karlsruhe, Tel. 
(0721] 691436 » Buchhandlung Roth, Haupistraße 45, 7600 Offenburg, Tel. (0781) 
22097 - Rombach Center, Bertholdstraße 10, 7800 Freiburg, Tel. (0761). 49091 *Foch- 
buchhandlung Hofmann, Hirschstraße 4, 7900 Ulm, Tel. (0731) 60949 + Schauties 
Elektronik, Wangener Straße 99, 7980 Ravensburg, Tel. (0751) 261 38 + Buchhandlung 
Hugendubel, Marienplatz, 8000 München 2, Tel. (089) 2389-1 « Computerbücherom 
Obelisk, Barerstraße 32-34, 8000 München 2, Tel. (089) 282383 + Pele's Computer- 
bücher, Schillerstraße 17, 8000 München 2, Tel. (089) 555229 « Universtötsbuch- 
handlung lachner, Theresienstraße 43, 8000 München 2, Tel. (089) 321340 Buch. 
handlung Schönhuber, Theresienstraße 6, 8070 Ingolstadt, Tel. (0841) 331 46/47 « 
Computerstudio Gertrud Friedrich, Ludwigstraße 3, 8220 Traunstein, Tel. (0861) 14767 
= Buchhandlung Pustet, Kl. Exerzierplatz 4, 8390 Passau, Tel. (0851) 56945 + Buch- 
handlung Pustet, Gesandtenstraße 6, 8400 Regensburg, Tel. (0941) 53061 « Universi- 
fötsbuchhandlung Büftner&Co,, Adlestraße 10-12, 8500 Nümberg, Tel. (0911) 
2368-0 « Computer-Conter-Burger.-leimitzer Stroße 11-13, 8670 Hol, Tel. [09281] 
40075 « Buchhandlung Pustet, Grottenau 4, 8900 Augsburg, Tel. (0821) 35437 * 
Kemptener Fachsoriment, Salzstroße 30, 8960 Kempten, Tel. (0831) 14413. 
Schweiz: 

Buchhandlung Francke AG, Nevengasse 43, Von-Werdi-Possage, 3001 Bem, Tel. (031) 
2217 17 * Buchhandlung Scherz, Marktgosse 25, 3011 Bem, Tel. [031] 226837 = Buch- 
handlung Meissner, Bahnhofstrasse 41, 5000 Aarau, Tel. (064] 247151 « Bücher Bol- 
mer, Neugasse 12, 6300 Zug, Tel. (042) 21 41.41 + Buchhandlung Enge, Bleicherweg 
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versitätsstrasse 11, 8033 Zürich, Tel. (01) 3634282 + Buchhandlung am Rössiitor, We- 
bergasse 5, 9001 St.Gallen, Tel. (071) 228726. 


Österreich: 

Morawa&Co, Wollzeile 11, 1010 Wien, Tel. [0222] 947641 » Computer Buch Shop 
Karl Fegerl, Heineristraße 3, 1020 Wien, Tel. (0222) 245368 - lehrmittelzentrum, 
Karlsplatz 13, 1040 Wien, Tel. (0222) 567801 = Bücherzentrum, Schönbrunner Straße 
261, 1120 Wien, Tel. (0222)8331 96 + Johann Reisinger, Hauptplatz 30, Kirchenstraße 
3, 3302 Amstetten, Tel. (07472) 2576-0 + Helmut loiner, Obere Landstraße 8, 3500. 
Krems, Tel. (02732) 2818 = R. Pingruber, landstraße 34, 4020 Linz, Tel. (0732) 
272834 « Buchhandlung Schachtner, Stadtplatz 28, 4840 Vöcklabruck, Tel. (07672) 
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handlung leykam, Stemplergosse 3, 8010 Graz, Tel. (0316) 76676-0 + Jos. A. Kien- 
reich, Sacherstraße 6, 8010 Groz, Tel. (0316) 76441 = Volksbuchhandlung, Radetzky- 
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AUFBRUCH IN EINE NEUE DIMENSION 


mit »68000er«, dem Magazin der neuen 
Computer-Generation 
> Programmiersprachekurse für Basic, C, 
Modula und Assemblet, 
» Bauanleitungen für professionelle Hard- 
ware-Erweiterungen. 
>» Spiele-Spaß und -Spannung auf höchstem 
Niveau. 
Ihre hot-line zur Spitzentechnologie von 
AtariST, Amiga, Macintosh und Sinclair OL. 


Ausgabe 4/87 erhalten 
Sie ab 20.3.87 im 
Zeitschriftenhandel. 
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‚60 Zentiraeter High 

‚Szenn erwarten Sie! Ihr 
HBBOOOEL« Poster ist im Abon 
neimentpreis enthalten und ge- 
ft Ihnen, auch wenn Sie Ihre 


Bestellung widerrufen sollten. 


Datum 


Mir ist bekannt, dal se Bestellung innerhalb von 8 
bei Be: ‚fen 
rift. Zur V 
dung des Widerrufs. 


Datum ______ 2. Unterschrift 


Gutschein ausfüllen und absenden an: Markt& Technik Verlag 
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Speziell für @,Schneiderconpie 


TURBO-LADER 


Die Programm-Bibliothek für Turbo-Pascal. 


Marktgztechnik 
Schneider CPC- 
Software 
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Di Programm-Bothek Turbo Pascal 
oe Prozeduren un Funkgenen 
Turbo Pascal Sure Ce: 
Btrnarioien, Sorrverlahren Späne- 
Tuntlanon Harsrraneiomaben, 
eeslensaneye und we mehr. 
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Turbo-Lader-Grundpaket 

Das Turbo-lader-Grundmodul ist eine 
umfangreiche Programm-Bibliothek für den 
Turbo-Pascal-Programmierer. Sie umfaßt 
zahlreiche ausführlich dokumentierte Proze- 
duren und Funktionen, die der Profi zur 
schnellen lösung seiner Programmierauf- 
gaben verwenden kann und die dem Ein- 
steiger das Erlernen der Pascal-Program- 
mierung erleichtern. 

© Bitmanipulation 

® Optimale Sortierverfahren 

© Anwendung von Spline-Funktionen 

© Regressionsanalyse 

Alle Routinen werden im kommentierten 
Quellcode für den Turbo-Pascal-Compiler 
ausgeliefert. 

Software-Anforderung: 
Turbo-Pascal-Compiler. 


Diese Markt&Tschnil 
Fachabteilunge, 


Sie in den 
ihrem 
je oder di 


software erhel 


beim Verlag gegen Vorauskasse. Fra 
nach dem neuen Gesamtverzei 
‚Oder fordemn Sie es direkt beim Ver 


Turbo-Lnder Business 

Turbo-loder Business umfaßt einen komfor- 
toblen Bildschirm-Maskengenerator und eine 
professionelle Dateiverwoltung. Der Masken- 
generator gibt 'ogrammierer ein 
Werkzeug zu 
Bildschirm-Masken in die Hand. 
Mit diesen beiden Modulen si 
‚Anwendungsprogrammien 
nelle Werkzeuge zur zeit- und kostensparen- 
den Erstellung kommerzieller Anwendungen 
zur Verfügung. Alle Routinen werden im 
kommentierten Quellcode für den Turbo- 
Pascal-Compiler ausgeliefert. 
Software-Anforderung: 

Turbo-Poscal-Compil 
Grundpaket 


fessio- 


Turbo-lader- 
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x 
Turbo-Inder Science 


Turbo-Iader Science ist eine Sammlung 

technisch/wissenschaftlicher Funktionen und 

professioneller statistischer Verfahren für die 

Bereiche Medizin, Beiriebs- und Volkswirt- 

schaft, Technik und Naturwissenschaften. 

® Arithmetische Operationen zur Verarbei- 
tung komplexer Variablen 

© Wichtige Funktionen: Potenz, Wurzel, 
trigonometrische und transzendente 
exponentielle Funktion 

© Der Siatistikteil: ein praktisches und direkt 
verwendbares Werkzeug zur computer- 
unterstützten, effektiven Datenanalyse. 

Software-Anforderung: 

Turbo-Pascal-Compiler, Turbo-lader- 

Grundpaket 


RREICH: Rudolf lechner.& Sohn, 
, A-1091 Wien, Telefon (0222) 48 1538-0. 


